• Home
 · 
• Games
 · 
• draw 15 lable in a frame.the gap between two label is one.make them array of control.name them lblm

draw 15 lable in a frame.the gap between two label is one.make them array of control.name them lblm

draw 15 lable in a frame.the gap between two label is one.make them array of control.name them lblm.put another label label1.on the right side

API Declarations


Dim flag As Integer
Public Sub result()
Dim i As Integer
For i = 0 To 14
j = i + 1
If Val(lblm(i).Caption) = j Then
flag = 0
Else
flag = 1
Exit Sub
End If
Next
End Sub



Rate draw 15 lable in a frame.the gap between two label is one.make them array of control.name them lblm

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

End Sub

Private Sub Form_Load()
Label17.Caption = "The Game Of Match"
selcap = -1
flag = -1
findex = 15
llab = findex - 1
tlab = findex - 4
rlab = -1
blab = -1
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label17.Caption = "The Game Of Match"
End Sub

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim seti As Integer
Label17.Caption = "Click on Right Mouse Button to select number & Left to put"
For seti = 0 To 15
lblm(seti).Appearance = 0
Next
End Sub
Private Sub lblm_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If lblm(Index).Caption <> "" Then
lblm(Index).Appearance = 1
 End If
End Sub

Private Sub lblm_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
 If Button = vbRightButton Then
  If llab = Index Or rlab = Index Or tlab = Index Or blab = Index Then
  Label1.Caption = "Picking " & Space(2) & lblm(Index).Caption
  selcap = Index
  llab = Index - 1
  rlab = Index + 1
  tlab = Index - 4
  blab = Index + 4
  End If
End If
If Button = vbLeftButton And selcap <> -1 Then
  If Index <> selcap Then
  lblm(Index).Caption = lblm(selcap).Caption
  lblm(Index).BackColor = vbWhite
  lblm(Index).Appearance = 0
  lblm(selcap).Caption = ""
  lblm(selcap).Appearance = 1
  Label1.Caption = ""
  selcap = -1
    End If
End If
End Sub