VB6 Code - Mencari Dengan Cepat Pada Listbox (Fungsi Api)

Di bawah ini merupakan fungsi VB6 yang digunakan untuk mencari sebuah item yang terdapat dalam objek ListBox dengan cepat.

Option Explicit

Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
Private Const LB_FINDSTRING = &H18F

Public Function SearchInList(sText As String, lst As ListBox)
    On Error Resume Next
    lst.ListIndex = SendMessage(lst.hWnd, LB_FINDSTRING, -1, ByVal sText)
    lst.TopIndex = List1.ListIndex - 1
End Function

Contoh penggunaan mencari dengan cepat menggunakan fungsi API

Private Sub Form_Load()
    With List1
        .AddItem "Bandung"
        .AddItem "Jakarta"
        .AddItem "Garut"
        .AddItem "Surabaya"
        .AddItem "New York"
        .AddItem "Khoiriyyah"
    End With
End Sub

Private Sub Text1_Change()
    SearchInList  Text1.Text, List1
End Sub

READ MORE - VB6 Code - Mencari Dengan Cepat Pada Listbox (Fungsi Api)

VB6 Code - Menjalankan Screen Saver

Di bawah ini merupakan fungsi uVB6 ntuk menjalankan screen saver melalui pemrograman.

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const WM_SYSCOMMAND = &H112&
Private Const SC_SCREENSAVER = &HF140&

Public Sub RunScreenSaver()
    Call SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_SCREENSAVER, 0&)
End Sub

Contoh penggunaan menjalankan screen saver

Private Sub Command1_Click()
    RunScreenSaver
End Sub

READ MORE - VB6 Code - Menjalankan Screen Saver

VB6 Code - Memperoleh Waktu Double Klik Pada Mouse

Source code VB6 di bawah ini berguna untuk memperoleh waktu double klik pada mouse dengan menggunakan fungsi API GetDoubleClick.

Option Explicit

Private Declare Function GetDoubleClickTime Lib "user32" () As Long

Private Sub Command1_Click()
    Dim ret As Long
    ret = GetDoubleClickTime
    Text1.Text = ret & " milliseconds"
End Sub

READ MORE - VB6 Code - Memperoleh Waktu Double Klik Pada Mouse

VB6 Code - Menjalankan Aplikasi Pada Start Up

Di bawah ini merupakan cara yang mudah untuk menjalankan aplikasi pada saat startup menggunakan kode VB6. Pada dasarnya fungsi startup, hanyalah fungsi baca dan tulis ke dalam registy. Kodenya pendek, karena ia meminjam ActiveX Windows Script Host Object Model atau yang lebih dikenal dengan nama WSHOM.OCX.

Option Explicit

Dim oWSHShell As New WshShell

Private Function RegWrite(sKey As String, sFilepath As String)
    oWSHShell.RegWrite sKey, sFilepath
End Function

Private Function RegDelete(sKey As String)
    oWSHShell.RegDelete sKey
End Function

Contoh penggunaan fungsi di atas yang digunakan untuk menulis ke dalam registry

Private Sub Command1_Click()
    RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & _
    App.EXEName, App.Path & "\" & App.EXEName & ".exe"
End Sub

Contoh penggunaan fungsi di atas yang digunakan untuk menghapus entry yang terdapat dalam registry

Private Sub Command2_Click()
    RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName
End Sub

READ MORE - VB6 Code - Menjalankan Aplikasi Pada Start Up