1,453
社区成员
发帖
与我相关
我的任务
分享关于VB中 ADD 对象响应事件
比如
SET ABC=ME.CONTROLS.ADD("VB.LABEL",,"LABEL01")
该如何让LABEL01响应事件。label01_click
我是初学，除了 private sub xxx_click() 不知道有还有别的方法设置事件
在这里貌似 根本不能捕捉到 label01 ........
不管是 ABC,还是 label01,
private sub label01_click()
都没效果，我猜应该是域的问题。
请大大们指点下别的方法设置事件。
问题补充：
private sub form01_load()
set abc=me.controls.add("vb.label",,"label01")
with abc
.caption="abcdefghjklmnn"
.visible=true
.autosize=true
end with
end sub
LABEL可以响应_click,问题是在这里，LABEL是我用代码ADD出来的。
我接着代码 private sub label01_click() ......end sub 却没有反应（abc_click()也一样）
我该怎样让 LABEL01 响应鼠标CLICK?
...全文
请发表友善的回复…
发表回复
clear_zero 2009-06-19
- 打赏
- 举报
Dim WithEvents ABC As VB.Label
Private Sub form_load()
Set ABC = Me.Controls.Add("vb.label", "label01")
With ABC
.Caption = "abcdefghjklmnn"
.Visible = True
.AutoSize = True
End With
End Sub
Private Sub ABC_Click()
MsgBox ABC.Caption
End Sub
Private Sub form_load()
Set ABC = Me.Controls.Add("vb.label", "label01")
With ABC
.Caption = "abcdefghjklmnn"
.Visible = True
.AutoSize = True
End With
End Sub
Private Sub ABC_Click()
MsgBox ABC.Caption
End Sub
feiyun0112 2009-06-19
- 打赏
- 举报
Dim WithEvents ABC As VB.Label
Private Sub form_load()
Set ABC = Me.Controls.Add("vb.label", "label01")
With ABC
.Caption = "abcdefghjklmnn"
.Visible = True
.AutoSize = True
End With
End Sub
Private Sub ABC_Click()
MsgBox ABC.Caption
End Sub
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)
http://feiyun0112.cnblogs.com/
Private Sub form_load()
Set ABC = Me.Controls.Add("vb.label", "label01")
With ABC
.Caption = "abcdefghjklmnn"
.Visible = True
.AutoSize = True
End With
End Sub
Private Sub ABC_Click()
MsgBox ABC.Caption
End Sub
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)
http://feiyun0112.cnblogs.com/
booksoon 2009-06-19
- 打赏
- 举报
用类模块！
工程中加一类模块（Class1)
Class1代码如下:
Private WithEvents mvarCmBtn As CommandButton
Public Property Set CmBtn(ByVal vData As CommandButton)
Set mvarCmBtn = vData
End Property
Public Property Get CmBtn() As CommandButton
Set CmBtn = mvarCmBtn
End Property
Private Sub mvarCmBtn_Click()
MsgBox mvarCmBtn.Name
End Sub
Form代码如下:
Dim a() As Class1
Private Sub Form_Load()
ReDim a(5)
For i = 0 To 5
Set a(i) = New Class1
Set a(i).CmBtn = Me.Controls.Add("VB.CommandButton","cmdObj" & i)
a(i).CmBtn.Visible= True
a(i).CmBtn.Top = i * 500
Next i
End Sub
这是关于增加按钮的,增加label的你改一下吧
工程中加一类模块（Class1)
Class1代码如下:
Private WithEvents mvarCmBtn As CommandButton
Public Property Set CmBtn(ByVal vData As CommandButton)
Set mvarCmBtn = vData
End Property
Public Property Get CmBtn() As CommandButton
Set CmBtn = mvarCmBtn
End Property
Private Sub mvarCmBtn_Click()
MsgBox mvarCmBtn.Name
End Sub
Form代码如下:
Dim a() As Class1
Private Sub Form_Load()
ReDim a(5)
For i = 0 To 5
Set a(i) = New Class1
Set a(i).CmBtn = Me.Controls.Add("VB.CommandButton","cmdObj" & i)
a(i).CmBtn.Visible= True
a(i).CmBtn.Top = i * 500
Next i
End Sub
这是关于增加按钮的,增加label的你改一下吧
