Form1
Private Sub Exit_Click()
End
End Sub
Private Sub F2_Click()
Form1.Hide
Form2.Show
End Sub
Private Sub F3_Click()
Form1.Hide
Form3.Show
End Sub
Form2
Private Sub Back_Click()
Form2.Hide
Form1.Show
End Sub
Private Sub Timer1_Timer()
Label1.Visible = Not Label1.Visible
End Sub
Form3
Private Sub Back_Click()
Form3.Hide
Form1.Show
End Sub
Private Sub Command1_Click()
Text1.Text = UCase$(Text1.Text)
End Sub
Private Sub Command2_Click()
Text1.Text = LCase$(Text1.Text)
End Sub
Private Sub Command3_Click()
Text1.Text = Clear
Text1.SetFocus
End Sub
Pada saat program dijalankan akan tampil Form1. Kemudian klik File yang
sudah dibuat pada Menu Editor. Saat di klik akan tampil Form2 dan Form3. Klik
Form2 untuk masuk Form2, Klik Form3 untuk masuk ke Form3, klik Exit untuk
keluar dari program.
Di Form2 akan tampil kata “Hello” secara berkedap kedip yang sudah dibuat
pada Label1. Tekan Kembali untuk kembali ke Form1 dan Form2 akan tertutup.
Jika tekan Form3 pada Menu File di Form1 akan tampil seperti ini. Kemudian
ketik nama pada TextBox.
Dengan memakai coding ini Text1.Text = UCase$(Text1.Text) yang diisi pada
command1 maka jika tekan Besar maka tampilan huruf akan besar semuanya.
Dengan memakai coding ini Text1.Text = LCase$(Text1.Text)yang diisi pada
command2 maka jika tekan Kecil maka tampilan huruf akan kecil semuanya. Tekan
Hapus untuk menghapus text yang ada pada TextBox. Tekan Kembali untuk kembali
ke Form1 dan Form3 akan tertutup.
Postingan
17 April 2015 pukul 00.28