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

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

dechiuan999

中學生 Rank: 2

帖子: 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

謝謝各位大大！

樓主熱帖

dechiuan999

中學生 Rank: 2

帖子: 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

GBKEE