Question

zai VB中当combo1选择第二个身份证时text5的MaxLength属性输入的最大数为15 否则text5属性不可见怎么编写

我写的这个
If Combo1.ListIndex = 1 Then
Text5.MaxLength = "18"
Else
Text5.Visible = False
End If

哪里有问题帮忙指点下吧
你说的不行~~还是运行不了

Answer 1

我大概可以理解您的意思，就是说，当combo1中选择“身份证”，则text5限制只能输入15个字符，否则text5直接消失，那么，请尝试以下代码： private sub combo1_click() | if combo1.text="身份证" then | text5.visibale=true | text5.maxlength=15 | else | text5.visible=false | end if | end sub （注：以上代码在使用时请将字符“|”替换成回车，因为手机回答百度问题不可以回车，所以用这个竖线符号代替，抱歉造成的不便）希望对您有所帮助！

Answer 2

首先，Combo的选项的ListIndex的值是从0起，Combo中的第一个选项的ListIndex值是0第二个选项是1
If Combo1.ListIndex = 1 Then
Text5.MaxLength = "18"
Else
Text5.Visible = False
End If]
这段代码中的意思是当Combo选择第二项的时候text5的最大输入长度为18如果不是选择第二项那么text5不可见。
以下代码为选择第一项，text5最大输入长度18选择第二项text5的最大输入长度为15。否则text5不可见。
If Combo1.ListIndex = 0 Then
Text5.MaxLength = "18"
text5.visible=True
Elseif Combo1.ListIndex=1 then
Text5.MaxLength = "15"
text5.visible=True
else
Text5.Visible = False
End If

Answer 3

我尝试努力的去理解楼主所表达的意思，很遗憾，鄙人才疏学浅，没看明白。如果楼主愿意的话，请将这个表述转换成一个简单的情况来表达，不要牵扯到上下文，就说你要做的功能，OK？可以Hi我

Answer 4

If Combo1.ListIndex = 1 Then
Text5.Visible = True
Text5.MaxLength = "18"
Else
Text5.Visible = False
End If