Sự kiện trong uf_form - TextBox

[ngochon1992]

em có 1 cái us form. Khi em dùng máy scan hoặc em bấm enter thì nó vẫn ở trong cái TextBox đó và nó bôi đen cái lệch trong TextBox đó luôn ạ .... em dùng sự kiện gì ạ... nếu tốt hơn anh chỉ cho em vài đoạn code tham khảo ạ. Em cám ơn mọi người giúp đỡ ạ.

 

[Hoàng Trọng Nghĩa]

em có 1 cái us form. Khi em dùng máy scan hoặc em bấm enter thì nó vẫn ở trong cái TextBox đó và nó bôi đen cái lệch trong TextBox đó luôn ạ .... em dùng sự kiện gì ạ... nếu tốt hơn anh chỉ cho em vài đoạn code tham khảo ạ. Em cám ơn mọi người giúp đỡ ạ.

Thử vầy đi:

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Text > "" Then
        Cancel = True
        TextBox1.SelStart = 0
        TextBox1.SelLength = Len(TextBox1.Text)
    End If
End Sub

 

[Hai Lúa Miền Tây]

em có 1 cái us form. Khi em dùng máy scan hoặc em bấm enter thì nó vẫn ở trong cái TextBox đó và nó bôi đen cái lệch trong TextBox đó luôn ạ .... em dùng sự kiện gì ạ... nếu tốt hơn anh chỉ cho em vài đoạn code tham khảo ạ. Em cám ơn mọi người giúp đỡ ạ.

Bạn thử code sau nhé:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = KeyCodeConstants.vbKeyReturn Then
        TextBox1.SelStart = 0
        TextBox1.SelLength = Len(TextBox1.Text)
        KeyCode = 0
    End If
 
End Sub

 

[ngochon1992]

file em nó ok rồi, em cám ơn mọi người rất nhiều ạ