作者waiter337 (给开司一罐苏格登)
看板Visual_Basic
标题Re: [VBA ] 同时控制多个物件求助
时间Thu Oct 20 07:51:33 2016
这要小心
由其你的编号超过100以上时会出现错误
譬如textbox401 ~textbox410 (连着号码时常改name不方便,有时後都会跳很远)
^ 有个0
while i < 11
如果我用Controls("Textbox40" & i) 最後会变成 textbox4010
在这种时後要放入text( 变数 ,"00") 就会显示成01~10 而不是1~10
Controls("Textbox4" & text(i,"00"))
^已经让变数自动出现0
最後就会变这样啦
Do While i < 11
Set txt = Me.Controls("Textbox4" & text(i,"00"))
If txt.Text = "" Then
txt.Visible = False
elseIf txt.Text <> "" Then
txt.Visible = true
end if
i = i + 1
Loop
这样也可以试试0,0
因为最近再查如何跨表单 控制不同的控制项 突然考古考到
顺便补充一下
令外请问有没有简单的方式可以跨表单控制不同控制项0,0
a表单控制项去影响b表单控制项 这样
※ 引述《fumizuki (蒙面加菲狮)》之铭言：
: ※ 引述《zybaster (小赛)》之铭言：
: : 请问一下,
: : 如果想以do loop来一次控置相似名称之物件的属性
: : ex.有text1 text2...text10
: : 如果其中之一的isnull属性为ture,使对应的visible属性为false
: : 有办法用回圈来一次运算嘛?
: i = 0
: Do While i < 10
: Set txt = Me.Controls("Text" & i)
: If txt.Text = "" Then txt.Visible = False
: i = i + 1
: Loop
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.35.158.244
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1476921095.A.137.html
※ 编辑: waiter337 (114.35.158.244), 10/20/2016 07:53:23
※ 编辑: waiter337 (114.35.158.244), 10/20/2016 07:54:14
※ 编辑: waiter337 (114.35.158.244), 10/20/2016 07:54:28
※ 编辑: waiter337 (114.35.158.244), 10/20/2016 08:45:07
1F：→ waiter337: 抱歉 12/22 06:25
2F：→ waiter337: text(i,"00")改成format(i,"00") 12/22 06:26