mdsk.net
当前位置:首页 >> VB程序设计中如何让文本框中的字符变成星号? >>

VB程序设计中如何让文本框中的字符变成星号?

在文本框的passwordchar属性里改为*就可以了

将TextBox的PasswordChar属性设置为“*",如下图所示

假定文本框为Text1,命令按钮为Command1,则: Private Sub Command1_Click() Text1.PasswordChar = "*" End Sub

用vb登录界面密码显示为星号 如果你用text控件为输入密码框的,那么只要设置对应的TEXT控件即可,例: Text1.PasswordChar = "*"

修该文本框的passwordchar属性,可以在属性窗口设置,也可以用代码设置,如: text1.passwordchar="*" 调用时和一般文本框一样

星号不好看,我就不弄型号,我像QQ密码那样是圆点,如果你也想像QQ密码那样弄成圆点就1.把文本框字体设为wingdings2.PasswordChar属性设为l(一定要是小写的L,否则不是圆点,是其他形状)

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

Private Sub Form_Click() Dim i As Integer '定义i为整型变量 Dim j As Integer '定义j为整型变量 For i = -2 To 2 For j = 1 To 3 - Abs(i) Print String(1, "*"); Next j Print '换行 Next i End Sub 这样就满足题意了,试试就知道了!

觉得String(i,"*")不习惯,可以用常规的 For i = 1 To 6 '行数 For j = 1 To 7 - i '列数,随着i变大j变小 Print "*"; Next j Print '换行 Next i

Private Sub cmdPOJ_Click() Dim n As Integer n = Val(InputBox("please input the line number")) print string(n,"*") End Sub

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