Visual Basic 6 Vovisoft part 16

Tham khảo tài liệu visual basic 6 vovisoft part 16, công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả
Nội dung trích xuất từ tài liệu:
Visual Basic 6 Vovisoft part 16Ta gọi PrintList để in những Items đã được selected trong Listbox lstNames nhưsau:Private Sub CmdPrint_Click() PrintList lstHexadecimal, True, *** EVENT LOG IN HEX ***End SubThêm Horizontal Scrollbar vào ListboxCó lẽ bạn để ý thấy cả hai Listboxes lstASCII và lstHexadecimal đều có HorizontalScrollbar phía dưới. By default, Listbox không có Horizontal Scrollbar. Muốn tạora nó bạn phải thêm hai câu dưới đây vào một Basic module:Public Declare Function SendMessage Lib user32 Alias SendMessageA(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParamAs Any) As LongGlobal Const LB_SETHORIZONTALEXTENT = &H194Kế đó trong Sub Form_Load gọi Function SendMessage qua ApplicationProgramming Interface (API) để yêu cầu Listbox cho hiện ra Horizontal Scrollbar.Dim VLong As Long make a horizontal scrollbar for both ListboxesVLong = SendMessage(lstAscii.hwnd, LB_SETHORIZONTALEXTENT,lstAscii.Width, ByVal 0)VLong = SendMessage(lstHexadecimal.hwnd, LB_SETHORIZONTALEXTENT,lstHexadecimal.Width, ByVal 0)Bạn có thể download source code của program Eventlog.zip nầy để có đầy đủ.Trong bài tới ta sẽ học thêm các áp dụng còn lại của ListBox. Chương Bảy - Dùng List Controls (bài thứ ba)ListboxSearch trong Text FileTa biết rằng ListBox có thể chứa rất nhiều hàng text (con số hàng tối đa là 65535).Ta đã quen với việc hiển thị content của một text file trong một Listbox. Ta đãdùng ListBox để display các Events (sự cố) xãy ra trong real-time. Giả dụ, ta ghilại tất cả mọi Events xãy ra trong real-time của một hệ thống an ninh, tức là ta biếtai ra, vào cửa nào, lúc mấy giờ. Các Events nầy vừa đuợc log xuống một Text file,vừa được cho vào một ListBox để luôn luôn hiển thị Event mới nhất ở cuốiListBox.Khi đã có mọi Events nằm trong ListBox, ta có thể Search (tìm kiếm) xem mộtngười nào đã đi qua những cửa nào của building bằng cách iterate qua từng hàngtrong ListBox và nhận diện một Text Pattern hàng với Function InStr.Trong bài mẫu dưới đây, ta đánh tên của một người vào trong TextBox rồi clicknút Find và sau đó Find Next để highlight những Events trong ListBox cho thấynhững lúc tên người đó xuất hiện. Trong khi tìm kiếm một Text Pattern ta có thểcho phép cả chữ Hoa , lẫn chữ Thường bằng cách covert mọi text ra Uppercasetrước khi làm việc với chúng.Listing của Sub Find_Click như sau:Private Sub CmdFind_Click() Dim i, ALine, FText Get out if the Listbox is empty If EventList.ListCount = 0 Then MsgBox There s no text available Exit Sub End If Check if user has entered the Text Pattern If Trim(txtFind) = Then MsgBox Please enter the Text Pattern to search for Exit Sub End If Clear all selected lines For i = 0 To EventList.ListCount - 1 EventList.Selected(i) = False Next Convert the Text Pattern to Uppercase FText = UCase(txtFind.Text) Iterate through every line in the ListBox For i = 0 To EventList.ListCount - 1 Convert this line to Uppercase ALine = UCase(EventList.List(i)) If pattern exists in this line then highlight it If InStr(ALine, FText) > 0 Then EventList.Selected(i) = True Highlight the line Mark Current line as the Starting line for FindNext operation If i < EventList.ListCount - 1 Then CurrentLine = i + 1 get out Exit Sub End If Next Only get here if Not found MsgBox Not found!End SubTrong bài nầy ta có dùng một DriveListBox để cho User chọn một Disk drive, mộtDirListBox để user chọn một Folder/Directory và một FileListBox để hiển thị têncủa những Files trong một Folder.Cả ba loại ListBoxes nầy liên kết nhau để cho ta thấy sự thay đổi ăn nhịp mỗi khiUser đổi từ Disk Drive nầy qua Disk Drive khác, hay từ Folder nầy qua Folderkhác. Các hàng codes thực hiện việc nầy rất đơn giản như sau:Private Sub Drive1_Change() Make Path of Folder same as new Drive Dir1.Path = Drive1.DriveEnd SubPrivate Sub Dir1_Change() Make Path of FileList same as new Path of Folder The filenames in the Folder will be displayed automatically in FileListBox FileList.Path = Dir1.PathEnd SubTa có thể chọn lựa chỉ những Filenames có một Extension nào đó (thí dụ như log)bằng cách cho Property Pattern của FileListBox value *.log.Mỗi khi User click lên tên của một File, program sẽ load content của File ấy vàoListBox EventList bên phải.Sau khi selected một số hàng rồi, User có thể hoặc Print chúng ra bằng cách Clicknút Print, hoặc Copy chúng vào Clipboard bằng cách Click nút Copy.Bạn có thể download source code của program LogFile.zip nầy để có đầy đủ.Dùng ItemDataNếu Property List của ListBox được xem như một Text Array thì ItemData làmột Number Array, và List1.ItemData(i) đi cặp với List1.List(i). Tức là trong khiList1.List(i) hiển thị như mặt trước của một tấm bản thì List1.ItemData(i) được coinhư nằm ở mặt sau của tấm bản ấy. Khi mộ ...