再请教一个问题
如何让输入的字符成掩码？
就是密码框内的字符。
本来是：1234
我需要显示的是：*****
但是我当让要能够获取的。
谢谢
[解决办法]
passwordchar="*"
[解决办法]
设置text1的passwordchar为*
[解决办法]
在控件的属性窗口找 passwordchar 设置为* 1234就显示成 ****
设置为#，就显示成 ####
[解决办法]
VBA一样，也是设置text1的passwordchar属性为*，在属性对话框里就可设置。
[解决办法]
TextBox 应该都有 .PasswordChar 属性。
在界面设计时，可以在属性窗口中设置。
[解决办法]
刚刚又在网上找到一个变通的办法：借用IE模块，秀一个带掩码的Inputbox。
这是真正的VB代码哦。
'这就是传说中的带掩码的Inputbox，只是借了IE的壳出来亮亮相。Function GetPassword(myPrompt) Dim objIE Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate "about:blank" objIE.Document.Title = "Password" & String(100, vbTab) objIE.Toolbar = False objIE.Resizable = False objIE.StatusBar = False objIE.Width = 320 objIE.Height = 180 With objIE.Document.ParentWindow.Screen objIE.Left = (.AvailWidth - objIE.Width) \ 2 objIE.Top = (.Availheight - objIE.Height) \ 2 End With ' Insert the HTML code to prompt for a password objIE.Document.Body.InnerHTML = "<DIV ALIGN=""center""><P>" & myPrompt _ & "</P>" & vbCrLf _ & "<P><INPUT TYPE=""password"" SIZE=""20"" " _ & "ID=""Password""></P>" & vbCrLf _ & "<P><INPUT TYPE=""hidden"" ID=""OK"" " _ & "NAME=""OK"" VALUE=""0"">" _ & "<INPUT TYPE=""submit"" VALUE="" OK "" " _ & "OnClick=""VBScript:OK.Value=1""></P></DIV>" objIE.Visible = True On Error Resume Next Do While objIE.Document.All.OK.Value = 0 If Err Then 'user clicked red X (or alt-F4) to close IE window IELogin = Array("", "") objIE.Quit Set objIE = Nothing Exit Function End If Loop On Error GoTo 0 GetPassword = objIE.Document.All.Password.Value objIE.Quit Set objIE = NothingEnd Function'这句只是我拿来测试用的Sub ShowTheInputbox() strPw = GetPassword("Please enter your password:") MsgBox "Your password is: " & strPwEnd Sub