VB中怎样将Inputbox中要求输入的字符变为******号?

想弄一个密码验证的小程序,可不知道怎样将由Inputbox函数要求输入的字符输入的时候显示就为******达到保密的效果?
高手给指点一下,谢谢!
我感觉到也是 回答者: niuxiaojia45 - 举人 四级 说的比较对些吧! INputboX估计没那个Passwordchr的属性吧

建议你使用自己做的窗体来当这个密码验证的窗口。密码输入框用textbox,只要把它的passwordchar属性设为 "*"就可以了。

你可以让密码等于txetbox的值来判断

if mima=textq.text then
登录
else
提示
endif
温馨提示:内容为网友见解,仅供参考
第1个回答  2007-09-27
在右边的属性窗口下面的PASSWORLDCHR输入* 一个就好
第2个回答  2007-09-27
在属性passwordchr中输入*
第3个回答  2007-09-27
把属性password设成****
第4个回答  2007-09-27
INPUTBOX 哪有那个什么PASSWOR的先项阿.各位大哥
应该如一楼所说的自己建一个TEXTBOX,然后再进行设定..

VB中怎样将Inputbox中要求输入的字符变为***号?
建议你使用自己做的窗体来当这个密码验证的窗口。密码输入框用textbox,只要把它的passwordchar属性设为 "*"就可以了。你可以让密码等于txetbox的值来判断 if mima=textq.text then 登录 else 提示 endif

vba输入的密码怎么显示为星号,求修改!
建议你使用自定义用户窗体,添加一个 TextBox,修改它的属性:PasswordChar ="*" ,然后就可以轻松实现你的要求了!

vb 中怎么在inputbox输入特定的数字,类似密码,显示为*的
在inputbox属性里有一个“密码显示”的属性设置,就将输入的字符显示为“***”,至于你说的判断输入密码正确与否,然后怎么处理,就靠你程序设计了。

VB程序设计中如何让文本框中的字符变成星号?
在文本框的passwordchar属性里改为*就可以了。 例如:Private Sub Command1_Click()If Text1 = "" Then MsgBox "请输入关键字"WebBrowser1.SetFocus '先得到焦点SendKeys Text1 '发送SendKeys "{enter}" '回车End SubPrivate Sub Form_Load()Text1 = ""Command1.Caption = "百度一下"WebBrowser1.Navigate...

怎麼样使vb inputbox 里面输入的字符为*
把inputbox的默认输入数值写设置为"*"

vb编写程序对输入字符串进行大小写转换。
可以参考下面的代码:Private Sub Command1_Click()Cls x = InputBox("")Picture1.Print UCase(x) '大写 Picture1.Print LCase(x) '小写 End Sub

VB,怎样将上次Inputbox输入的文件名,作为下次执行时弹出对话框中显示的...
新建一个工程,添加一个按钮,代码如下:Option Explicit Private x As String Private Sub Command1_Click()x = InputBox("hello!", "uuu", x)End Sub 运行一下,效果达到了,然后打开代码窗口,理解一下代码!因为,第1次使用 x="",而以后任何一次都是上一次的输入保存在X里了!!

vb 从键盘输入一个小写字母,要求改用大写字母输出(大小写字符ascii差3...
dim r as string r=inputbox("请输入一个小写字母:")r=chr(asc(r)-32)print r

vb中 inputbox 输入框如何实现换行输入 不能用空格换行。
答案补充:你试试这个代码 === Private Sub Form_Click()Print Join(Split(InputBox("请输入用空格分隔的内容", , "中国 日本")), vbCrLf)End Sub === Inputbox无法做到换行输入。只能你自己定义一个给用户的分隔符,接下来用代码进行分隔输出。

在VB,如何将大写字母转换成小写字母,而且在输入数字是会报错
Notice!"Msgbox AAA '只报错,不要求重新输入 '报错且要求重新输入可以改成 'Dim AAA As String 'InputBytes: AAA=Inputbox("输入一串字符")'AAA=LCase(AAA)' If AAA Like "*[0-9]*" Then Msgbox "包含数字,请重新输入",vbCritical,"Notice!":Goto InputBytes Else Msgbox AAA End Sub ...

相似回答