mdsk.net
当前位置:首页 >> vB中设计文本框中最多允许输入6个字符,输入的字符... >>

vB中设计文本框中最多允许输入6个字符,输入的字符...

这个就是相当于设置密码那个吧, 最长输入6个字符

加一个文本框,一个按钮,属性都是默认,加入以下函数 Private Sub Text1_Change() if len(text1.text) >= 6 then Command1.Enabled = True else Command1.Enabled = False。

1.在Text空间属性里面设置MaxLength 为3 2.在form事件中如下设置 Private Sub Form_Load() Text1.MaxLength = 3 End Sub

对于单行文本框控件,若将 MaxLength 属性设置为 0,则用户能输入的最大字符数为 2147483646 或一个基于可用内存的数目,两数之间选取较小者。意思就是你的可用内存足够大的话,可以输入2147483646 个字符。 对于多行文本框控件,用户能输入的最...

VB中旳文本框要限制输入旳字符数,可以选中这个文本框后,在它的“属性”面板中设置它的MaxLength属性为10,就设定了这个文本框中最多可以输入10个字符。 也可以用代码进行这项设置: Text1.MaxLength=10 如果设置MaxLength属性为0(默认值),就...

s是变量,不该打引号。 下面是用选择语句来处理,可能比较清晰点。 Private Sub Command1_Click() Dim s As String s = Text1 If Len(s) = 1 Then Select Case s Case "a" To "z", "A" To "Z" MsgBox "字母" Case "0" To "9" MsgBox "数字" Case...

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

Text1.Alignment = 0 '左对齐 Text1.Alignment = 1 '右对齐 Text1.Alignment = 2 '居中 'Text 的 Alignment 属性是用来控制文字的 '对齐方向

Private Sub Command1_Click() Label1.Caption = IIf(Len(Text1) > 2, Left(Text1, 1) & Right(Text1, 1), "")End SubPrivate Sub Form_Load() Text1 = "abcde"End Sub

Private Sub Text1_Change() If Len(Text1.Text) > 1 Then Text1.Text = Right(Text1.Text, 1) Text1.SelStart = 2 '把插入点移到第一个字符之后 End If End Sub 在VB6.0下通过调试

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