หน้าเว็บ

วันพุธที่ 8 มิถุนายน พ.ศ. 2554

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 ใช่ไหมครับ ลองเอาโค้ดนี้ไปใส่ดูครับผม ...

เมื่อรันมามันจะมีเครื่องหมายติ๊กถูกมาเลยน่ะครับ ...

ไม่มีความคิดเห็น:

โพสต์ความคิดเห็น