VB For迴圈+變數名稱寫法問題(我是初學者)

程式設計 vb for

com8831535 2010-11-22 11:40:27 ‧ 25104 瀏覽

分享至

小弟最近自學VB...
由於以前只學過Tcl而都沒學過VB,所以有些問題在各位前輩眼中是小問題,
但是在我身上卻是我的大問題啊!!!
請有經驗的大大們指點迷津吧!!!

我遇到的問題是...
例如:現有3個button,Name分別為but1,but2,but3,而Enable皆為Fales
若我需要用For迴圈將3個button的Enable改為True,該如何寫??

我只知道TCL寫法...
for {set i 1} {$i < 4} {incr i} {
but$i.Enable=True
}

但是我卻一直摸不會VB的寫法...請各位先進教一下吧!!!感激不盡︿︿

鳴人 iT邦新手 2 級 ‧ 2010-11-24 01:05:51 檢舉

如果你的Button是1、2、3、4、5…這樣的數字遞增，用下列的迴圈方式就不會產生"But1"和"But10"的問題，因為用的不是StartWith函數。

'假設有30個Button，但是一般來說應該不會這麼多吧？
For i As Integet=1 to 30
If Me.FindControl("but" & i) Is Not Nothing Then
CType(Me.FindControl("but" & i),Button).Enabled=True
End If
Next

上述的是.Net的寫法，若是VB6的話就會是另外一種的寫法了。

ycl8000 iT邦高手 1 級 ‧ 2010-11-24 08:19:26 檢舉

若VB6的話,可直接用控制項陣列處理.

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

lordrd

iT邦新手 2 級 ‧ 2010-11-22 12:59:37

最佳解答

試試

For Each cobj In Form.Controls
if cobj.Name = "but1" then cobj.Enable = true
Next

回應 3
分享
檢舉

com8831535 iT邦新手 3 級 ‧ 2010-11-22 13:55:05 檢舉

非常感謝你的回覆!!
我有用你的解答改了之後去試看看!!
但是有點錯誤~不知道哪裡有錯??
能替我看一下嗎??

Dim i As Integer = 0
Dim j As String
For i = 1 To 3
j = "but" & i
For Each CObj In Me.Controls
If i < 3 Then
CObj(.Name = j)
CObj(.Enable = True)
End If
Next
Next

錯誤發生在For Each CObj In Me.Controls這行
[In 必須又'(']<----這是什麼意思??