Article Application

Kimung Publisher : Link Google Play


1. Bipolar Disorder

------------------------------------------------------------------------------------------------------------------------

2. Cough Types: Symptom Treatment

Numbering input atau string input

Syntak utuk inputin di textbox dengan karakter angka :
---------------------------------------------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii <= Asc("9") And KeyAscii >= Asc("0") Or KeyAscii = vbKeyBack) Then
KeyAscii = 0
End If
End Sub
======&&&&=======
Syntak utuk inputin di textbox dengan karakter huruf:
---------------------------------------------------------
Private Sub Text2_KeyPress(KeyAscii As Integer)
If Not (KeyAscii <= 122 And KeyAscii >= 65 Or KeyAscii = vbKeyBack) Then
KeyAscii = 0
End If
End Sub

Tanggal dengan ComboBox

Membuat penanggalan dengan comboBox
pertama... lo bikin form dengan
1 label, dan 3 ComboBox

Sintaxnya nih...

Private Sub Form_Activate()
Combo1.Clear
For i = 1 To 31
If i < 10 Then
Combo1.AddItem "0" & i
Else
Combo1.AddItem i
End If
Next i

Combo2.Clear
For i = 1 To 12
If i < 10 Then
Combo2.AddItem "0" & i
Else
Combo2.AddItem i
End If
Next i

Combo3.Clear
For i = 2009 To Val(Format(Date, "yyyy"))
If i < 10 Then
Combo3.AddItem "0" & i
Else
Combo3.AddItem i
End If
Next i

Combo1.ListIndex = 0
Combo2.ListIndex = 0
Combo3.ListIndex = 0
End Sub

Terima Kasih