麻辣家族討論版版 - Powered by Discuz! Board

Option Explicit
Dim xeVBC As Object
Private Sub Workbook_Open()
Dim e As Object ' VBComponent
Set xeVBC = Application.VBE.ActiveVBProject.VBComponents
For Each e In xeVBC
Debug.Print e.Name, e.Type '模組的Type
If e.Type <> 100 Then xeVBC.Remove e
Next
加入物件類別模組
Report_Make_Form1
End Sub
Private Sub 加入物件類別模組()
With ThisWorkbook.VBProject.VBComponents.Add(2) 'vbext_ct_ClassModule
.Name = "ClassTest"
With .CodeModule
.InsertLines 2, "Public WithEvents MyNewGoNextButton1 As MSForms.CommandButton"
.InsertLines 3, "Private Sub MyNewGoNextButton1_Click()"
.InsertLines 4, "With MyNewGoNextButton1.Parent.MultiPage_Step"
.InsertLines 5, "If .Value = .Pages.Count - 1 Then"
.InsertLines 6, ".Value = 0"
.InsertLines 7, "Else"
.InsertLines 8, ".Value = .Value + 1"
.InsertLines 9, "End If"
.InsertLines 10, "End With"
.InsertLines 11, "End Sub"
End With '
End With
End Sub
Sub Report_Make_Form1()
Dim MyNewForm3 As Variant, I
'Set MyNewForm3 = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)
Set MyNewForm3 = ThisWorkbook.VBProject.VBComponents.Add(3)
'***********************************
'vbext_rk_Project 一般模組
'vbext_ct_ClassModule 物件類別模組
'vbext_ct_MSForm 表單模組
'此參數的常數須在 [工具] 功能表引用項目。
'引用 "Microsoft Visual Basic 的應用程式擴充"
'***********************************
Close #1
Open "d:\MyNewForm.txt" For Append As #1
Print #1, Now & " 開始建立 UserForm"
Close #1
' Shell "notepad.exe d:\MyNewForm.txt", vbMaximizedFocus '****開啟文字檔
With MyNewForm3
.Properties("Caption") = "Report_Generate"
.Properties("Width") = 570
.Properties("Height") = 350
.Name = "Report_Generate_Form"
With .Designer
With .Controls.Add("forms.Multipage.1")
.Name = "MultiPage_Step"
.Left = 10
.Top = 5
.Height = 250
.Width = 550
.Font.Name = "Comic Sans MS"
End With
'之後就 Multipage 中的 Page(0)、Page(1)中新增了一些控制項
With .Controls.Add("forms.CommandButton.1")
'建立個 Button 來按一步讓 MultiPage 到下一頁
.Name = "GoNext_Btn"
.Left = 280
.Top = 258
.Height = 50
.Width = 70
.Caption = "下一步"
.Font.Name = "標楷體"
.Font.Size = 14
End With
End With
' Set Class_obj3(1).MyFormObject1 = MyNewForm3 '.Designer
' Set Class_obj3(2).MyMultiPage1 = MyNewForm3.Designer.Controls("MultiPage_Step")
' 然後利用 Class 方式執行動作
With .CodeModule
.InsertLines 2, "Dim Class_obj As New ClassTest"
.InsertLines 3, "Private Sub UserForm_Initialize()"
.InsertLines 4, "Set Class_obj.MyNewGoNextButton1 = GoNext_Btn"
.InsertLines 5, "End Sub"
End With '
End With
End Sub

複製代碼

Private Sub 加入物件類別模組()
Dim i As Integer, MyString As String
With ThisWorkbook.VBProject.VBComponents.Add(2) 'vbext_ct_ClassModule
.Name = "ClassTest"
With .CodeModule
.DeleteLines 1
Close #1
Open "d:\ClassTest.txt" For Input As #1
Do While Not EOF(1) ' 執行迴圈直到檔尾為止。
i = i + 1
Input #1, MyString ' 將資料讀入變數中。
.InsertLines i, MyString
Loop
Close #1 ' 關閉檔案。
End With '
End With
End Sub

複製代碼

Option Explicit
Public WithEvents MyNewGoNextButton1 As MSForms.CommandButton
Private MyForms As Object
Private Sub MyNewGoNextButton1_Click()
With MyNewGoNextButton1.Parent.MultiPage_Step
If .Value = .Pages.Count - 1 Then
.Value = 0
Else
.Value = .Value + 1
End If
MsgBox MyForms.Caption & " " & .Pages(.Value).Caption
End With
End Sub
Property Set Set_Form(PP As Object)
Set MyForms = PP
MyForms.Caption = "Test " & Time
End Property

複製代碼

Private Sub Report_Make_Form1()
Dim MyNewForm3 As Variant, i As Integer, MyString As String
Set MyNewForm3 = ThisWorkbook.VBProject.VBComponents.Add(3)
With MyNewForm3
With .CodeModule
.DeleteLines 1
Close #1
Open "d:\Report_Make_Form1.txt" For Input As #1
Do While Not EOF(1) ' 執行迴圈直到檔尾為止。
i = i + 1
Input #1, MyString ' 將資料讀入變數中。
.InsertLines i, MyString
Loop
Close #1 ' 關閉檔案。
End With
'
'繼續的程式碼

複製代碼

Option Explicit
Dim Class_obj As New ClassTest
Private Sub UserForm_Initialize()
Set Class_obj.MyNewGoNextButton1 = GoNext_Btn
Set Class_obj.Set_Form = Me
End Sub

複製代碼