在VB中如何设置MessageBox的位置?通过什么方法都行。最好有Sample,谢了
解决方案 »
- InvalidateRect失效区不能正常刷新
- vbs运行出现dos窗口,怎么隐藏掉??
- 请问我的按键不响应是怎么回事啊?就是点下去不上来了 不经常出现 怎么解决啊
- 编译错误:定长或者静态数据不能大于64K
- 高分相送,关于VB创建数据库问题
- 那个地方有spread 6.0免费下载的?
- 获取当前输标所在位置句柄的API是什么呀?
- 我想把 MsHFlexGrid 中的一列的数值求和,我要怎么做?
- 如果我想向一个二进制数据文件里输入一些数据,应该怎样做!
- 如何修改 DataGrid 控件中的内容(包括修改,删除,添加等)
- VB代码编辑窗的变量值自动提示功能忽然消失
- 如何求得MSHFlexGrid显示数据时最下面一行得到的是上面数据之和啊?
用SetWindowPos这个函数置窗体位置Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub 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)Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: [email protected]
'Set the window position to topmost
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub