RE: chỉ dùm bôi đen text trong form textbox
bo bin > 05-12-18, 12:56 PM
Mình viết mã như thế nầy:
Private Sub SOCONG_Enter()
SOCONG.SelStart = 0
SOCONG.SelLength = Len(SOCONG.Text)
SendKeys "^C"
thì khi enter tới nó thì bàn phím numlock bị tắt và dấu phân cách , sẽ đổi thành .
còn mình viết như thế nầy: (theo bạn XUAN THANH đã hướng dẫn)
Option Compare Database
Option Explicit
Public Function SelText(txtText As TextBox)
txtText.SelStart = 0: If Len(txtText) > 0 Then txtText.SelLength = Len(txtText)
End Function
gọi trong form
Private Sub SOCONG_Enter()
Call SelText(SOCONG)
End Sub
thì numbock củng tắt và nó chỉ bôi đen số nguyên thôi số lẻ không bôi.
mong được các bạn hướng dẫn chi tiết hơn.
xin cám ơn.