Validasi Textbox

'Dalam contoh ini, kursor tidak akan dapat _
keluar dari 'textbox, sampai user mengetik: _
"abc". Untuk memeriksa 'coding ini, coba _
klik pada tombol atau enter textbox 'yang kedua.

-1 Textbox dan 1 CommandButton
------------------------------------------------

Private Sub Text1_Validate(Cancel As Boolean)
Cancel = Text1.Text <> "abc"
End Sub

Perbedaan Fungsi Date dan Date$

Private Sub Command1_Click()
MsgBox DateTime.Date '--> Menghasilkan tanggal hari
'ini, sesuai dengan setting format tanggal di
'komputer 'Anda.
'Contoh: Jika tgl hari ini = 22 Januari 2002 dan
'format Short Date Style di Regional Setting =
'"dd/mm/yyyy", akan menghasilkan: 22/01/2002

MsgBox DateTime.Date$ '--> Menghasilkan tanggal hari
'ini dengan format tanggal Standar Internasional,
'yaitu: "mm-dd-yyyy"
'Contoh: (sama dengan di atas), maka akan
'menghasilkan: 01/22/2002
End Sub

Minimize Semua Window

- Ketik diForm

Private Sub Command1_Click()
Call keybd_event(VK_LWIN, 0, 0, 0)
Call keybd_event(&H4D, 0, 0, 0)
Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub
--------------------------------------------------
- Ketik diModule

Declare Sub keybd_event Lib "user32" (ByVal bVk _
As Byte, ByVal bScan As Byte, ByVal dwFlags As _
Long, ByVal dwExtraInfo As Long)
Public Const VK_LWIN = &H5B
Public Const KEYEVENTF_KEYUP = &H2

Menutup Semua Form

Private Sub Command2_Click()
Dim Form As Form
For Each Form In Forms
Unload Form
Set Form = Nothing
Next Form
End Sub

Mengurutkan Abjad

Private Sub Command1_Click()
Dim sAbjad() As String, ar As Integer, _
br As Integer, sAbjadTemp As String
Text2.Text = ""
ReDim sAbjad(Len(Text1.Text) - 1)
For ar = 1 To Len(Text1.Text)
sAbjad(ar - 1) = Mid(Text1.Text, ar, 1)
Next ar
For ar = LBound(sAbjad) To UBound(sAbjad)
For br = LBound(sAbjad) To UBound(sAbjad) - 1
If sAbjad(br) > sAbjad(br + 1) Then
sAbjadTemp = sAbjad(br + 1)
sAbjad(br + 1) = sAbjad(br)
sAbjad(br) = sAbjadTemp
End If
Next br
Next ar
For ar = LBound(sAbjad) To UBound(sAbjad)
Text2.Text = Text2.Text & sAbjad(ar)
Next ar
End Sub

Private Sub Form_Load()
Text1.Text = "QWERTYUIOPASDFGHJKLZXCVBNM"
Text2.Text = ""
End Sub

Memisahkan Komponen Tanggal

Private Sub Command1_Click()

Dim hari As Integer, bulan As Integer, tahun As Integer
hari = DateTime.DatePart("d", _
CDate("22/01/1973"), _
vbUseSystemDayOfWeek, _
vbUseSystem) 'Menghasilkan 22
bulan = DateTime.DatePart("m", _
CDate("22/01/1973"), _
vbUseSystemDayOfWeek, _
vbUseSystem) 'Menghasilkan 1
tahun = DateTime.DatePart("yyyy", _
CDate("22/01/1973"), _
vbUseSystemDayOfWeek, _
vbUseSystem) 'Menghasilkan 1973
MsgBox hari
MsgBox bulan
MsgBox tahun

End SUb

Membuat Form Sebagai Array

Private Sub Command1_Click()
Dim intX As Integer
Dim frmNew(1 To 5) As New Form1
For intX = 1 To 5
frmNew(intX).Show
frmNew(intX).WindowState = vbMinimized
'Untuk membuat form yang diminimized tanpa
'memiliki ukuran normal pada saat tampilan
'awalnya, ganti urutan coding dari dua baris di
'atas, sehingga nantinya menjadi:
'frmNew(intX).WindowState = vbMinimized
'frmNew(intX).Show
Next
End Sub