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 ใช่ไหมครับ ลองเอาโค้ดนี้ไปใส่ดูครับผม…
คำที่ค้นหา: listbox — พบ 4 รายการ
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 ใช่ไหมครับ ลองเอาโค้ดนี้ไปใส่ดูครับผม…
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 =…
ในการเขียนโปรแกรมเพื่อสร้างโปรแกรมประยุกต์ด้วย Visual Basic นั้น ActiveX Control เป็นส่วนสำคัญที่ทำให้การพัฒนาโปรแกรมเป็นไปด้วยความรวดเร็ว ในบทนี้เราจะได้เรียนรู้การใช้งาน Control เรียนรู้เกี่ยวกับ พร็อพเพอร์ตี้ เมธอด…
สร้าง 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…