2016-11-14 93 views
0

我想動態地在vb.net中創建一個按鈕。我正在一家餐廳的銷售點工作。有關如何完成的任何想法?它有一個數據庫。你有沒有關於如何製作餐廳銷售點的想法?在vb.net中用數據庫創建一個動態按鈕

我試圖搜索一些樣本,但找不到正確的過程。

+1

1.'有關如何完成的任何想法?**是**。 2.「你對如何製作餐廳銷售點有任何想法嗎?」**是**。我對你遇到的任何問題都沒有特別的問題。請更新您嘗試過的方式以及卡住的位置。我們不是自由編程站點。 – Codexer

+0

我知道如何製作它!只需從現有供應商購買軟件,不用擔心按鈕。 –

回答

-1
Dim PointButton As Point = New Point 
    Try 
     cn = MySQLi.MySQLConnectionMobile 
     Query = "SELECT `table` FROM `last_sync`" 
     da = New MySqlDataAdapter(Query, cn) 
     ds = New DataSet 
     ds.Clear() 
     da.Fill(ds, Table) 

     ReDim MyButton(ds.Tables(0).Rows.Count) 

     Dim one As Integer = 1 
     For i = 0 To ds.Tables(0).Rows.Count - 1 
      MyButton(i) = New Button 
      MyButton(i).Text = ds.Tables(0).Rows.Item(i).Item(0).ToString 
      MyButton(i).Name = "Table" & one.ToString 
      MyButton(i).BackColor = Color.Transparent 
      PointButton.Y = 3 
      If one = 1 Then 
       PointButton.X = PointButton.X 
      Else 
       PointButton.X = PointButton.X + MyButton(i).Width + 10 
      End If 
      MyButton(i).Location = PointButton 

      DirectCast(main_junk.Panel2, Panel).Controls.Add(MyButton(i)) 
      one += 1 
      AddHandler MyButton(i).Click, AddressOf main_junk.Button_Click 
     Next 
    Catch ex As Exception 
     MsgBox(ex.Message, MsgBoxStyle.Critical, "Uknow Databases") 
    End Try 

其中main_junk是一種形式。 和這一個處理程序

Public Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
    'YOUR CODE HERE 
End Sub