mrtit1987 > 28-01-21, 10:21 AM
tranthanhan1962 > 28-01-21, 10:46 AM
ongke0711 > 28-01-21, 12:51 PM
(28-01-21, 10:21 AM)mrtit1987 Đã viết: - Em nhập 1 no hiểu là 1 ký tự đã được nhập. Em nhập tiếp là 2 nó hiểu đã nhập thành 12 và trên textbox nó chuyển thành dạng "12-" và con trỏ nó ở sau dấu "-" đợi nhập tiếp ạ.
- Cách nhập của em có tìm hiểu Iputmask nhưng không khả thi. Vì của em nó có các dạng như sau ạ:
"AA-AA*A, AA-AA*AA, AA-AA-AA*A, AA-AA-AA*AA, AA-AA-AA-AA*A, AA-AA-AA-AA*AA"
mrtit1987 > 29-01-21, 01:50 PM
ongke0711 > 29-01-21, 03:22 PM
Option Compare Database
Option Explicit
Dim blnXoa As Boolean
Private Sub Text0_Change()
Dim sTempText As String
If blnXoa = False Then
sTempText = Me.Text0.Text
If Len(sTempText) - InStrRev(sTempText, "-") = 2 And Right(sTempText, 1) <> "*" Then
Me.Text0.Text = sTempText & "-"
Me.Text0.SelStart = Len(Me.Text0)
End If
End If
End Sub
Private Sub Text0_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
blnXoa = True
Else
blnXoa = False
End If
End Sub
mrtit1987 > 29-01-21, 04:04 PM