VB6 Code - Memilih Item Listbox Secara Otomatis

Bagaimana cara memilih item yang terdapat pada ListBox secara otomatis pada saat mouse berada di atasnya menggunakan kode Visual Basic 6?

Option Explicit

Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function LBItemFromPt Lib "COMCTL32.DLL" (ByVal hLB As Long, ByVal ptX As Long, ByVal ptY As Long, ByVal bAutoScroll As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

Private Const LB_SETCURSEL = &H186
Private Const LB_GETCURSEL = &H188

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Private Sub HightLightListBox(ByVal hwndLB As Long, ByVal X As Single, ByVal Y As Single)

    Dim IndexItem As Long
    Dim Point As POINTAPI
    
    Point.X = X \ Screen.TwipsPerPixelX
    Point.Y = Y \ Screen.TwipsPerPixelY
    
    Call  ClientToScreen(hwndLB, Point)
    
    IndexItem = LBItemFromPt(hwndLB, Point.X, Point.Y, False)

    If IndexItem <> SendMessage(hwndLB, LB_GETCURSEL, 0, 0) Then
        Call SendMessage(hwndLB, LB_SETCURSEL, IndexItem, 0)
    End If

End Sub

READ MORE - VB6 Code - Memilih Item Listbox Secara Otomatis

VB6 Code - Encrypt Dan Decrypt Sederhana

Di bawah ini merupakan fungsi VB6 untuk melakukan encrypt dan decrypt string secara sederhana, adapun kode VB6 untuk melakukan encrypt dan decrypt string secara sederhana adalah sebagai berikut:

Option Explicit

Public Function Encrypt(sText As String) As String
    Dim i As Integer
    Dim msg As String
    For i = 1 To Len(sText)
        msg = msg & Chr(Asc(Mid(sText, i, 1)) + 9)
    Next
    Encrypt = msg
End Function

Public Function Decrypt(sText As String) As String
    Dim i As Integer
    Dim msg As String
    For i = 1 To Len(sText)
        msg = msg & Chr(Asc(Mid(sText, i, 1)) - 9)
    Next
    Decrypt = msg
End Function

Contoh penggunaan fungsi encrypt dan decrypt sederhana

Private Sub Command1_Click()
    Text2.Text = Encrypt(Text1.Text)
End Sub

Private Sub Command2_Click()
    Text3.Text = Decrypt(Text2.Text)
End Sub

READ MORE - VB6 Code - Encrypt Dan Decrypt Sederhana

VB6 Code - Mengetahui Bilangan Apakah Ganjil Atau Genap?

Di bawah ini merupakan fungsi VB6 yang sangat sederhana untuk mengetahui sebuah bilangan, apakah ia genap atau ganjil?

Option Explicit

Public Function IsEven(Number As Double) As Boolean
    IsEven = IIf(Number Mod 2 = 0, True, False)
End Function

Contoh penggunakan kode VB6 di atas:

Private Sub Command1_Click()
    MsgBox IsEven(20) 'return true
End Sub

Private Sub Command1_Click()
    MsgBox IsEven(21) 'return false
End Sub

READ MORE - VB6 Code - Mengetahui Bilangan Apakah Ganjil Atau Genap?

VB6 Code - Konfirmasi Sebelum Keluar Dari Aplikasi

Di bawah ini merupakan fungsi VB6 untuk melakukan konfirmasi sebelum keluar dari aplikasi. Mengapa dibuat menjadi fungsi? agar memiliki sifat mudah digunakan kembali, karena hampir tiap software yang dibuat, memerlukan fungsi di bawah ini:

Option Explicit

Public Function ConfirmExit(Optional Title As String = "Konfirmasi") As Boolean
    If MsgBox("Are you sure want to exit?", vbQuestion + vbYesNo, Title) = vbYes Then
        ConfirmExit = ConfirmExit
    Else
        ConfirmExit = True
    End If
End Function

Contoh penggunaan fungsi di atas:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = ConfirmExit
End Sub

Penggunaan fungsi di atas dapat kita tempatkan pada event Unload ataupun QueryUnload.

READ MORE - VB6 Code - Konfirmasi Sebelum Keluar Dari Aplikasi