最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
五子棋两个控件之一fiveclient
时间:2008-01-18 编辑:简简单单 来源:一聚教程网
Option Explicit
'整个棋格的大小为15x15
Dim mGrid(1 To 15, 1 To 15) As typeGrid
'每个棋格的宽度和长度
Dim Gridwidth, Gridheight As Integer
'go=ture表示可以下棋,=false表示不能下棋或该对方下
Dim Go As Boolean
'使用的棋子颜色
Dim MyColor As String
'当前玩家的名字
Dim Username As String
Private Sub AllFight_Click()
'在列表框中选择要观看的棋局
If AllFight.Tag > 0 And AllFight.Text <> "" And cmdCall.Caption <> "退出棋局" Then
'观看的按扭有效
cmdLook.Enabled = True
Else
'观看的按扭无效
cmdLook.Enabled = False
End If
End Sub
Private Sub AllFight_DropDown()
AllFight.Clear
'向服务器发送列出所有棋局的请求
Winsock.SendData "/AllP"
End Sub
Private Sub cmdCall_Click()
If cmdCall.Caption = "呼叫" Then
'以下为玩家呼叫对方
If userList.Text = Username Then
MsgBox "不能呼叫自己"
Exit Sub
End If
If userList.Text <> "" Then
cmdCall.Enabled = False
'向服务器发送呼叫其他玩家下棋的请求
Winsock.SendData "/Call" & userList.Text
End If
Else
'如果cmdcall.caption<>"呼叫"(即是"退出棋局")
'向服务器发送退出棋局的消息
Winsock.SendData "/Quit"
End If
End Sub
Private Sub cmdDiscont_Click()
'断开与服务器的连接,并设置各个控件的状态
Winsock.Close
Command1.Enabled = True
'整个棋格的大小为15x15
Dim mGrid(1 To 15, 1 To 15) As typeGrid
'每个棋格的宽度和长度
Dim Gridwidth, Gridheight As Integer
'go=ture表示可以下棋,=false表示不能下棋或该对方下
Dim Go As Boolean
'使用的棋子颜色
Dim MyColor As String
'当前玩家的名字
Dim Username As String
Private Sub AllFight_Click()
'在列表框中选择要观看的棋局
If AllFight.Tag > 0 And AllFight.Text <> "" And cmdCall.Caption <> "退出棋局" Then
'观看的按扭有效
cmdLook.Enabled = True
Else
'观看的按扭无效
cmdLook.Enabled = False
End If
End Sub
Private Sub AllFight_DropDown()
AllFight.Clear
'向服务器发送列出所有棋局的请求
Winsock.SendData "/AllP"
End Sub
Private Sub cmdCall_Click()
If cmdCall.Caption = "呼叫" Then
'以下为玩家呼叫对方
If userList.Text = Username Then
MsgBox "不能呼叫自己"
Exit Sub
End If
If userList.Text <> "" Then
cmdCall.Enabled = False
'向服务器发送呼叫其他玩家下棋的请求
Winsock.SendData "/Call" & userList.Text
End If
Else
'如果cmdcall.caption<>"呼叫"(即是"退出棋局")
'向服务器发送退出棋局的消息
Winsock.SendData "/Quit"
End If
End Sub
Private Sub cmdDiscont_Click()
'断开与服务器的连接,并设置各个控件的状态
Winsock.Close
Command1.Enabled = True
相关文章
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16
- ajax实现城市三级联动的代码介绍 09-16
- asp中获取日期为星期几的技巧 09-14