返回列表 上一主題 發帖

[發問] 如何修正物件類別語法呢？

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-12-1 08:46 | 只看該作者

[發問] 如何修正物件類別語法呢？

各位大大好：

   小弟從網業搜集到QEE大大物件類別範例，
執行卻出現〝無法處理所指定物件的事件”
請問應如何修正下列語法呢？
test.rar (7.29 KB)
語法如下：
Option Explicit
Dim WithEvents mc As myClass    '無法處理所指定物件的事件
Public Event Change(ByRef Cancel As Boolean)
Private s$
Public Property Get Value() As String
  Value = s
End Property
Public Property Let Value(ByVal c As String)
  s = c
End Property
Private Sub Class_Initialize()
  s = "abc"  '初始值
End Sub

Private Sub CommandButton1_Click()
  mc.Value = TextBox1 '賦值
End Sub
Private Sub CommandButton2_Click()
  MsgBox "mc當前的值為" & mc.Value '讀值
End Sub
Private Sub mc_Change(ByRef Cancel As Boolean)
  If MsgBox("要改變mc的值嗎?", vbYesNo) = vbNo Then Cancel = True
End Sub
Dim mc As New myClass
Private Sub UserForm_Initialize()  
  Set mc = New myClass  
End Sub



謝謝各位大大！
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-12-1 12:26 | 只看該作者
回復 1# dechiuan999
請問 你是要將UserForm1 中的那一個控制項 設定到物件類別模組 myClass 中

TOP

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
3#
發表於 2012-12-1 16:56 | 只看該作者
回復 2# GBKEE
版主大大您好：

   小弟對物件類別一直處在霧裡看花的皆段，
目前都是由網頁搜尋一些範例來學習。
因此，對此語法真正表達的內含實在無法完全理解解。

小弟再次到QEE大大的網站將其文意複製供版主大大過目，
希望能讓版主有所助益。
載要如下：
http://club.excelhome.net/thread-198049-2-1.html
六、創建類事件

這段代碼實現的是，當點擊CommandButton1時
便會將TextBox1的值賦給mc的Value，
當點擊CommandButton2時便會顯示mc當前的Value值。

此範例其實尚有
第二步：使用RaiseEvent語句引發事件

小弟想說先測試前段語法等理解之後，
再載入第二步的RaiseEvent語句引發事件
來學習。

不知是否因為未完全將語法全部組合而影響到
程式的執行嗎？


感恩大大！

TOP

        靜思自在 : 要批評別人時，先想想自己是否完美無缺。
返回列表 上一主題