文本框和标签的格式问题

walkinfly 2010-08-06 04:06:01

rt
1.我想把文本框输入格式设置成XXX.XX 两位小数的格式，要求输入两位小数输完后不能再输入第三位了；
2.运算出结果显示在一个标签，格式为设为XX.xx%。
请教大虾们，其实就是类似EXECL中的单元格式，VB6 MS没有这个功能，汗，必须自己写，。。。。。。。

...全文

63 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

walkinfly 2010-08-06

打赏
举报

搞定结贴谢谢

jhjinpei 2010-08-06

打赏
举报

限制小数位数,简单地可以这样判断
Private Sub Text1_Change()
If Left(Right(Text1.Text, 4), 1) = "." Then
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End If
End Sub

数字格式化用FORMAT
dim TempNumber as single
Label1.Caption=TRIM(Str(Format(tempnumber,"##.00")))

jhone99 2010-08-06

打赏
举报

[Quote=引用 8 楼 walkinfly 的回复:]
label的format是什么意思只有个dataformat 我设置成了百分数还是不行呢

引用 3 楼 jhone99 的回复:

建议不要用textbox，用maskedbox(工程\部件\microsoft masked edit control 6.0)

label用format
[/Quote]

dataformat 是数据绑定时用的

jhone99 2010-08-06

打赏
举报

Label1.Caption = Format(Text1.Text, "#.00%")

Tiger_Zhao 2010-08-06

打赏
举报

一个 TextBox 就能搞定的

Option Explicit



Private Sub Text1_GotFocus()

    '去除 % 进行输入'

    Text1 = Trim$(Replace(Text1, "%", vbNullString))

    Text1.SelStart = 0

    Text1.SelLength = &HFFFF&

End Sub



Private Sub Text1_LostFocus()

    '无论用户是否输入了 %，一律当作百分数处理'

    Dim sText As String

    sText = Trim$(Replace(Text1, "%", vbNullString))

    Text1 = FormatPercent(Val(sText) / 100, 2, vbTrue)

End Sub

walkinfly 2010-08-06

打赏
举报

label的format是什么意思只有个dataformat 我设置成了百分数还是不行呢
[Quote=引用 3 楼 jhone99 的回复:]

建议不要用textbox，用maskedbox(工程\部件\microsoft masked edit control 6.0)

label用format
[/Quote]

jhone99 2010-08-06

打赏
举报

[Quote=引用 5 楼 walkinfly 的回复:]
啊还我的界面不是全面要改呢

引用 3 楼 jhone99 的回复:

建议不要用textbox，用maskedbox(工程\部件\microsoft masked edit control 6.0)

label用format
[/Quote]

不是全部改，是需要这种格式化输入的换了就可以了