Skip to content
Misc
Misc | Visual Basic 6.0 Tutorial
- Memisahkan kata-kata dalam MsgBox | Menambah baris baru dalam MsgBox
Contoh:
MsgBox "Perhatian! Anda salah memasukan data
pada Tabel, untuk itu perhatikan user ID yang dipilih dari data tabel
yang sebelumnya telah diinput dalam nPokok_data sehingga data bisa
sinkron",vbCritical," Error"
Solusi:
Gunakan & vbCrLf & _ setiap kali ingin membatasinya dengan meletakkannya ke baris baru.
Contoh Solusi:
MsgBox "Perhatian! Anda salah memasukan data pada Tabel," & vbCrLf & _
"untuk itu
perhatikan user ID yang dipilih dari data tabel yang sebelumnya " & vbCrLf & _
telah
diinput dalam nPokok_data sehingga data bisa sinkron",vbCritical,"
Error"
- Memisahkan panjangnya script atau kata-kata dalam proses penulisan kode.
Contoh:
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Solusi:
Gunakan _ (spasi + underscore + spasi) setiap kali ingin membatasinya dengan meletakkannya ke baris baru.
Contoh Solusi:
Public Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
- Membuka Situs/URL Melalui CommandButtonn
URL = Shell("explorer.exe http://www.google.com", vbHide)
- Mendeteksi apakah Textbox berisi Angka
Solusi:
Gunakan isNumeric(textbox/expression)
Contoh:
If IsNumeric(Text1.Text) Then ...
atau,
If IsNumeric(Text1.Text) = True Then ...
- Mendeteksi apakah Textbox kosong
Solusi:
Gunakan isNull(textbox/expression)
Contoh:
If IsNull(Text1.Text) Then ...
atau,
If isNull(Text1.Text) = True Then ...
-