by srimanta bhattacharjee (1 Submission)
Category: Games
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 15th January 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
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
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
No comments have been posted about draw 15 lable in a frame.the gap between two label is one.make them array of control.name them lblm. Why not be the first to post a comment about draw 15 lable in a frame.the gap between two label is one.make them array of control.name them lblm.