[Visual Basic 6.0] Load 指令運用建立 CommandButton 五子棋棋盤

2013-11-13

8086
0
Visual Basic 6.0
2013-11-14

摘要:[Visual Basic 6.0] Load 指令運用建立 CommandButton 五子棋棋盤

# 目前此程序還沒有添加判斷五子棋勝負的程式碼，有興趣想要完成整個遊戲的朋友們歡迎下載半成品修改。


Dim 放黑或白

'# [Visual Basic 6.0] Load 指令運用建立 CommandButton 五子棋棋盤
'# 0xDe
Private Sub Form_Activate()
Me.Caption = "建立新局中...."
Inputs = InputBox("請問您要玩 N x N 的盤數呢？", "20 >= N <= 5")
Me.Tag = Inputs
If Inputs >= 5 And Inputs <= 20 Then
    For I = 1 To Inputs * Inputs - 1
    
        Load 按鈕(I) ' 新增物件
        按鈕(I).Visible = True
        按鈕(I).Left = 按鈕(I - 1).Left + 400
        按鈕(I).Top = 按鈕(I - 1).Top
        If I Mod Inputs = 0 Then
            按鈕(I).Top = 按鈕(I - 1).Top + 400
            按鈕(I).Left = 120
        End If
    
    Next I
    Me.Caption = "已建立完成...."
Else
    Me.Caption = "20 >= N <= 5"
End If
End Sub

Private Sub 按鈕_Click(Index As Integer)
If 放黑或白 = True Then
    放黑或白 = False
    按鈕(Index).BackColor = vbWhite
Else
    放黑或白 = True
    按鈕(Index).BackColor = vbBlack
End If

按鈕(Index).Enabled = False
End Sub

[Visual Basic 6.0] Load 指令運用建立 CommandButton 五子棋棋盤.rar

#0xDe 從分享中學習

#Facebook：ProgrammerDe (https://www.facebook.com/MicrosoftDes) 有問題歡迎提問

回首頁