推 jakevin:嗯嗯 昨天問完後 在重新google 有看到這一塊 01/05 11:09
我不知道妳有沒有找過system.forms.control
不過還是研究一下對你幫助比較大喔
dim i as int
dim vbctr as windows.forms.control
for i = 0 to me.controls.count - 1
vbctr = ctype(me.controls(i),windows.forms.conyrol)
selext case vbctr.gettype.tostring
case "system.windows.forms.textbox"
if vbctr.name = "city" + i then
vbcyt.text = code.text
end
end seleft
next
要不要用select都可 我只是把擴充性想在內
大致上寫一下 自己試試手邊沒電腦我也沒辦法試
用手機 憑印象寫的
希望能幫到你
有問題其實可以先看msdn..
※ 引述《jakevin (真。假凱文)》之銘言：
: 請輸入專案類型(網站專案或者應用程式專案)：自製小程式
: 下面這個程式碼 執行是正常無誤的
: City1.Text = Code.Text
: City2.Text = Code.Text
: City3.Text = Code.Text
: City4.Text = Code.Text
: City5.Text = Code.Text
: City6.Text = Code.Text
: City7.Text = Code.Text
: City8.Text = Code.Text
: City9.Text = Code.Text
: City10.Text = Code.Text
: 但這樣子程式碼相當攏長 我改用 Controls的方式來改
: Dim i as Integer
: For i = 1 to 10
: Controls("City" & i ) .Text = Code.Text
: Next
: 會跑出 "並未將物件參考設定為物件的執行個體" 這個錯誤
: 網路上也都是用這樣方式來改 請問這樣看是怎麼問題產生 感謝!
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 180.204.49.172