Misc

Misc | Visual Basic 6.0 Tutorial

1. 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"
   
   
2.  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
   
   
3.  Membuka Situs/URL Melalui CommandButtonn
   URL = Shell("explorer.exe http://www.google.com", vbHide)
   
4. Mendeteksi apakah Textbox berisi Angka
   Solusi:
   Gunakan isNumeric(textbox/expression)
   
   Contoh:
   If IsNumeric(Text1.Text) Then ...
   atau,
   If IsNumeric(Text1.Text) = True Then ...
   
   
5. Mendeteksi apakah Textbox kosong
   Solusi:
   Gunakan isNull(textbox/expression)
   
   Contoh:
   If IsNull(Text1.Text) Then ...
   atau,
   If isNull(Text1.Text) = True Then ...
   
   
6.