Bài học thiết kế số 01
Bài học thiết kế số 02
Bài học thiết kế số 03
Bài học thiết kế số 04
Bài học thiết kế số 05
Bài học thiết kế số 06
_______________
Chúng ta đã học về Comboxbox ở mức độ cơ bản, nếu bạn chưa nhớ thì xem lại
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.
Đầ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é.
Để có dữ liệu thực hành thì chúng ta cần nạp dữ liệu cho nó:
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à:
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:
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
Video minh họa:
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ó:
Mã:
'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
Mã:
'Close UserForm
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
UnhookListBoxScroll
End Sub
Mã:
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
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