怎么让窗口显示在最前面,不管打开什么文档都不能遮挡它,怎么做呢?请指教,分不多也要给的。
解决方案 »
- VB数据表形式请教?
- VB怎么写XML文件,是在已有的后面追加
- 新手请教,控件注册的本质含义是什么?是指将信息写入注册表吗?还是有别的意思?
- vb adodc 无效的外部过程??
- Installshield Express 安装教程!!!!!!!!!!!!!!!!!在线等待
- 水晶报表高手请进来,关于水晶报表打印问题..高分求问(解决就截贴).....
- 系统时间的问题(高手请进)
- 怎么使optionbotton是透明的??
- 我想学VB,想问问各位先辈最早是看什么书入门的?
- 初级问题!什么是水晶报表? 要怎样用? 最好能给举个例子.
- 如果将一个字符变量转换为窗体类型.
- 一个关于textbox的简单问题
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1'//SET FORM ON TOP(窗體至上)
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongPublic Sub SetFormOnTop(myForm As Object) '窗體放在最頂上
SetWindowPos myForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub