急求vb源代码

来源：百度知道 编辑：UC知道 时间：2024/05/26 04:03:00
不用太复杂，我刚学3个月，要考编新程序，请法符合我能力的源代码.
vb6.0 别太复杂就行。

这个简单呀!
我随便从我的军棋代码中给你复制部分就行了1
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 = " "