帖子: 29
主題: 10
精華: 0
積分: 47
點名: 0
作業系統: Windows
軟體版本: XP
閱讀權限: 10
註冊時間: 2010-5-10
最後登錄: 2025-4-25

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-1-22 16:00 | 顯示全部帖子

[發問] 動態新增 UserForm 及 CommandButton 後如何寫click的動作？

我以下列程式碼新增一個 UserForm 、CommandButton 再用一個 Class 來執行 Button Click 的動作，但似乎一直無法照著 Class 內的動作去執行 ~~
我不知是哪個部份出了問題 ~~

Dim MyNewForm As Object
Dim NewListBox1 As MSForms.ListBox
Dim NewLabel1 As MSForms.Label
Dim NewCommandButton1 As MSForms.CommandButton

Dim Btn1 As New Class1
Dim MyAddItemCode$
Dim UF_Name$

' Create the UserForm
Set MyNewForm = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)

With MyNewForm
      .Properties("Caption") = "Test_Form1"
      .Properties("Width") = 540
      .Properties("Height") = 350
      '.Name = "Test_Form1"
End With

   Set NewCommandButton1 = MyNewForm.Designer.Controls _
   .Add("forms.CommandButton.1")

With NewCommandButton1

      .Name = "Add_ItemBtn"
      .Left = 235
      .Top = 36
      .Height = 22
      .Width = 50
      .Caption = "新增"
      .Font.Name = "標楷體"
      .Font.Size = 12

End With


Set Btn1.CmdBtn = NewCommandButton1

   ' Show the form
VBA.UserForms.Add(UF_Name$).Show 'vbModeless

'Delete the form
ThisWorkbook.VBProject.VBComponents.Remove VBComponent:=MyNewForm

'ThisWorkbook.VBProject.VBComponents.Remove VBComponent:=Test1
Set MyNewForm = Nothing

Class 的內容

Option Explicit

Public WithEvents CmdBtn As MSForms.CommandButton
Private Sub CmdBtn_Click()
            MsgBox "Test O.K ! "
End Sub

樓主熱帖

C.F

小學生 Rank: 1

帖子: 29
主題: 10
精華: 0
積分: 47
點名: 0
作業系統: Windows
軟體版本: XP
閱讀權限: 10
註冊時間: 2010-5-10
最後登錄: 2025-4-25

2^#

發表於 2013-1-22 16:24 | 顯示全部帖子

其實我還有兩個 ListBox，我主要是點了Button 後要將左邊 ListBox 的文字帶到右邊去 ~~
上方是我先測試一下，結果就不成功了 ~~

TOP

C.F

小學生 Rank: 1

帖子: 29
主題: 10
精華: 0
積分: 47
點名: 0
作業系統: Windows
軟體版本: XP
閱讀權限: 10
註冊時間: 2010-5-10
最後登錄: 2025-4-25

3^#

發表於 2013-1-22 16:41 | 顯示全部帖子

是要搬移的

TOP

C.F

小學生 Rank: 1

帖子: 29
主題: 10
精華: 0
積分: 47
點名: 0
作業系統: Windows
軟體版本: XP
閱讀權限: 10
註冊時間: 2010-5-10
最後登錄: 2025-4-25

4^#

發表於 2013-1-23 11:07 | 顯示全部帖子

感謝您 ~~ 這的確是我要的~~~
只是因為我還會加其它功能 ~~ 所以我相將按鈕的程式碼部份放到 class 中
請問可以怎麼做？

TOP

C.F

小學生 Rank: 1

帖子: 29
主題: 10
精華: 0
積分: 47
點名: 0
作業系統: Windows
軟體版本: XP
閱讀權限: 10
註冊時間: 2010-5-10
最後登錄: 2025-4-25

5^#

發表於 2013-1-24 10:33 | 顯示全部帖子

非常感謝您的指導 ~~ 但我遇到一個問題，我之前就遇到了 ~~

執行這行的時候有時會無法執行 ~~ 不知為何無法會如此~
.Name = "Test_Form1"

TOP

C.F

小學生 Rank: 1

帖子: 29
主題: 10
精華: 0
積分: 47
點名: 0
作業系統: Windows
軟體版本: XP
閱讀權限: 10
註冊時間: 2010-5-10
最後登錄: 2025-4-25

6^#

發表於 2013-1-24 12:02 | 顯示全部帖子

會出現 error 75 訊息 ~~

TOP

C.F

小學生 Rank: 1

帖子: 29
主題: 10
精華: 0
積分: 47
點名: 0
作業系統: Windows
軟體版本: XP
閱讀權限: 10
註冊時間: 2010-5-10
最後登錄: 2025-4-25

7^#

發表於 2013-1-24 16:08 | 顯示全部帖子

我已經手動將表單移除，仍然是如此 ~~ 所以我不知該如何作 ~~

TOP

C.F

小學生 Rank: 1

帖子: 29
主題: 10
精華: 0
積分: 47
點名: 0
作業系統: Windows
軟體版本: XP
閱讀權限: 10
註冊時間: 2010-5-10
最後登錄: 2025-4-25

8^#

發表於 2013-1-24 16:45 | 顯示全部帖子

記憶體啊 ~~~ 應該是如您所說 ~~ 因為這問題不是每次發生 ~~
但有時是連續發生，有時是連續執行也不會發生 ~~

另外就是想請較 ~~ 如果我要取得 MyList2 中所得到的項目，我在Sub Auto_Open() 中
該如何取得？

我用 MyForm.Designer.Controls("MyList2") 不能成功 ~~

TOP

C.F

小學生 Rank: 1

帖子: 29
主題: 10
精華: 0
積分: 47
點名: 0
作業系統: Windows
軟體版本: XP
閱讀權限: 10
註冊時間: 2010-5-10
最後登錄: 2025-4-25

9^#

發表於 2013-1-25 14:11 | 顯示全部帖子

Private Sub MyNewBtn2_Click()
      Dim i%
      Dim Get_Item1

      With Test_Form3

         MsgBox .Item_GetList.ListCount

         If .Item_GetList.ListCount <> 0 Then
                              ReDim Get_Item1(.Item_GetList.ListCount - 1) As String
               For i = 0 To .Item_GetList.ListCount - 1
                  Get_Item1(i) = .Item_GetList.List(i)
                  MsgBox Get_Item1(i)
               Next i
         End If


      End With
End Sub
      我新增了一個 Button 取得了 ListBox 的值，但我要如何讓userform 關閉且讓
      原來的 Sub Auto_Open() 繼續往下跑~？

TOP

C.F