Splash Screen (Tip) - Visual Basic

Apabila anda ingin menyajikan tampilan aplikasi (berupa pengenal nama aplikasi, jenis, dan sebagainya) sebelum aplikasi utama dijalankan, maka gunakanlah Splash Screen di Visual Basic.
Untuk menggunakannya, bukalah program VB, kemudian pilih "ADD FORM", lalu pilih Splash Screen, dan terakhir klik "OPEN".

Setelah itu, maka akan muncul tampilan form default Splash Screen seperti gambar dibawah ini.

Desainlah dan ubah tulisan yang tertulis dalam label tersebut. Aturlah tata letaknya sedemikian rupa sehingga tampak menarik apabila digunakan dalam aplikasi yang akan anda buat selanjutnya.

Semoga berhasil!
Apabila ada permasalahan, jangan sungkan untuk berkomentar...

Text Box's Rules (Tip) - Visual Basic

Tip ini digunakan untuk mengatur karakter yang harus dimasukkan pada Text Box di Visual Basic. Dalam contoh ini ada 5 kondisi pada Text Box :
1. Text Box harus diisi dengan angka numerik.
2. Text Box harus diisi dengan huruf.
3. Secara otomatis Text Box diisi dengan huruf kecil.
4. Secara otomatis Text Box diisi dengan huruf kapital.
5. Maksimal karakter pada Text Box adalah 8. (bisa diatur sesuai keinginan)
Buka program VB, kemudian buat formasi tool dan propertiesnya sebagai berikut.

Setelah itu, masukkan kode berikut ke dalam kode editor.

Private Sub Text1_Keypress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
MsgBox "Please insert number."
Text1.Text = ""
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
MsgBox "Please insert letter."
Text2.Text = ""
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
lowercase = Chr(KeyAscii)
KeyAscii = Asc(LCase(lowercase))
If KeyAscii = 13 Then
Text1.Text = "": KeyAscii = 0
End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
uppercase = Chr(KeyAscii)
KeyAscii = Asc(UCase(uppercase))
If KeyAscii = 13 Then
Text1.Text = "": KeyAscii = 0
End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If Len(Text5) >= 8 Then
KeyAscii = 0
MsgBox "You already reaches maximum characters."
Text5.Text = ""
End If
End Sub

Catatan : Tulisan berwarna biru bisa diganti dengan karakter apapun.
Setelah itu, jalankan program dengan menekan tombol F5.

Tampilan program setelah mengetikkan karakter di Text Box sesuai dengan "aturan"

OK! Tip telah berhasil dibuat....
Jika ada permasalahan, silahkan komentarnya dibawah..