?? module.bas
字號:
Attribute VB_Name = "Module1"
Option Explicit
'Connect Mode 連線模式 主機 or Client ?
Public Const CONNECT_SERVER = 1
Public Const CONNECT_CLIENT = 2
Public Const CONNECT_WAIT = 3
'Message Type 傳送訊息的類別 SendMsgToUser的第一個Byte
Public Const CONNECT_MSG = "0" '連線資訊
Public Const NORMAL_MSG = "1" '一般對話資訊
Public Const GAME_MSG = "2" '游戲相關資訊
Public Const CLOSE_MSG = "3" '斷線訊息
'Game的資訊類別
'"0" Server送出Game Start的要求,后面帶3-5個Byte的資料 第一個Byte為游戲難度,后面則為對方的答案
'"1" Client答應Server Game Start的要求,后面帶2-4Byte的資料,為Client的答案
'"2" Client拒絕Server Game Start的要求
'"3" 允許對方輸入數字
'"4" 對方勝利羅!
Public Const MSG_GAME_START = "0"
Public Const MSG_CLIENT_START = "1"
Public Const MSG_CLIENT_CANCEL_START = "2"
Public Const MSG_INPUT_OK = "3"
Public Const MSG_GAME_WIN = "4"
Public ConnectType As Integer '連線時扮演的角色,Server or Client
Public MyComputerName As String '電腦名稱
Public ConnectStatus As Boolean '目前是否處于連線狀態
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -