Thiết kế UserForm bài số 07: Điều khiển thanh cuộn bằng chuột giữa trên Userform cho Combobox

[tuhocvba]

Bài học thiết kế số 01

Bạn cần đăng nhập để thấy link

Bài học thiết kế số 02

Bạn cần đăng nhập để thấy link

Bài học thiết kế số 03

Bạn cần đăng nhập để thấy link

.
Bài học thiết kế số 04

Bạn cần đăng nhập để thấy link

.
Bài học thiết kế số 05

Bạn cần đăng nhập để thấy link

.
Bài học thiết kế số 06

Bạn cần đăng nhập để thấy link

.
_______________
Chúng ta đã học về Comboxbox ở mức độ cơ bản, nếu bạn chưa nhớ thì xem lại

Bạn cần đăng nhập để thấy link

nhé.
Lần này cũng giống như Listbox, chúng ta sử dụng code của Module y hệt, ở phần UserForm chỉ thay đổi một chút mà thôi.

Bạn cần đăng nhập để thấy đính kèm

Đầu tiên các bạn hãy tạo một UserForm trên đó có Comboxbox để chúng ta thực hành nhé.

Bạn cần đăng nhập để thấy đính kèm

Để có dữ liệu thực hành thì chúng ta cần nạp dữ liệu cho nó:

'Nap du lieu cho Combobox
Private Sub UserForm_Initialize()
    Dim i As Integer
    
    With Me.ComboBox1
        For i = 1 To 100 Step 1
        .AddItem "tuhocvba.net" & i
        Next i
    End With
End Sub

Nếu người dùng ấn vào dấu X trên UserForm để close UserForm, thì chúng ta không muốn chuột giữa điều khiển Combobox nữa, nên code sẽ là:

'Close UserForm
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
     UnhookListBoxScroll
End Sub

Và phần thay đổi so với listbox chính là ở phần này, để điều khiển chuột cho combobox ta sử dụng code sau:

Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
' start tthe hook
     'HookListBoxScroll
     HookListBoxScroll Me, Me.ComboBox1
End Sub

Chú ý dòng code số 4, tên đối tượng của ta là ComboBox1, không phải là Listbox nhé.
Phần code cho Module thì giống với

Bạn cần đăng nhập để thấy link

, không có gì thay đổi.
Video minh họa:

Bạn cần đăng nhập để thấy đa phương tiện

File download:

Bạn cần đăng nhập để thấy link