VB6 Code - Horizontal Scrollbar Pada Listbox

Di bawah ini merupakan procedure VB6 untuk menambah ScrollBar pada objek ListBox. Seperti yang kita ketahui, ListBox tidak memiliki properties horizontal scroll bar akan tetapi dengan memanggil beberapa fungsi API hal tersebut mungkin untuk dilakukan.

Option Explicit

Private Declare Function SendMessageByNum Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const LB_SETHORIZONTALEXTENT = &H194

Public Sub AddHSBToListBox(sText As String, lst As ListBox)
    Static x As Long
    lst.AddItem sText
    If x < TextWidth(sText & "  ") Then
        x = TextWidth(sText & "  ")
    End If
    If ScaleMode = vbTwips Then
        x = x / Screen.TwipsPerPixelX
        SendMessageByNum lst.hwnd, LB_SETHORIZONTALEXTENT, x, 0
    End If
End Sub

Contoh penggunaan menambah horizontal scrollbar pada listbox

Private Sub  Command1_Click()
    Dim sText As String
    sText = ("This is a sample of long text, if the text longer than listbox, it will be create horizontal scrollbar automatically")
    AddHSBToListBox sText, List1
End Sub