UC知道vb问题 什么是模块级别下声明
来源：百度知道 编辑：UC知道 时间：2024/09/21 00:34:43
我学了些vba所以不太明白vb 现在正在用vb操作excel。
请解释一下什么叫模块级别下声明 代码不都是写作模块里的吗？
你说的意思我懂
可这段代码里边报错误 说withEvents仅在模块中有效，按你说的模块级别就是在模块里写我就没有错。
Sub mybutton()
private WithEvents mybutton_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
Select Case Ctrl.Parameter
Case "Hello"
MsgBox "Hello"
Case "Hi"
MsgBox "Hi"
End Select
End Sub
2楼的 加上个sub也不对
请解释一下什么叫模块级别下声明 代码不都是写作模块里的吗？
你说的意思我懂
可这段代码里边报错误 说withEvents仅在模块中有效，按你说的模块级别就是在模块里写我就没有错。
Sub mybutton()
private WithEvents mybutton_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
Select Case Ctrl.Parameter
Case "Hello"
MsgBox "Hello"
Case "Hi"
MsgBox "Hi"
End Select
End Sub
2楼的 加上个sub也不对
变量放在module中什么的就是模块级，在class中申明的就是对象
在form申明的就是窗体级别，也就是当前窗体能够直接使用。
代码可以写进模块,类模块,窗体等
如果在模块,用public声明,那么这个工程都可见.但private声明,只在这个模块可见.
如果写在窗体里,用public声明,其他模块要用 窗体名 加过程名才能引用.
private WithEvents mybutton as CommandButton
private Sub mybutton(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
Select Case Ctrl.Parameter
Case "Hello"
MsgBox "Hello"
Case "Hi"
MsgBox "Hi"
End Select
End Sub
你的模块写错了..
private WithEvents mybutton_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault
改为:
private sub WithEvents mybutton_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault