none
按鈕矩陣設定順序 RRS feed

  • 問題

  • 目前的按鈕矩陣 是參考 Joe Hung 先進的程式碼

    Dim btuArray() As Button = New Button(6) {}
        For i As Integer = 0 To 6
          Dim intH, intW As Integer
          intH = i \ 3
          intW = i Mod 3
          btuArray(i) = New Button()
          Me.Controls.Add(btuArray(i))
          btuArray(i).Text = "Dynamic " & i + 1
          btuArray(i).Top = 12 + btuArray(i).Height * intH
          btuArray(i).Left = 13 + +btuArray(i).Width * intW
        Next

    現在例如我依序增加7個按鈕 btuArray(i).Text為 0,1,2,3,4,5,6

    我想要變成0,2,3,4,1,5,6 (新增到FORM的排列順序) 請問我該怎麼改呢

    研究一整天試不出來...

    請各位幫忙 >"<


    0.0
    2011年5月11日 下午 06:32

解答

  •     Dim intIndex() As Integer = New Integer(6) {0, 2, 3, 4, 1, 5, 6}
        Dim btuArray() As Button = New Button(6) {}
        For i As Integer = 0 To 6
          Dim intH, intW As Integer
          intH = i \ 3
          intW = i Mod 3
          btuArray(i) = New Button()
          Me.Controls.Add(btuArray(i))
          btuArray(i).Text = "Dynamic " & intIndex(i)
          btuArray(i).Top = 12 + btuArray(i).Height * intH
          btuArray(i).Left = 13 + +btuArray(i).Width * intW
        Next
    
    2011年5月12日 上午 01:06

所有回覆

  •     Dim intIndex() As Integer = New Integer(6) {0, 2, 3, 4, 1, 5, 6}
        Dim btuArray() As Button = New Button(6) {}
        For i As Integer = 0 To 6
          Dim intH, intW As Integer
          intH = i \ 3
          intW = i Mod 3
          btuArray(i) = New Button()
          Me.Controls.Add(btuArray(i))
          btuArray(i).Text = "Dynamic " & intIndex(i)
          btuArray(i).Top = 12 + btuArray(i).Height * intH
          btuArray(i).Left = 13 + +btuArray(i).Width * intW
        Next
    
    2011年5月12日 上午 01:06
  • 感激


    0.0
    2011年5月12日 上午 05:27