剛開始學VB，希望能幫到我。
我正在做一個關于 TFT 游戲的專案，其中每個專案都由兩個組件組成。我的專案由 9 個按鈕組成，通過按其中兩個（可能是同一個），我希望能夠獲取特定專案（作為 msgbox）。
不知道是否有更好的方法，但我愿意接受建議！
uj5u.com熱心網友回復：
Here's an example that changes the "Check" button to Green when Button3 is selected, followed by Button7 being selected, otherwise it changes the "Check" button to Red.
按鈕排列在標準鍵盤網格中：
Button1 Button2 Button3
Button4 Button5 Button6
Button7 Button8 Button9
代碼：
Public Class Form1
Private FirstButton As Button = Nothing
Private SecondButton As Button = Nothing
Private Buttons As List(Of Button)
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Buttons = New List(Of Button)(
{Button1, Button2, Button3,
Button4, Button5, Button6,
Button7, Button8, Button9})
Buttons.ForEach(Sub(b) b.Text = "")
End Sub
Private Sub AllButtons_Click(sender As Object, e As EventArgs) _
Handles Button1.Click, Button2.Click, Button3.Click,
Button4.Click, Button5.Click, Button6.Click,
Button7.Click, Button8.Click, Button9.Click
Dim curButton As Button = DirectCast(sender, Button)
If IsNothing(FirstButton) Then
FirstButton = curButton
FirstButton.Text = "1"
ElseIf IsNothing(SecondButton) Then
SecondButton = curButton
If curButton Is FirstButton Then
curButton.Text = "1, 2"
Else
SecondButton.Text = "2"
End If
Else
FirstButton.Text = ""
SecondButton.Text = ""
FirstButton = curButton
FirstButton.Text = "1"
SecondButton = Nothing
End If
End Sub
Private Sub btnCheck_Click(sender As Object, e As EventArgs) Handles btnCheck.Click
If FirstButton Is Button3 AndAlso SecondButton Is Button7 Then
btnCheck.BackColor = Color.Green
Else
btnCheck.BackColor = Color.Red
End If
End Sub
End Class
運行示例：
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/425249.html
上一篇：我如何反應以將按鈕值輸入輸入？
下一篇：如何使按鈕保持選中狀態？[復制]