Kiểm tra xem Textbox nào đang có con trỏ chuột

[minhxaydungvinh]

Em có 1 userform bao gồm nhiều textbox. có cách nào Kiểm tra xem Textbox nào đang có con trỏ chuột không ạ? Cảm ơn các bác

 

[batman1]

Vấn đề là bạn muốn kiểm tra khi nào, ở tình huống nào.

Ví dụ: Đặt trên UserForm 3 TextBox, 1 CommandButton và 1 Label1.
Nhập code

Private Sub Label1_Click()
Dim controlName As String
    controlName = Me.ActiveControl.Name
    MsgBox "Dieu khien co focus ten la: " & controlName
End Sub

Bây giờ click vào TextBox1, TextBox2, TextBox3 hoặc CommandButton1. Sau mỗi lần click như thế thì click vào Label.

 

[minhxaydungvinh]

Vấn đề là bạn muốn kiểm tra khi nào, ở tình huống nào.

Ví dụ: Đặt trên UserForm 3 TextBox, 1 CommandButton và 1 Label1.
Nhập code

Private Sub Label1_Click()
Dim controlName As String
    controlName = Me.ActiveControl.Name
    MsgBox "Dieu khien co focus ten la: " & controlName
End Sub

Bây giờ click vào TextBox1, TextBox2, TextBox3 hoặc CommandButton1. Sau mỗi lần click như thế thì click vào Label.

Em có 1 listbox chứa các công việc, 2 textbox 1, textbox2 thuộc frame "Nha hoc"; 2 textbox 3, textbox4 thuộc frame "Nha de xe". Em muốn khi click chuột vào 1 trong 2 textbox 1 hoặc textbox2 sau đó click vào listbox thì nội dung trong listbox sẽ hiện lên textbox 1 và textbox 2. Tương tự cho textbox 3 và textbox 4 ạ.
Cảm ơn bác đã quan tâm ạ

 

[huuthang_bd]

Có thể làm vầy

Private Nhom As String
Private Sub Frame1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Nhom = "Nha hoc"
End Sub
Private Sub Frame2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Nhom = "Nha de xe"
End Sub

 

[minhxaydungvinh]

Có thể làm vầy

Private Nhom As String
Private Sub Frame1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Nhom = "Nha hoc"
End Sub
Private Sub Frame2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Nhom = "Nha de xe"
End Sub

Cảm ơn bác nhiều ạ

 

[vu_tuan_manh_linh]

Em có 1 listbox chứa các công việc, 2 textbox 1, textbox2 thuộc frame "Nha hoc"; 2 textbox 3, textbox4 thuộc frame "Nha de xe". Em muốn khi click chuột vào 1 trong 2 textbox 1 hoặc textbox2 sau đó click vào listbox thì nội dung trong listbox sẽ hiện lên textbox 1 và textbox 2. Tương tự cho textbox 3 và textbox 4 ạ.

Giải pháp của bạn loằng ngoằng quá. Thay vì tích vào textbox rồi lại tích vào listbox, bạn làm luôn cái sự kiện double_Click cho textbox để hiện thị luôn thông tin lên listbox.