format
具体用法不知,谁来说说??或在TEXTBOX的属性设置窗口中设置。
具体用法不知,谁来说说??或在TEXTBOX的属性设置窗口中设置。
解决方案 »
- 如何在EXCEL的vba中将调用一个网页文件?
- VB中能否动态定义、生成Office.CommandBarButton?
- 谁有InstallShield 安装工具,有的请加我QQ46548917。我急要!VB自带的打包实在太大
- 在一大段代码中怎样快速确定与if对应的else语句
- 如何知道某一路径下是否存在指定的数据库?且如何让数据库的名字就是当天的日期?
- 怪问题!在线结贴给分!不够在加!真心等待答案!
- ADODB.Recordset 的结构可以自己定义吗
- 程序a如何能使程序b中的form1中的button1产生click事件呢?最好能有demo,先谢过了!!!
- ++两星了,问个小问题散分!++
- 请问,串口通讯中如何控制端口各个脚的电位
- 需要实现一个功能:用户提供4个数:X1 Y1 X2 Y2。现要把一个控件从(X1,Y1)移到(X2,Y2)。要有动态效果如何实现?谢谢!
- 画等高线思路
Text1.MaxLength = 2Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc(" ") Then ' Is this Control char?
Exit Sub ' Yes, let it pass
End If If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then
' keep digit
ElseIf KeyAscii = Asc(".") Then
' keep .
ElseIf KeyAscii = Asc("-") Then
' Keep - only if first char
Else
KeyAscii = 0 ' Discard all other chars
End IfEnd Sub
使用like语句好像是 text1.text like "*.__"把,我忘记了
你的方法不行,用户要是输入37238-348.3434.234这种就无法判断。
我要的是用户只能输入*.__这样格式的值,如果即将输入的字符会破坏这种格式,那么就禁止。
shawls(小山)(无业游民)(VB版的众矢之的) :
谢谢,我忘了这个方法,试一试。
text1.text=format(text1.text,"##############0.00")
End sub
[email protected]
Dim potpos As Integer
If KeyAscii = 13 Then '判断是否键入回车
If Text1.Text Like "*.##" Then
Text1.Text = Text1.Text
Else
potpos = InStr(Text1.Text, ".") '定位“.”的位置
If potpos > 0 Then
Text1.Text = Left(Text1.Text, potpos + 2)
ElseIf potpos = 0 Then
Text1.Text = Text1.Text & ".00"'如无小数,则补上两位小数
End If
End If
End If
End Sub