How to Make Button Dynamic With VB.NET

នៅក្នុងកម្មវិធីមួយចំនួនតំរូវឱ្យអ្នកធ្វើការបង្កើត Button តាមតម្រូវការរបស់អ្នកប្រើប្រាស់ ឧទាហរណ៍នៅក្នុង​ ប្រពន្ធ័គ្រប់គ្រងការកម្មង់អាហារនៅក្នុង​ភោជនិយ ដ្ឋាន​(Food Order Management System) អ្នកប្រើប្រាស់អាច ធ្វើការបន្ថែមតុ (តំណាងដោយ Button) តាមតម្រូវការ។
ខាងក្រោមនេះនាងខ្ញុំនឹងបង្ហាញអ្នកអំពីរបៀបបង្កើត Button Dynamic ដែលទាញចេញពី​Database ជាមួយ VB.NET។

 


ជាដំបូងសូមធ្វើការ Design Form ដូចខាងក្រោម 

1.       TextBox: txtBtnName
2.       Button: btnAdd
3.       FlowLayoutPanel: FlowLayoutPanelButton
ចំណាំ៖ ចំពោះ Panel ដែលប្រើសម្រាប់ផ្ទុក Button អ្នកគួរជ្រើសយក FlowLayoutPanel ព្រោះវាជួយរៀបចំឱ្យ Button មានលក្ខណៈជាជួរ ដោយមិនចាំបាច់ឱ្យយើងធ្វើការ​ Set Location ទៅលើButtonដោយខ្លួនឯងទេ។
បន្ទាប់មកអ្នកត្រូវមាន​Database សម្រាប់ផ្ទុកនូវ អក្សរសម្រាប់បង្ហាញនៅក្នុង​ Button និមួយៗ ជាមុនសិន​។ ហើយនៅពេលដែលអ្នកបើ  Form លើកក្រោយចំនួន Button ។
 

ការសរសេរកូដ

- កូដសម្រាប់ Save ឈ្មោះ Button 

1	Sub InsertButton(ByVal btnName As String)

2	Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=BTN.accdb")

3	Dim comm As New OleDbCommand("Insert into Buttons Values ('" + btnName + "')", con)

4	con.Open()

5	comm.ExecuteNonQuery()

6	con.Close()

7

End Sub

- កូដសម្រាប់​បង្កើត​Button ដែលត្រូវបានទាញចេញពី Database

1	Sub CallButton()

2	Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=BTN.accdb")

3	Dim comm As New OleDbCommand("SELECT * FROM Buttons", con)

4	con.Open()

5	Dim dr As OleDbDataReader = comm.ExecuteReader

6	While dr.Read

7	Dim btn As New Button

8	btn.Text = dr(0).ToString

9	FlowLayoutPanelButton.Controls.Add(btn)

10

11

End While

12	con.Close()

13

End Sub

**ដើម្បីឱ្យបើក Form មកចេញ​Button ដែលមានឈ្មោះនៅក្នុង​Database សូមហៅ Function CallButton ខាងលើនៅក្នុង​Event Form_Load ដូចខាងក្រោម​​៖

1	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

2	Call CallButton()

3

End Sub

** សូមហៅ​Function InserButton() នៅក្នុង​Event click របស់ btnBtnName ដូចខាក្រោម៖

1	Private Sub btnBtnName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

2	FlowLayoutPanelButton.Controls.Clear()

3	Call InsertButton(txtBtnName.Text)

4	Call CallButton()

5

End Sub