你为什么要用 WithEvents 你知道吗? 你知道 WithEvents 有什么用吗? 你的好奇心不错,不过你不会对没见过的东西就用刀坎坎看会不会死掉吧?呵呵 真是“服了you”WithEvents 的使用是用在有事件的控件或对象上的 你的类型是个“y”,难道你还真拿“y”作了个代事件的类呀,呵呵 那么就该叫那个类“y类”了,呵呵定义变量是这样的 Dim 变量名称 As 变量类型 如: Dim X As Long如果你想处理某个类的事件时,才会用好 WithEvents 来定义变量 如: Dim WithEvents Multimedia As BLSMultimedia'这就是用 WithEvents 定义完类之后才会出现的事件 Private Sub Multimedia_PositionChange(ByVal nPosition As Variant) Label10.Caption = nPosition & "/" & Multimedia.PositionLength End Sub当然我这个类你用不了的,是我自己的类
大哥,我是下载了两个实例,里面人家用的WithEvents。y只是我随便写的。 因为我无法运行,他用的Dim WithEvents x As TrayMe,TrayMe在另一个TrayMe.vbp里面,但是不能运行。
你知道 WithEvents 有什么用吗?
你的好奇心不错,不过你不会对没见过的东西就用刀坎坎看会不会死掉吧?呵呵
真是“服了you”WithEvents 的使用是用在有事件的控件或对象上的
你的类型是个“y”,难道你还真拿“y”作了个代事件的类呀,呵呵
那么就该叫那个类“y类”了,呵呵定义变量是这样的
Dim 变量名称 As 变量类型
如:
Dim X As Long如果你想处理某个类的事件时,才会用好 WithEvents 来定义变量
如:
Dim WithEvents Multimedia As BLSMultimedia'这就是用 WithEvents 定义完类之后才会出现的事件
Private Sub Multimedia_PositionChange(ByVal nPosition As Variant)
Label10.Caption = nPosition & "/" & Multimedia.PositionLength
End Sub当然我这个类你用不了的,是我自己的类
因为我无法运行,他用的Dim WithEvents x As TrayMe,TrayMe在另一个TrayMe.vbp里面,但是不能运行。