返回列表下一主題上一主題發帖

[發問] 如何讓表單物件對應到物件類別內呢？

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-5-15 14:24 | 只看該作者

[發問] 如何讓表單物件對應到物件類別內呢？

各位大大好：

p-1.rar (12.66 KB)
  小弟對物件類別很著迷，
但在學習過程一直碰壁。
現小弟摸擬一問題如下
一、新增表單內含TEXTBOX1
及COMMANDBUTTON1
Option Explicit
Dim mycls1 As mClass1
Private Sub CommandButton1_Click()
With mycls1
      .test2 mycls1    '由此可執行，而改由在 MCLASS1的MCMD1_CLASS會出現ERROR
End With
End Sub

Private Sub UserForm_Initialize()
Set mycls1 = New mClass1
With mycls1
      Set .Txt1 = Me.Controls("TextBox1")
      Set .Cmd1 = Me.Controls("CommandButton1")
      .mTxt1 = "test"
End With
End Sub

二、新增二個物件類別

--- MCLASS1 ---

Option Explicit

Public myCls2 As mClass2
Public WithEvents mTxt1 As MSForms.TextBox
Public WithEvents mCmd1 As MSForms.CommandButton

Public Property Set Txt1(setTxt1 As MSForms.TextBox)
Set mTxt1 = setTxt1
End Property
Public Property Set Cmd1(setCmd1 As MSForms.CommandButton)
Set mCmd1 = setCmd1
End Property

Private Sub Class_Initialize()
Set myCls2 = New mClass2
End Sub
Private Sub mCmd1_Click()
'myCls2.mTest mycls1
test2 mClass1    '二種方式會出現執行階段錯誤'424' 此處須要物件

End Sub
Function test2(ByVal mycls1 As mClass1)
myCls2.mTest mycls1
End Function

--- MCLASS2  ---

Option Explicit

Sub mTest(ByVal mycls1 As mClass1)
Dim mStr As String
With mycls1
      mStr = .mTxt1
End With
End Sub

請問應如何修改在MCLASS1的MCMD1_CLICK增設MCLS1物件呢？
感恩各位大大！