1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
If DetTab = 0 Then
If DetTab = 0 And TB_distBarres.TextLength < 5 Then
d = TB_distBarres.SelectionStart
Deb = TB_distBarres.Text.Substring(0, d)
Fin = TB_distBarres.Text.Substring(TB_distBarres.SelectionStart)
TB_distBarres.Text = Deb & "0" & Fin
TB_distBarres.SelectionStart = d + 1
TB_distBarres.Select()
Exit Sub
ElseIf DetTab = 0 And TB_distBarres.Text = "" Then
TB_distBarres.SelectionStart = TB_distBarres.TextLength
TB_distBarres.Select()
Exit Sub
Else
TB_distBarres.Select()
Exit Sub
End If
End If |
Partager