توضيح در مورد اين كدها(برنامه نويسي سوكت)
سلام .اگر در مورد اين كدها كمي برام توضيح بدين ممنون ميشم.
من برنامه نويسي سوكت خيلي بلد نيستم.
اين قسمت مربوط به ساين هست:
کد:
If btnSignIn.Text = "Sign In" Then
Try
ReDim data(client.ReceiveBufferSize)
SendMessage(txtNick.Text)
'---read from server---
client.GetStream.BeginRead( _
data, 0, _
CInt(client.ReceiveBufferSize), _
AddressOf ReceiveMessage, Nothing)
btnSignIn.Text = "Sign Out"
btnSend.Enabled = True
Button3.Enabled = True
Button6.Enabled = True
Button8.Enabled = True
Catch ex As Exception
MsgBox(ex.ToString)
End Try
Else
'---disconnect from server---
Disconnect()
btnSignIn.Text = "Sign In"
btnSend.Enabled = False
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = True
TextBox25.Enabled = True
Button8.Enabled = False
End If
اين قسم هنگام وارد كردن اي پي هست:
کد:
If TextBox25.Text = "" Then
MsgBox("لطفا آدرس آي پي را وارد كنيد")
TextBox25.Select()
Else
Try
Dim a As String
a = (TextBox25.Text).ToString()
client = New TcpClient
client.Connect(a, portNo)
Button7.Enabled = False
TextBox25.Enabled = False
btnSignIn.Enabled = True
txtNick.Enabled = True
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
اين قسمت هم مربوط به اضافه كرن به حدول هست:
کد:
On Error Resume Next
Dim str1, str2 As String
Dim s As Integer
str1 = DataGridView7(0, DataGridView7.Rows.GetFirstRow(DataGridViewElementStates.Selected)).Value
str2 = DataGridView7(1, DataGridView7.Rows.GetFirstRow(DataGridViewElementStates.Selected)).Value
If TextBox26.Text = "" Then
MsgBox("لطفا کادر را پر کنید", MsgBoxStyle.Critical)
Else
s = DataGridView5.Rows.Count() - 1
SendMessage("insert into rent values(" & str1 & ",N'" & TextBox26.Text & "',N'" & str2 & "')" & "l")
DataGridView5.Rows.Add()
DataGridView5(0, s).Value = str1
DataGridView5(1, s).Value = TextBox26.Text
DataGridView5(2, s).Value = str2
End If
باز هم ممنون
