Thêm một thủ thuật cũng hay hay về ListBox...

[lethanhnhan]

Chào các bạn,
Đôi khi các bạn cài đặt một chương trình nào đó, chương trình bắt buộc bạn phải đọc hết đến dòng cuối. Đến lúc này nút lệnh "Đồng ý" (hay Accept) mới Click được.
Chúng ta hãy đặt một ListBox (Listbox1) lên form. Trên form chúng ta có nút lệnh commandbutton1 với thuộc tính Caption là Accept.

Giả sử chúng ta có 100 mục, yêu cầu người dùng phải xem.

Vậy thì chúng ta có thể sử dụng đọan mã sau để Enable nút lệnh commandbutton1

  [COLOR=#0000dd]Private[/COLOR] [COLOR=#0000dd]Sub[/COLOR] UserForm_MouseMove[COLOR=#008800]([/COLOR][COLOR=#0000dd]ByVal[/COLOR] Button [COLOR=#0000dd]As[/COLOR] [COLOR=#0000dd]Integer[/COLOR], _
    [COLOR=#0000dd]ByVal[/COLOR] Shift [COLOR=#0000dd]As[/COLOR] [COLOR=#0000dd]Integer[/COLOR], [COLOR=#0000dd]ByVal[/COLOR] X [COLOR=#0000dd]As[/COLOR] [COLOR=#0000dd]Single[/COLOR], [COLOR=#0000dd]ByVal[/COLOR] Y [COLOR=#0000dd]As[/COLOR] [COLOR=#0000dd]Single[/COLOR][COLOR=#008800])[/COLOR]
    
    [COLOR=#0000dd]If[/COLOR] [COLOR=#0000dd]Me[/COLOR].ListBox1.TopIndex = [COLOR=#cc66cc]78[/COLOR] [COLOR=#0000dd]Then[/COLOR]
        [COLOR=#0000dd]Me[/COLOR].CommandButton1.Enabled = True
    [COLOR=#0000dd]End[/COLOR] [COLOR=#0000dd]If[/COLOR]
[COLOR=#0000dd]End[/COLOR] [COLOR=#0000dd]Sub[/COLOR]

Các bạn để ý đọan mã trên.

ListBox1.TopIndex=78

Điều này có nghĩa là người dùng phải cuộn xuống và đã xem mục 100. Đến lúc này ta mới cho người dùng có thể thao tác với nút lệnh bằng lệnh

Me.CommandButton1.Enabled = True

Tham khảo

Lê Thanh Nhân

 

[man]

Hay quá!Mình có ý kiến là:" Tại sao ta không ẩn cái nút accept đó đi khi người dùng chưa đọc xong các mục".Mình đã làm thử 1 chương trình như vậy-Chỉnh sủa từ chương trình của bạn Lê Thành Nhân-.Bạn xem có được không!Tuy nhiên mình thấy nó chạy hơi chậm!Có cách nào nhanh hơn không bạn!

 

[ThichExcel]

Xin hỏi các bạn làm thế nào để có thể đưa dữ liệu vào nhiều cột trong listbox

 

[yeudoi]

Ví dụ bạn có hai cột A:B bạn vào columncount chọn 2 là được.

 

[man]

Như thế này phải không bạn:Bạn chọn Columncount là 2( để có 2 cột) và chọn Rowscore là vùng dữ liệu(2 Cột A và B trong ví dụ)!Tuy nhiên mình vẫn thấy hơi châm.

 

[Mr Okebab]

Làm sao có thể để ListBox hiện ra có các gird nhỉ ?? Các đường lưới ấy mà.

Các cao thủ giải đáp giúp.

Thân!

 

[vungoc]

Làm sao có thể để ListBox hiện ra có các gird nhỉ ?? Các đường lưới ấy mà.

Các cao thủ giải đáp giúp.

Thân!

Mình thấy dùng listview thì hiển thị được gird (các đường kẻ mờ - phân định dòng và cột). Còn listbox thì chẳng biết có cách nào không (bác Mr Okebab cũng là cao thủ mà còn phải hỏi) thì mình cũng rất muốn được biết.
Mong lắm thay !

 

[Mr Okebab]

Mình thấy dùng listview thì hiển thị được gird (các đường kẻ mờ - phân định dòng và cột). Còn listbox thì chẳng biết có cách nào không (bác Mr Okebab cũng là cao thủ mà còn phải hỏi) thì mình cũng rất muốn được biết.
Mong lắm thay !

Mình có một name là Data, muốn cho Data này vào ListView thì làm sao nhỉ ? Thằng này phức tạp hơn thành ListBox.
(Càng đơn giản càng tốt)
Cảm ơn nhiều !


To Mr Vũ NGỌC :Bác cứ như thế thì ngày mai Báo CA TP HCM đăng tin có 1 Nam thanh niên "cao dàn thoáng máy" nhảy xuống cầu Sài Gòn chết vì xấu hổ đấy.

 

[levanduyet]

Mr.Hieu có thể dùng module listivew này.

'Purpose     :  Add Items to a Listview from a string array
'Inputs      :  asNewItems2d                        A 2d string array of items to add to the listview
'               oLv                                 The Listview to add the items to.
'Outputs     :  Returns True if an error occurred
'Author      :  Andrew Baker
'Date        :  23/07/2000 20:04
'Notes       :  Requires a reference to MSCOMCTL.OCX or COMCTL.OCX
'Revisions   :

Function LvAddItems(asNewItems2d() As String, oLv As Listview) As Boolean

Lê Văn Duyệt

 

[Mr Okebab]

Cảm ơn bác nhiều. Nhưng không có cách nào ngắn hơn hả bác ?? Em đây chân dài nhưng óc là ngắn lắm, bác thông cảm.
Giúp em nhé.
Thân!