VB6 - Menambahkan gulir horizontal di ListBox

Di bawah VB6 kotak daftar tidak memiliki gulir horizontal dan mungkin cukup menganugerahkan jika panjang teks lebih panjang dari lebar ListBox.

Ini membutuhkan perluasan listBox dalam proporsi yang tidak selalu diinginkan untuk desain.
Beberapa baris kode ini menghasilkan gulir horizontal di ListBox.
Buka proyek baru.
Rekatkan kode di bawah ini ke dalam modul formulir.

 Opsi Explicit Private Const LB_SETHORIZONTALEXTENT = & H194 Fungsi Deklarasi Pribadi SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any, L As Integer, Va As String, i As Integer 'Remplir la list avec des lignes longues pour la démo For i = 0 To 20 Va = Va & "Test" & i & "" List1.AddItem Va L = TextWidth (List1 .List (i)) Jika Lg List1. Jika Kemudian HorizontalSrcoll List1, Lg End Jika End Sub 'Adaptor les du valeurs du scroll horizontal. Private Sub HorizontalSrcoll (Lt As Control, Lg As Integer) Dim Ret As Long Dim ScrollMax As Long ScrollMax = (Lg / Screen.TwipsPerPixelX) + 6 Ret = KirimMessage (Lt.hwnd, LB_SETHORIZONTALEXTENT, ScrollMax, 0 &)

Unduh proyek: