在文本框中输入数字后自动调整格式.txt

VB技巧问答10000例 VB技巧问答10000例

关 于 类 似 200向 200.00的 转 换 可 用 如 下 程 序 实 现 ： 
    Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) 
     If KeyCode = vbKeyReturn Then 
     Text1.Text = re(Text1.Text) 
     End If 
    End Sub 
     
    Private Function re(str As String) As String 
     Dim s1, s2, s3 As String, i As Integer 
     i = InStrB(str, ".") 
     If i = 0 Then 
     re = str + ".00" 
     Exit Function 
     End If 
     s1 = Right(str, 2) 
     s2 = Left(s1, 1) 
     If s2 = "." Then 
     re = str + "0" 
     Exit Function 
     End If 
     re = Text1.Text 
    End Function 
     以 上 代 码 所 用 到 的 事 件 、 方 法 、 函 数 的 详 细 用 法 请 参 阅 VB Help。 用 类 似 方 法 还 可 实 现 诸 如 123456向 123,456.00的 转 换 。 
<END>