Khóa Hàm Thụ Visual Basic 6.0_Chương 7

Có hai loại List controls dùng trong VB6. Ðó là Listbox và Combobox. Cảhai đều display một số hàng để ta có thể lựa chọn. Listbox chiếm một khung chữ nhật, nếu chiều ngang nhỏ thì có khi không display đầy đủ một hàng, nếu chiều dài không đủ để display tất cả mọi hàng thì Listbox tự động cho ta một vertical scroll bar để cho biết còn có nhiều hàng bị che và ta có thể xem các hàng ấy bằng cách dùng vertical scroll bar. Combobox thường thường chỉ display một hàng, nhưng ta có thể chọn...
Nội dung trích xuất từ tài liệu:
Khóa Hàm Thụ Visual Basic 6.0_Chương 7 Khóa Hàm Thụ Visual Basic 6.0 Chương Bảy - Dùng List ControlsCó hai loại List controls dùng trong VB6. Ðó là Listbox và Combobox. Cảhai đều display một số hàng để ta có thể lựa chọn. Listbox chiếm mộtkhung chữ nhật, nếu chiều ngang nhỏ thì có khi không display đầy đủ mộthàng, nếu chiều dài không đủ để display tất cả mọi hàng thì Listbox tựđộng cho ta một vertical scroll bar để cho biết còn có nhiều hàng bị che vàta có thể xem các hàng ấy bằng cách dùng vertical scroll bar. Comboboxthường thường chỉ display một hàng, nhưng ta có thể chọn display bất cứhàng nào khác. Combobox giống như một tập hợp của một Textbox nằmphía trên và một Listbox nằm phía dưới.Listbox có rất nhiều công dụng vì nó rất uyển chuyển. Trong chương nầyta sẽ học qua các áp dụng sau của Listbox: • Display nhiều sự lựa chọn để User selects bằng cách click hay drag- drop • Những cách dùng Property Sorted • Cách dùng Multiselect • Dùng để display Events • Dùng để Search hay process text • Cách dùng Itemdata song song với các Items của List • Dùng làm QueueListboxDisplay nhiều sự lựa chọnTa hãy bắt đầu viết một chương trình gồm có một Listbox tên lstNamesnằm trong một Form. Trong lstNames ta đánh vào tên của bảy người, mỗilần xuống hàng nhớ đánh Ctrl-Enter, thay vì chỉ Enter, nếu không VB6tưởng ta đã đánh xong nên close property List. Các tên nầy là những hàngsẽ 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 để tranghoàng, và một Label khác tên lblName. Mỗi khi User click lên hàng tênnào ta muốn display hàng tên ấy trong lblName. Sau cùng ta cho vào mộtCommandButton tên CmdExit để cho User phương tiện Stop cái program.Ta sẽ có chương trình như sau:Private Sub lstNames_Click() Assign the selected line of Listbox lstNames to Caption of LabellblName lblName.Caption = lstNames.List(lstNames.ListIndex) or =lstNames.textEnd SubPrivate Sub CmdExit_Click() EndEnd SubGiả 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ầylà 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ênmộ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 PropertyListIndex của lstNames, nó sẽ có value từ 0 đến ListCount-1. Lúcprogram 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. Arraynầy được gọi là List. Do đó, ta nói đến Item thứ nhất của ListboxlstNames bằng cách viết lstNames.List(0) , và tương tợ như vậy, Itemcuối cùng là lstNames.List( lstNames.ListCount-1). Ta có thể nói đếnitem vừa được Clicked bằng hai cách: hoặc làlstNames.List(lstNames.ListIndex), hoặc là lstNames.text.Save content của ListboxBây giờ để lưu trử content của lstNames, ta thêm một CommandButtontên CmdSave. Ta sẽ viết code để khi User click nút CmdSave program sẽmở một Output text file và viết mọi items của lstNames vào đó:Private Sub CmdSave_Click() Dim i, FileName, FileNumber Obtain Folder where this programs EXE file resides FileName = App.Path Make sure FileName ends with a backslash If Right(FileName, 1) Then FileName = FileName & FileName = FileName & MyList.txt name output text file MyList.txt Obtain an available filenumber from the operating system FileNumber = FreeFile Open the FileName as an output file , using FileNumber as FileHandle Open FileName For Output As FileNumber Now iterate through each item of lstNames For i = 0 To lstNames.ListCount - 1 Write the List item to file. Make sure you use symbol # in front ofFileNumber Print #FileNumber, lstNames.List(i) Next Close FileNumber Close the output fileEnd SubApp là một Object đặc biệt đại diện cho chính cái program đang chạy. Ởđây ta dùng Property Path để biết lúc program đang chạy thì executemodule EXE của nó nằm ở đâu. Lý do là thường thường ta để các files liênhệ cần thiết cho program lẩn quẩn hoặc ngay trong folder của programhay trong một subfolder, chẳng hạn như data, logs, .v.v..App còn có mộtsố Properties khác cũng rất hữu dụng như PrevInstance, Title, Revision..v.v.Nếu mới started một program mà thấy App.PrevInstance = True thìlúc bấy giờ cũng có một copy khác của program đang chạy. Nếu cần taEnd program nầy để tránh chạy 2 copies của program cùng một lúc.App.Title và App.Revision cho ta tin tức về Title và Revision của programđang chạy.Ðể viết ra một Text file ta cần phải Open nó trong modeOutput và tuyên bố từ rày trở đi sẽ dùng một con số (FileNumber) để đạidiện cái File thay vì dùng chính FileName ...