[說明]
本範例是當一個Form上面有多個相同物件如TextBox，想對這些TextBox執行相同程式碼時，初學者通常會把相同程式碼寫N次，如同 [原始程式碼] 所示
相對當TextBox的物件有10個20個甚至更多時，你的程式碼就會非常的多，以下就來分享如何使用 For 加上 Controls，讓程式碼可大量減少
身為程式人的我們，其中一件最驕傲的事，就是「用最少的程式碼，來執行最多的事情」
 

image

 
[原始程式碼]
Private Sub CommandButton1_Click()
TextBox1 = "問問"
TextBox2 = "問問"
TextBox3 = "問問"
TextBox4 = "問問"
TextBox5 = "問問"
TextBox6 = "問問"
TextBox7 = "問問"
TextBox8 = "問問"
TextBox9 = "問問"
TextBox10 = "問問"
End Sub
 
[修改後程式碼]
Private Sub CommandButton1_Click()
  For i  = 1 To 10
    Controls("TextBox" & i).Text = "問問"
  Next
End Sub
 

image

 
[特別說明]
使用 For 加上 Controls 的運用，就可以將程式碼縮成三行
當然這不僅限於控制TextBox，如Label...等所有控制項，都是可透過這種方式衍伸運用
控制項編號請不要使用01、02、03...前面有0的編號，因為這樣FOR迴圈是無法執行的
 
謝謝您閱讀了我的文章，若您喜歡我的文章，希望您幫我按個讚，也幫忙分享給需要的朋友或其他平台，謝謝。
 
 
20180128 黑.png

arrow
arrow
    文章標籤
    For CONTROLS 多個textbox textbox 相同程式碼 VBA EXCEL 程式碼 減少程式碼 相同控制項ˋ 控制項 簡單的程式碼 常用程式碼
    全站熱搜

    黑天使 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄