vb翻译 111

来源：百度知道 编辑：UC知道 时间：2024/05/27 12:03:20
Private Sub Command1_Click()
statestring = "r" & statestring
Winsock2.SendData statestring
Command1.Enabled = False: hong = 1:
If Label3.Caption = "请等待红方就坐" Then
Label2.Caption = " ": Label3.Caption = " "
Command3.Enabled = True: Command4.Enabled = True: Command5.Enabled = True: Command7.Enabled = True
MsgBox ("请按开始按钮开始摆棋！")
Else
Label2.Caption = "请等待黑方就坐"
End If
statestring = "t" & "红方已经摆好棋！": Winsock2.SendData statestring: statestring = " "
End Sub

Private Sub Command2_Click()
k = k + 1
If k / 2 <> k \ 2 Then
statestring = "b" & statestring
Winsock2.SendData statestring
End If
Command2.Enabled = False: hong = 0
If Label2.Caption = "请等待黑方就坐" Then
Label3.Caption = " ": Label2.Caption = " "
Command3.Enabled = True

Private Sub Command1_Click() '单击Command1激发以下事件
statestring = "r" & statestring '在statestring前加字母r（这应该是一个字符串）
Winsock2.SendData statestring '发送数据statestring
Command1.Enabled = False 'Command1给为不可用
hong = 1 '给hong赋值为1
If Label3.Caption = "请等待红方就坐" Then '条件Label3显示的文字为"请等待红方就坐"满足，执行以下语句
Label2.Caption = " ": Label3.Caption = " " 'Label2和Label3各显示一个空格
Command3.Enabled = True: Command4.Enabled = True: Command5.Enabled = True: Command7.Enabled = True 'Command3、Command4、Command5、Command7都改为可用
MsgBox ("请按开始按钮开始摆棋！") '显示一个只有"确定"按钮的对话框，提示"请按开始按钮开始摆棋！"
Else '条件不满足，执行以下语句
Label2.Caption = "请等待黑方就坐" 'Label2显示"请等待黑方就坐"
End If
statestring = "t" & "红方已经摆好棋！": Winsock2.SendData statestring: statestring = " " '给statestring赋值为"t红方已经摆好棋！"，传送数据statestring，再给s