by Ronilo Siasat (SOFTNET College of Science and Technology) Balanga City, Bataan Philippines (1 Submission)
Category: String Manipulation
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sun 2nd May 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Another Way of using " LISTBox "("style checkbox")and manipulation of date using DateSerial, Month and Monthname function to convert numbers 1
'SOFTNET College of Science and Technology
'Programmed by : Ronilo Siasat
'Balanga City, Bataan Philippines
'this simple program show how to used a listbox with checkbox Style
'for more info you can e-mail me at [email protected]
'Note:
'You need To put the ff.:
'command button named it as cmdcheck
'command button named it as cmdinsert
'list box named it as lstnumber
'list box named it as lstlist
Private Sub cmdcheck_Click()
For lcheck = 0 To lstnumber.ListCount - 1
lstnumber.Selected(lcheck) = IIf(cmdcheck.Caption <> "Check &All", False, True)
Next lcheck
If cmdcheck.Caption = "Check &All" Then
cmdcheck.Caption = "Uncheck &All"
Else
cmdcheck.Caption = "Check &All"
End If
End Sub
Private Sub cmdinsert_Click()
Dim meron
meron = 0
lstlist.Clear
For j = 0 To lstnumber.ListCount - 1
If lstnumber.Selected(j) = True Then
meron = meron + 1
lstlist.AddItem lstnumber.List(j)
End If
Next j
If meron = 0 Then
MsgBox "Pleased Select a Month on the list.", vbInformation
End If
End Sub
Private Sub Form_Load()
For x = 1 To 12
buwan = DateSerial(2003, x, 1)
lstnumber.AddItem MonthName(Month(buwan))
Next
End Sub
No comments have been posted about Another Way of using LISTBox (style checkbox)and manipulation of date using DateSerial, Month . Why not be the first to post a comment about Another Way of using LISTBox (style checkbox)and manipulation of date using DateSerial, Month .