Question

谁有用vb做的连连看

Answer 1

Dim b(0 To 8)
Dim m, k, n

Private Sub Command1_Click()
a = "012345678"
For i = 0 To 8
Randomize
temp = Int(Rnd * Len(a) + 1)
Label1.Caption = 40
If i <= 1 Then
b(Mid(a, temp, 1)) = "red"
ElseIf i > 1 And i <= 3 Then
b(Mid(a, temp, 1)) = "blue"
ElseIf i > 3 And i <= 5 Then
b(Mid(a, temp, 1)) = "green"
ElseIf i > 5 And i <= 7 Then
b(Mid(a, temp, 1)) = "cyan"
ElseIf i = 8 Then
b(Mid(a, temp, 1)) = "black"
End If
a = Replace(a, Mid(a, temp, 1), "")
Next
Timer1.Enabled = True
For i = 0 To 8
Text1(i).Visible = True
Next
End Sub

Private Sub Form_Load()
n = "1"
For i = 0 To 8
Text1(i).Visible = False
Text1(i).BackColor = vbWhite
Text1(i).Enabled = True

Next
End Sub

Private Sub Text1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, y As Single)
If n = 1 Then
m = Index
n = 2
Else
k = Index
Timer2.Enabled = True
End If
If b(Index) = "red" Then
Text1(Index).BackColor = vbRed
ElseIf b(Index) = "blue" Then
Text1(Index).BackColor = vbBlue
ElseIf b(Index) = "green" Then
Text1(Index).BackColor = vbGreen
ElseIf b(Index) = "cyan" Then
Text1(Index).BackColor = vbCyan
ElseIf b(Index) = "black" Then
Text1(Index).BackColor = vbBlack
End If
End Sub

Private Sub Timer1_Timer()
If Label1.Caption <> 0 Then Label1.Caption = Label1.Caption - 1
If Label1.Caption = 0 Then
d = MsgBox("是否重新开始", vbYesNo, "失败")
If d = vbYes Then
Call Form_Load
Call Command1_Click
Else
Timer1.Enabled = False
End If
End If

For d = 0 To 8
If Controls("text1")(d).Enabled = False Then e = e + 1
Next
If e = 8 Then
d = MsgBox("是否重新开始", vbYesNo, "成功")

If d = vbYes Then
e = 0
Call Form_Load
Call Command1_Click
Else
Timer1.Enabled = False
End If

End If
End Sub

Private Sub Timer2_Timer()
If b(m) = b(k) Then
Text1(m).Enabled = False
Text1(k).Enabled = False
Else
Text1(m).BackColor = vbWhite
Text1(k).BackColor = vbWhite
End If
n = 1
Timer2.Enabled = False

End Sub