AutoCheck ListBox [ VB6 ]
Private Sub Form_Load() Dim itd As Integer For itd = 0 To List1.ListCount - 1 List1.Selected(itd) = True Next itd End Sub ListBox แบบ Check ถ้ารันมามันจะไม่ Checked ใช่ไหมครับ ลองเอาโค้ดนี้ไปใส่ดูครับผม…
คำที่ค้นหา: list1 — พบ 3 รายการ
Private Sub Form_Load() Dim itd As Integer For itd = 0 To List1.ListCount - 1 List1.Selected(itd) = True Next itd End Sub ListBox แบบ Check ถ้ารันมามันจะไม่ Checked ใช่ไหมครับ ลองเอาโค้ดนี้ไปใส่ดูครับผม…
สร้าง ListBox 1 อัน TextBox 1 อัน ใส่โค้ดListBox ตั้ง Style เป็น CheckBox Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, _ ByVal wParam…
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 Const LB_SETHORIZONTALEXTENT =…