標題:
[發問]
CommandButton1_Click()內如果有CommandButton1是否可以寫成Me?
[打印本頁]
作者:
av8d
時間:
2012-8-17 12:57
標題:
CommandButton1_Click()內如果有CommandButton1是否可以寫成Me?
本帖最後由 av8d 於 2012-8-17 12:59 編輯
Private Sub CommandButton1_Click()
TextBox1 = CommandButton1.Caption
End Sub
CommandButton1是否可以寫成Me?
可是寫成Me會出錯~是否有類似寫法!?
作者:
kimbal
時間:
2012-8-17 20:09
me 的對象是form,不是event對應的物件
Private Sub CommandButton1_Click()
TextBox1 = me.CommandButton1.Caption
End Sub
作者:
av8d
時間:
2012-8-19 14:55
本帖最後由 av8d 於 2012-8-19 14:57 編輯
回復
2#
kimbal
因為希望可以方便複製~所以希望用me取代~可是好像無法不修改?
CommandButton1能否直接對應CommandButton1_Click
CommandButton2能否直接對應CommandButton2_Click
也就是說
me.CommandButton能否直接對應CommandButton1_Click
me.CommandButton能否直接對應CommandButton2_Click
作者:
GBKEE
時間:
2012-8-19 20:43
回復
3#
av8d
你是想如此嗎?
Option Explicit
Private Sub CommandButton1_Click()
The_Control
End Sub
Private Sub CommandButton2_Click()
The_Control
End Sub
Private Sub The_Control()
TextBox1 = ActiveControl.Caption
End Sub
複製代碼
作者:
av8d
時間:
2012-8-19 21:42
回復
4#
GBKEE
是的~謝謝G大!
作者:
av8d
時間:
2012-8-21 10:19
回復
4#
GBKEE
物件不支援此屬性或方法
[attach]12209[/attach]
作者:
av8d
時間:
2012-8-21 10:38
回復
6#
av8d
可以了~原來是名稱衝突到~謝謝G大~
作者:
av8d
時間:
2012-8-21 10:50
回復
4#
GBKEE
[attach]12210[/attach]
不支援此屬性或方法
作者:
GBKEE
時間:
2012-8-21 13:04
回復
8#
av8d
UserForm2 的控制項都置於 MultiPage1 中
所以ActiveControl 都直指向 MultiPage1 控制項 而會有錯誤
修改如附檔 使用物件類別模組
你沒宣告變數的習慣沒改 ,請你自己宣告變數
[attach]12213[/attach]
作者:
av8d
時間:
2012-8-21 15:58
回復
9#
GBKEE
謝謝G大~變數如果非常多~宣告是否可簡單化?
例如
L1C = Label1.Caption
L2C = "甲"
TB1 = TextBox1.Value
NOP = 0
作者:
GBKEE
時間:
2012-8-21 16:21
回復
10#
av8d
表單中有 CommandButton1 , Label1 , TextBox1
表單程式碼
Option Explicit
Dim AR()
Private Sub CommandButton1_Click()
MsgBox Join(AR, Chr(10))
End Sub
Private Sub UserForm_Initialize()
AR = Array(Label1, "甲", TextBox1, 0)
Label1.Caption = "THE_Caption"
End Sub
複製代碼
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
