Display nhiều sự lựa chọn

Một phần của tài liệu Kỹ thuật lập trình VB6 (Trang 55 - 56)

Ta hãy bắt đầu viết một chương trình gồm có một Listbox tên lstNames nằm trong một Form. Trong lstNames ta đánh vào tên của bảy người, mỗi lần xuống hàng nhớ đánh Ctrl-Enter, thay vì chỉ Enter, nếu không VB6 tưởng ta đã đánh xong nên close property List. Các tên nầy là những hàng sẽ hiện ra trong Listbox khi ta bắt đầu chạy program.

Ngoài lstNames ta cho thêm một Label với Caption STUDENTS để trang hoàng, và một Label khác tên lblName. Mỗi khi User click lên hàng tên nào ta muốn display hàng tên ấy trong lblName. Sau cùng ta cho vào một CommandButton tên CmdExit để cho User phương tiện Stop cái program. Ta sẽ có chương trình như sau:

PrivateSub lstNames_Click()

' Assign the selected line of Listbox lstNames to Caption of Label lblName

lblName.Caption = lstNames.List(lstNames.ListIndex) ' or = lstNames.text

EndSub

PrivateSub CmdExit_Click() End

EndSub

Giả sử ta click vào tên John Smith trên Listbox, ta sẽ thấy tên ấy cũng đuợc display trong Label lblName.

Trong thí dụ nầy, Listbox lstNames có 7 hàng ( Items). Con số Items nầy là Property ListCount của Listbox. Các Items của Listbox được đếm từ 0 đến ListCount-1. Trong trường hợp nầy là từ 0 đến 6. Khi User click lên một hàng, Listbox sẽ generate Event lstNames_Click. Lúc bấy giờ ta có thể biết được User vừa mới Click hàng nào bằng cách hỏi Property ListIndex của lstNames, nó sẽ có value từ 0 đến ListCount-1. Lúc program mới chạy, chưa ai Click lên Item nào của Listbox thì ListIndex = -1. Nhũng Items trong Listbox được xem như một Array của String. Array nầy được gọi là List. Do đó, ta nói đến Item thứ nhất của Listbox lstNames bằng cách viết lstNames.List(0) , và tương tợ như vậy, Item cuối cùng là lstNames.List( lstNames.ListCount-1).

Ta có thể nói đến item vừa được Clicked bằng hai cách: hoặc là lstNames.List(lstNames.ListIndex), hoặc là lstNames.text.

Một phần của tài liệu Kỹ thuật lập trình VB6 (Trang 55 - 56)

Tải bản đầy đủ (DOC)

(188 trang)
w