思路兩種方式：1、透過動態按鈕方式建立，2：透過控制元件陣列方式建立。個人傾向於透過控制元件陣列的方式。一般應用都是有規律的建立的，所以用控制元件數組合適些。舉例" 先在窗體上新增一個標準按鈕" 在屬性視窗中，把它的 Index屬性設定成 0" 名稱改為 cmdDynCmd （其它的名稱也行，注意後面的說明）" Visible 可以設定成 FalseOption ExplicitPrivate lCmdIndex As LongPrivate Sub LoadCmdButton()"這兒就是載入動態按鈕的 Dim i& For i = 0 To NNN "這兒NNN等於你需要的按鈕數減1，可以用變數的 "你應該能透過你的“資料庫中"a"表中"名稱"欄位”專案數 來確定值為多少 " *** 注意這兒的 cmdDynCmd 就是設計時確定的按鍵名稱 *** If (lCmdIndex > 0) Then Load cmdDynCmd(i) cmdDynCmd(i).Visible = True "這兒的 Caption 屬性，你自己用程式碼跟你的 資料庫中"a"表中"名稱"欄位內容關聯 cmdDynCmd(i).Caption = "動態按鈕" & i + 1 "這兒的 x 、y 你可以根據 i 的值來進行計算 cmdDynCmd(i).Top = X cmdDynCmd(i).Left = Y "直接 cmdDynCmd(i).move x, y也行 nextEnd Sub" 這兒就是動態按鈕的事件程式碼" 根據 Index 判斷是哪個按鈕觸發了事件" 跟你事先設計好的控制元件陣列完全是相同的用法" ***** 注意！！！注意這兒的 cmdDynCmd 就是設計時確定的按鍵名稱Private Sub cmdDynCmd_Click(Index As Integer) MsgBox "你點選的是第 " & Index + 1 & " 個動態按鈕。", 64 "具體事件程式碼只能你自己寫End Sub
思路兩種方式：1、透過動態按鈕方式建立，2：透過控制元件陣列方式建立。個人傾向於透過控制元件陣列的方式。一般應用都是有規律的建立的，所以用控制元件數組合適些。舉例" 先在窗體上新增一個標準按鈕" 在屬性視窗中，把它的 Index屬性設定成 0" 名稱改為 cmdDynCmd （其它的名稱也行，注意後面的說明）" Visible 可以設定成 FalseOption ExplicitPrivate lCmdIndex As LongPrivate Sub LoadCmdButton()"這兒就是載入動態按鈕的 Dim i& For i = 0 To NNN "這兒NNN等於你需要的按鈕數減1，可以用變數的 "你應該能透過你的“資料庫中"a"表中"名稱"欄位”專案數 來確定值為多少 " *** 注意這兒的 cmdDynCmd 就是設計時確定的按鍵名稱 *** If (lCmdIndex > 0) Then Load cmdDynCmd(i) cmdDynCmd(i).Visible = True "這兒的 Caption 屬性，你自己用程式碼跟你的 資料庫中"a"表中"名稱"欄位內容關聯 cmdDynCmd(i).Caption = "動態按鈕" & i + 1 "這兒的 x 、y 你可以根據 i 的值來進行計算 cmdDynCmd(i).Top = X cmdDynCmd(i).Left = Y "直接 cmdDynCmd(i).move x, y也行 nextEnd Sub" 這兒就是動態按鈕的事件程式碼" 根據 Index 判斷是哪個按鈕觸發了事件" 跟你事先設計好的控制元件陣列完全是相同的用法" ***** 注意！！！注意這兒的 cmdDynCmd 就是設計時確定的按鍵名稱Private Sub cmdDynCmd_Click(Index As Integer) MsgBox "你點選的是第 " & Index + 1 & " 個動態按鈕。", 64 "具體事件程式碼只能你自己寫End Sub