Question

VB 怎样实现多个文本框，只能输入数字和小数点,并保留小数点后两位

Answer 1

Private Sub T2_Change()
Dim str As String
Dim Sn As Integer
Sn = T2.SelStart
str = T2.Text
str = Format(Val(str), "0.00")
T2.Text = str
T2.SelStart = Sn
End Sub Private Sub T2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then '回车后跳到下一个txt
'T3.SetFocus
Else
End If
Select Case KeyAscii
Case 48 To 57, 44, 46, 8
Case Else
KeyAscii = 0
End Select
End Sub

Answer 2

单个的你会做吗？会的话建立一个文本框数组就可以了