作者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/m.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