Xác định vị trí con trỏ chuột trong textbox

[Miccpro]

Các anh chị cho em hỏi, giả sử em có n textbox và 1 Button, đặt con trỏ vào 1 textbox nào đó và kích chuột vào button thì thể biết được con trỏ đang nằm ở textbox nào không ạ? Em xin cảm ơn!

 

[ongke0711]

Bạn ngâm cứu phương thức textbox exit thử xem.
Private Sub Textbox1_Exit
Ctl = Me.ActiveControl.Name
End Sub

 

[HeSanbi]

Bạn đặt tiêu đề một nơi, lại hỏi một ngã.
"Xác định con trỏ chuột đang chọn Textbox nào?"

Sự kiện trong Userform:

Private oTextBox As Object
Private Sub CommandButton1_Click()
  If Not oTextBox Is Nothing Then
    MsgBox oTextBox.Name
  End If
End Sub
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Set oTextBox = Me.ActiveControl
End Sub
Private Sub TextBox2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Set oTextBox = Me.ActiveControl
End Sub

--------------
Sự kiện trong Worksheet:

Private oTextBox As Object
Private Sub TextBox1_GotFocus()
  Set oTextBox = Me.TextBox1
End Sub
Private Sub TextBox2_GotFocus()
  Set oTextBox = Me.TextBox2
End Sub
Private Sub CommandButton1_Click()
  If Not oTextBox Is Nothing Then
    MsgBox  oTextBox.Name
  End If
End Sub

 

[YêuCN]

Bạn đặt tiêu đề một nơi, lại hỏi một ngã.
"Xác định con trỏ chuột đang chọn Textbox nào?"

Sự kiện trong Userform:

Private oTextBox As Object
Private Sub CommandButton1_Click()
  If Not oTextBox Is Nothing Then
    MsgBox oTextBox.Name
  End If
End Sub
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Set oTextBox = Me.ActiveControl
End Sub
Private Sub TextBox2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Set oTextBox = Me.ActiveControl
End Sub

--------------
Sự kiện trong Worksheet:

Private oTextBox As Object
Private Sub TextBox1_GotFocus()
  Set oTextBox = Me.TextBox1
End Sub
Private Sub TextBox2_GotFocus()
  Set oTextBox = Me.TextBox2
End Sub
Private Sub CommandButton1_Click()
  If Not oTextBox Is Nothing Then
    MsgBox  oTextBox.Name
  End If
End Sub

Có cách nào để con trỏ chuột nằm sau text trong một textbox khi dùng sự kiện DoubleClick không a

 

[HeSanbi]

Có cách nào để con trỏ chuột nằm sau text trong một textbox khi dùng sự kiện DoubleClick không a

Me.TextBox1.SelStart = VBA.Len(Me.TextBox1.Text)