• Home
 · 
• String Manipulation
 · 
• Another Way of using LISTBox (style checkbox)and manipulation of date using DateSerial, Month

Another Way of using LISTBox (style checkbox)and manipulation of date using DateSerial, Month

Another Way of using " LISTBox "("style checkbox")and manipulation of date using DateSerial, Month and Monthname function to convert numbers 1

Rate Another Way of using LISTBox (style checkbox)and manipulation of date using DateSerial, Month

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'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