下面代码在我机子上运行得很好啊,多看看帮助.
Private Sub BtnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClose.Click
Txt.Text = Format(CSng(Txt.Text), "0.00")
End Sub
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
TextBox1.Text = Format(CSng(TextBox1.Text), "0.00")
End Sub