像Label这样的无窗口控件在运行时如何截取它的消息(如MouseDown)
解决方案 »
- 连接数据库错误
- 如何获得桌面路径?
- ActiveReport1.PageSettings.PaperWidth和ActiveReport1.Printer.PaperWidth到底有没有区别?ActiveReport1.PrintWidth和前面两个的区别
- 出现错误后在什么情况下Err.Number会被清零?
- MSHFlexGrid 在VB6的部件里面怎么没有,到底从哪里引用呢?
- 问一个关于数据库的问题
- 控件大小的问题?
- 请教大家一个问题!!!!!!!
- 图形问题:请求高手?
- 各位领导编辑偶数和奇数时用到的cint是什么意思?
- ~~~急啊!求助>怎样把Access数据库中OLE对象存储的WORD文档内容导出来啊??????????
- 将excel表导入ACCESS数据库的问题?
Option ExplicitPrivate WithEvents lblTest As LabelPrivate Sub Form_Load()
Set lblTest = Controls.Add("VB.Label", "lblTest")
With lblTest
.Caption = "This is a test"
.Move Width \ 2, Height \ 2
.Visible = True
End With
End SubPrivate Sub lblTest_Click()
MsgBox "This is a test", vbOKOnly, App.Title
End Sub