none
【VB.NET 控制項】ButtonArray控制項要如何使用? RRS feed

  • 問題

  • 請教一下,有人知道VB.NET 2005中 ButtonArray這個控制項的用法嗎?說明中只提到是用來模擬vb6中Button物件陣列的功能,但沒有說明如何使用。

    用vb6寫一個button的物件陣列,可以順利轉成VB.NET。裡面也有ButtonArray這個控制項,但就是不知道它是怎麼使用的。

    2007年2月7日 上午 08:53

解答

  • 小弟找到方法了,不是正規作法。要自己手動加入。

    1.新增一個物件陣列控制項,如:ButtonArray,LabelArray,...

    2.放入你要的控制項,比如:Button1,Button2,Button3,Button4,Button5,...

    3.【手動增加的地方】:在Form1.Designer.vb中加入

        Me.物件控制項.SetIndex(Me.控制項,Ctype(索引值,資料型態))

        比如:

       Me.btnTest.SetIndex(Me.Button1, CType(0, Short))

       Me.btnTest.SetIndex(Me.Button2, CType(1, Short))

       Me.btnTest.SetIndex(Me.Button3, CType(2, Short))

       Me.btnTest.SetIndex(Me.Button4, CType(3, Short))

       Me.btnTest.SetIndex(Me.Button5, CType(4, Short))

       ps:btnTest為一個控制項陣列

    4.程式碼

       '**Dai 2007/02/08 物件陣列索引測試
       Private Sub btnTest_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnTest.Click
          Dim Index As Short = btnTest.GetIndex(sender)

          Select Case Index
             Case 0 : lblMsg.Text = "我是按鈕1號"
             Case 1 : lblMsg.Text = "我是按鈕2號"
             Case 2 : lblMsg.Text = "我是按鈕3號"
             Case 3 : lblMsg.Text = "我是按鈕4號"
             Case 4 : lblMsg.Text = "我是按鈕5號"
          End Select
       End Sub

     這樣就可以像VB6那樣來寫程式了。

    2007年2月8日 上午 03:53

所有回覆

  • 小弟找到方法了,不是正規作法。要自己手動加入。

    1.新增一個物件陣列控制項,如:ButtonArray,LabelArray,...

    2.放入你要的控制項,比如:Button1,Button2,Button3,Button4,Button5,...

    3.【手動增加的地方】:在Form1.Designer.vb中加入

        Me.物件控制項.SetIndex(Me.控制項,Ctype(索引值,資料型態))

        比如:

       Me.btnTest.SetIndex(Me.Button1, CType(0, Short))

       Me.btnTest.SetIndex(Me.Button2, CType(1, Short))

       Me.btnTest.SetIndex(Me.Button3, CType(2, Short))

       Me.btnTest.SetIndex(Me.Button4, CType(3, Short))

       Me.btnTest.SetIndex(Me.Button5, CType(4, Short))

       ps:btnTest為一個控制項陣列

    4.程式碼

       '**Dai 2007/02/08 物件陣列索引測試
       Private Sub btnTest_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnTest.Click
          Dim Index As Short = btnTest.GetIndex(sender)

          Select Case Index
             Case 0 : lblMsg.Text = "我是按鈕1號"
             Case 1 : lblMsg.Text = "我是按鈕2號"
             Case 2 : lblMsg.Text = "我是按鈕3號"
             Case 3 : lblMsg.Text = "我是按鈕4號"
             Case 4 : lblMsg.Text = "我是按鈕5號"
          End Select
       End Sub

     這樣就可以像VB6那樣來寫程式了。

    2007年2月8日 上午 03:53