SKIP TO MAIN CONTENT
vb6-blog.blogspot.com blog uses cookies to help google service, personalise ads, and more. By visiting us you agree with our privacy policy. For more information: Cookies Policy | Privacy Policy

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.  

*) +vb6.vbp
Back to vb6 Homepage