📄 nim.frm
字号:
VERSION 5.00
Begin VB.Form frmNIM
BackColor = &H00000000&
BorderStyle = 0 'None
Caption = "BartNIM"
ClientHeight = 5145
ClientLeft = 150
ClientTop = 435
ClientWidth = 7110
Icon = "NIM.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 5145
ScaleWidth = 7110
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton cmdOkMove
BackColor = &H00808080&
Caption = "OK"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1680
MaskColor = &H00000000&
Style = 1 'Graphical
TabIndex = 1
Top = 4200
Visible = 0 'False
Width = 1815
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
X1 = 120
X2 = 750
Y1 = 240
Y2 = 240
End
Begin VB.Image imgCompWins
Height = 3690
Left = 2760
Picture = "NIM.frx":08CA
Top = 0
Visible = 0 'False
Width = 4350
End
Begin VB.Image imgUserWins
BorderStyle = 1 'Fixed Single
Height = 4560
Left = 4920
Picture = "NIM.frx":2E2B
Top = 360
Visible = 0 'False
Width = 2055
End
Begin VB.Label lblRow
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "Row"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 120
TabIndex = 6
Top = 0
Width = 615
End
Begin VB.Label lblRow4
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "4"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 120
TabIndex = 5
Top = 2400
Width = 495
End
Begin VB.Label lblRow3
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "3"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 120
TabIndex = 4
Top = 1680
Width = 495
End
Begin VB.Label lblRow2
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "2"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 120
TabIndex = 3
Top = 960
Width = 495
End
Begin VB.Label lblRow1
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "1"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 120
TabIndex = 2
Top = 360
Width = 495
End
Begin VB.Label lblTurn
Alignment = 2 'Center
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 855
Left = 240
TabIndex = 0
Top = 3360
Width = 4815
End
Begin VB.Image imgRow0
Height = 480
Index = 6
Left = 4320
Picture = "NIM.frx":60E9
Top = 360
Width = 480
End
Begin VB.Image imgRow0
Height = 480
Index = 5
Left = 3720
Picture = "NIM.frx":6204
Top = 360
Width = 480
End
Begin VB.Image imgRow0
Height = 480
Index = 4
Left = 3120
Picture = "NIM.frx":631F
Top = 360
Width = 480
End
Begin VB.Image imgRow0
Height = 480
Index = 3
Left = 2520
Picture = "NIM.frx":643A
Top = 360
Width = 480
End
Begin VB.Image imgRow0
Height = 480
Index = 2
Left = 1920
Picture = "NIM.frx":6555
Top = 360
Width = 480
End
Begin VB.Image imgRow0
Height = 480
Index = 1
Left = 1320
Picture = "NIM.frx":6670
Top = 360
Width = 480
End
Begin VB.Image imgRow0
Height = 480
Index = 0
Left = 720
Picture = "NIM.frx":678B
Top = 360
Width = 480
End
Begin VB.Image imgRow3
Height = 480
Index = 6
Left = 4320
Picture = "NIM.frx":68A6
Top = 2280
Width = 480
End
Begin VB.Image imgRow3
Height = 480
Index = 5
Left = 3720
Picture = "NIM.frx":6CB4
Top = 2280
Width = 480
End
Begin VB.Image imgRow3
Height = 480
Index = 4
Left = 3120
Picture = "NIM.frx":70C2
Top = 2280
Width = 480
End
Begin VB.Image imgRow3
Height = 480
Index = 3
Left = 2520
Picture = "NIM.frx":74D0
Top = 2280
Width = 480
End
Begin VB.Image imgRow3
Height = 480
Index = 2
Left = 1920
Picture = "NIM.frx":78DE
Top = 2280
Width = 480
End
Begin VB.Image imgRow3
Height = 480
Index = 1
Left = 1320
Picture = "NIM.frx":7CEC
Top = 2280
Width = 480
End
Begin VB.Image imgRow3
Height = 480
Index = 0
Left = 720
Picture = "NIM.frx":80FA
Top = 2280
Width = 480
End
Begin VB.Image imgRow2
Height = 480
Index = 6
Left = 4320
Picture = "NIM.frx":8508
Top = 1560
Width = 480
End
Begin VB.Image imgRow2
Height = 480
Index = 5
Left = 3720
Picture = "NIM.frx":8614
Top = 1560
Width = 480
End
Begin VB.Image imgRow2
Height = 480
Index = 4
Left = 3120
Picture = "NIM.frx":8720
Top = 1560
Width = 480
End
Begin VB.Image imgRow2
Height = 480
Index = 3
Left = 2520
Picture = "NIM.frx":882C
Top = 1560
Width = 480
End
Begin VB.Image imgRow2
Height = 480
Index = 2
Left = 1920
Picture = "NIM.frx":8938
Top = 1560
Width = 480
End
Begin VB.Image imgRow2
Height = 480
Index = 1
Left = 1320
Picture = "NIM.frx":8A44
Top = 1560
Width = 480
End
Begin VB.Image imgRow2
Height = 480
Index = 0
Left = 720
Picture = "NIM.frx":8B50
Top = 1560
Width = 480
End
Begin VB.Image imgRow1
Height = 480
Index = 6
Left = 4320
Picture = "NIM.frx":8C5C
Top = 960
Width = 480
End
Begin VB.Image imgRow1
Height = 480
Index = 5
Left = 3720
Picture = "NIM.frx":8D94
Top = 960
Width = 480
End
Begin VB.Image imgRow1
Height = 480
Index = 4
Left = 3120
Picture = "NIM.frx":8ECC
Top = 960
Width = 480
End
Begin VB.Image imgRow1
Height = 480
Index = 3
Left = 2520
Picture = "NIM.frx":9004
Top = 960
Width = 480
End
Begin VB.Image imgRow1
Height = 480
Index = 2
Left = 1920
Picture = "NIM.frx":913C
Top = 960
Width = 480
End
Begin VB.Image imgRow1
Height = 480
Index = 1
Left = 1320
Picture = "NIM.frx":9274
Top = 960
Width = 480
End
Begin VB.Image imgRow1
Height = 480
Index = 0
Left = 720
Picture = "NIM.frx":93AC
Top = 960
Width = 480
End
Begin VB.Menu mnuGame
Caption = "&Game"
Begin VB.Menu mnuGameNewGame
Caption = "&New Game"
Shortcut = {F2}
End
Begin VB.Menu mnuGameSound
Caption = "&Sound"
Begin VB.Menu mnuSoundOn
Caption = "On"
Checked = -1 'True
End
Begin VB.Menu mnuSoundOff
Caption = "Off"
End
End
Begin VB.Menu mnuGameExit
Caption = "E&xit "
End
End
Begin VB.Menu mnuHelp
Caption = "&Help"
Begin VB.Menu mnuHelpHowToPlay
Caption = "How To &Play"
End
Begin VB.Menu mnuHelpAboutBartNIM
Caption = "&About BartNIM"
End
End
End
Attribute VB_Name = "frmNIM"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mblnUserGo As Boolean
Dim mintRow() As Integer
Dim mintOldmIntRow() As Integer
Dim mstrMusic As String
Dim mlngReturn As Long
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal LpstrCommand As String, ByVal LpstrReturnString As String, ByVal UReturnLength As Long, ByVal HwndCallBack As Long) As Long
Option Explicit
'COMP TAKES HIS MOVE
Private Sub cmdOkMove_Click()
Dim intLoop As Integer, intLoop1 As Integer
Dim blnWon As Boolean
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -