... cái file và mất hết những gì nó chứa trước đây). Sub DisplayInHEX(inString) Dim Mess, LogFileName ' Convert ASCII to Hex Mess = HexDisplay(inString) ' Prefix with date and time ... dùng method RemoveItem. Ta sẽ viết code cho Sub CmdDeleteSelectedItems_Click() như sau: Private Sub CmdDeleteSelectedItems_Click() Dim i For i = 0 To lstNames.ListCount - 1 If lstNames.Selected(i) ... whole content of the listbox Const MaxLinesPerPage = 50 Dim msg, i, j, PageNo, NumLines, HasSome, Margin HasSome = False ' Flag indicating existence of data Margin = Space(10) ' Make...
Ngày tải lên: 04/11/2013, 21:15
Tài liệu Visual Basic 6- Chương 7- Dùng Control List-Bai 03 doc
Ngày tải lên: 24/01/2014, 02:20
Tự học thiết kế chương trình cho học sinh làm toán bằng Visual Basic 6.0 tập 1 part 7 pot
Ngày tải lên: 10/08/2014, 15:21
Tự học thiết kế chương trình cho học sinh làm toán bằng Visual Basic 6.0 tập 2 part 7 pot
Ngày tải lên: 10/08/2014, 15:21
Dùng List Controls trong visual Basic 6
... List1.ItemData(List1.NewIndex) = 62 310 List1.AddItem "Tran The Tam" List1.ItemData(List1.NewIndex) = 42859 List1.AddItem "Alan Bradshaw" List1.ItemData(List1.NewIndex) = 63 73 2 List1.AddItem ... sau: Private Sub CmdLoad_Click() Dim i, Pos Dim FileName, FileNumber, anItem Dim sFirstName As String * 10 ' fixed length string of 10 characters Dim sSurName As String * 10 ' ... khi display mỗi Item đều có FisrtName bên trái. Code để sort tên theo SurName cũng giống như CmdSort_Add nhưng thêm thắt chút ít như sau: Private Sub lblSurName_Click() Dim i, anItem Dim...
Ngày tải lên: 28/08/2012, 15:46