none
讀取 動態控制項 RRS feed

  • 問題

  •  

    Dim a As Integer    
     Dim b As Integer    
    Dim c As Integer    
         b=4
     For b = 0 To a     
     Dim lab(b) As Label     
    lab(b) = New Label     
    Me.Controls.Add(lab(b))     
    lab(b).Text = "*"   & b.tostring 
         
         
     Dim but(b) As Button     
     but(b) = New Button     
     Me.Controls.Add(but(b))     
     but(b).Text = "選擇" + lab(b).Text     
         
     lab(b).Location = New Point(10, c + 20)     
     but(b).Location = New Point(160, c + 20)     
     c = c + 30     
         
     Next    
    假如B是2
    我要點選but(2)
    點選後 顯示msgbox
    然後 lab(2)的數值 最傳道msgbox 裡面
    2008年8月24日 下午 02:42

解答

  • HI,

     

    宣告陣列是不是應該放在迴圈外面?

     

    For b = 0 To a     
      Dim lab(b) As Label     
      Dim but(b) As Button     

    Next

     

    tihs

    2008年8月25日 上午 01:34