Pravim chat program i sada sam napravio novu formu koja se zove frmPrivateChat i u njoj imam smješten lblsender di se sprema username od osobe koja šalje poruku.....
evo kod
Code:
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim prozor As New frmPrivateChat
prozor.lblSender.Text = nickname
prozor.Show()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim prozor As New frmPrivateChat
prozor.lblSender.Text = nickname
prozor.Show()
End Sub
e sada kako da nađem koji je chat odgovara kojem korisniku chata... pokušao sam s ovim kodom ali neradi,
Code:
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
For Each chat In Application.OpenForms
Try
If chat.lblSender.Text = nickname Then
chat.TextBox1.Text = poruka
End If
Catch ex As Exception
End Try
Next
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
For Each chat In Application.OpenForms
Try
If chat.lblSender.Text = nickname Then
chat.TextBox1.Text = poruka
End If
Catch ex As Exception
End Try
Next
End Sub
možete li mi pomoći?