mdsk.net
当前位置:首页 >> 如何将vB里的输入文本框中的数字变成* >>

如何将vB里的输入文本框中的数字变成*

VB6.0可设置文本框的PasswordChar 属性为*号字符,就能达到目的。 PasswordChar 属性,返回或设置一个值,该值指示所键入的字符或占位符在 TextBox 控件中是否要显示出来;返回或设置用作占位符。 PasswordChar 属性示例 本例说明 PasswordChar ...

呵呵,VB是允许这样的。没有加定义限制就可以那样用。别把人想那么差。 你的意思不太明确埃有两种解释埃 1:文本框只输入数字然后引用。 dim x as integer '你可以把x引用到本窗体内的任意处 private sub command1_click() x=val(text1) end sub...

因为你 a,b,c 三个变量定义错误 不应该是字符串类型 而应该是 数值型 dim a as long ,b as long ,c as long

PasswordChar 属性 返回或设置一个值,该值指示所键入的字符或占位符在 TextBox 控件中是否要显示出来;返回或设置用作占位符。 语法 object.PasswordChar [= value] PasswordChar 属性的语法包含下面部分: 部分 描述 Object 对象表达式,其值...

Private Sub Command1_Click() Text1.FontName = "隶书" Text1.FontSize = 25 End Sub 注意,你的电脑必须装有这种字体,否则会出错;其次,字体名称必须准确,比如方正隶书简体,就要写“方正隶书简体”,而不能简称“隶书”

136775565的回答让我长见识了,不过我试了一下,貌似用起来并不方便。 我自己写了一段程序,为了简单起见,限制输入整数。如果再花些时间完善一下,输入小数或其他方面都是完全没问题的。 我的程序如下: Private Sub Text1_KeyPress(KeyAscii A...

Dim a Private Sub Form_Load() Command1.Caption = "修改" End Sub Private Sub Command1_Click() a = InputBox("按确定后 输入的数字将替换文本框中的内容", "请输入数字", Text1.Text, 10) If a = True Then Text1.Text = Val(a) End Sub

Dim a As String Private Sub Form_Load() a = "" End Sub Private Sub Text1_Change() If IsNumeric(Text1.Text) Then a = Text1.Text Else Text1.Text = a End If End Sub

VB中的10进制转换为16进制很简单 定义16进制变量h Dim h As String h = Hex(val(Text1.Text)) val将Text1.Text的文本转换为数字,Hex将数字转换为16进制字符串 如果Text1.Text中的值本来就是16进制,那就不需要转换了 不管是否转换,你希望发送16...

只需在适当的事件里简单的加一句 if isnumeric(text1.text) = false or text1.text = "" then text1.text = 0 即可,就事论事,其他的请不要追问

网站首页 | 网站地图
All rights reserved Powered by www.mdsk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com