Hầu như các controls thuộc UserForm không có sự kiện Enter và Exit trong Class Module nhé bạn.
Vậy mình có giải pháp nào thay thế không anh? Ý em là muốn nhận biết khi nó nhận Focus ấy.
Bạn thêm Frame3 và thử đoạn code này xem
Dim f3
Private Sub Frame3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Not f3 Then
Debug.Print "vô 3"
f3 = True
End If
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If f3 Then
f3 = False
Debug.Print "Ra lúc" & Now
End If
End SubCái này mình nghĩ không hợp lý, ví dụ người ta không dùng chuột và chỉ dùng phím Tab để chuyển qua lại giữa các control (Textbox, Combobox, frame, Listbox...) thì nhận biết bằng cách nào?
Giống quan điểm trên.
OK, để tôi nghiên cứu phương thức khác xem sao, nhưng tôi tin sẽ có giải pháp.
Ván đề của chú thực ra chỉ là clone cái sub MouseMove rồi thay chữ "_Enter" thôi mà.
Option Explicit
Private WithEvents mUSF As MSForms.UserForm
Public Event OnEnter(ctl As MSForms.Control)
Public Event OnExit(ctl As MSForms.Control, Cancel As Boolean)
Private moFormControlEvents As clsFormControlEvents
Private mblnFormUnloaded As Boolean
Private mblnCancel As Boolean
Private mctlPrevious As MSForms.Control
Public Property Set Form(frmNew As MSForms.UserForm)
Set mUSF = frmNew
End Property
Public Property Let Unload(blnUnload)
mblnFormUnloaded = blnUnload
End Property
Private Sub mUSF_Layout()
Call WatchEvents
End Sub
Private Sub WatchEvents()
Set moFormControlEvents = New clsFormControlEvents
Set moFormControlEvents.FormCtrl = Me
Set mctlPrevious = mUSF.ActiveControl
RaiseEvent OnEnter(mUSF.ActiveControl)
Do While mblnFormUnloaded = False
If Not mctlPrevious Is Nothing Then
If Not mctlPrevious Is mUSF.ActiveControl Then
RaiseEvent OnExit(mctlPrevious, mblnCancel)
RaiseEvent OnEnter(mUSF.ActiveControl)
If mblnCancel Then
mctlPrevious.SetFocus
Else
'mUSF.ActiveControl.SetFocus
RaiseEvent OnEnter(mUSF.ActiveControl)
End If
End If
End If
Set mctlPrevious = mUSF.ActiveControl
DoEvents
Loop
End SubOption Explicit
Public WithEvents FormCtrl As clsFormEvents
Private Sub FormCtrl_OnEnter(Ctrl As MSForms.Control)
With UserForms(0)
.Label2 = "You Entered the Control : " & "(" & Ctrl.Name & ")"
If Ctrl.Name = "Frame1" Or Ctrl.Name = "Frame2" Then
.Caption = "Ban dang Click vao " & Ctrl.Name
Else
.Caption = "Nghia dep trai"
End If
End With
End Sub
Private Sub FormCtrl_OnExit(Ctrl As MSForms.Control, Cancel As Boolean)
UserForms(0).Label1 = "You left the Control : " & "(" & Ctrl.Name & ")"
End SubOption Explicit
Private moFormEvents As clsFormEvents
Private mcolFormEvents As Collection
Private Sub UserForm_Initialize()
If mcolFormEvents Is Nothing Then
Set mcolFormEvents = New Collection
End If
Set moFormEvents = New clsFormEvents
moFormEvents.Unload = False
Set moFormEvents.Form = Me
mcolFormEvents.Add moFormEvents
End Sub
Private Sub CommandButton1_Click()
' Unload Me
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
moFormEvents.Unload = True
Set moFormEvents = Nothing
Set mcolFormEvents = Nothing
End SubÝ mình là muốn phát hiện tab nhảy đến Frame đó bạn, còn cái vụ Clone gì đó mình chưa biết rồi (Do mình không chuyên về lập trình nên có thể nó là các từ chuyên ngành nào đó mình chưa tìm hiểu).
Đúng cái này rồi đó anh, nhưng anh có thể chú thích code cho em hiểu với được không? Nhìn code thấy mong lung quá, mà anh có tài liệu nào nói về cái vụ Class Module cho VBA cho em xin với, chủ yếu là mò và nhìn thấy code anh viết thì chẳng biết gì luôn, mới tìm hiểu mà anh chỉ kết hợp 2 cái Class lại thì có lẽ dễ tẩu quả lắm.
Tôi nghĩ bạn nên nghiên cứu trước về nó tại đây:
www.giaiphapexcel.com
