- 注册时间
- 2011-3-6
- 最后登录
- 1970-1-1
该用户从未签到
|
Option Explicit
Private Sub Text1_Click()
Print "Text1_Click"
End Sub
Private Sub Text1_DblClick()
Print "Text1_DblClick"
End Sub
Private Sub Text1_MouseDown(Button As lnteger, Shift As Integer, X As Single, Y As Single)
Print "Text1_MouseDown"
End Sub
Private Sub Text1_MouseUp(Button As lnteger, Shift As Integer, X As Single, Y As Single)
Print "Text1_MouseUp"
End Sub
Private Sub Text1_MouseDown(Button As lnteger, Shift As Integer, X As Single, Y As Single)
提示这个用户定义类型未定义
请VB高手指点~!~! |
|