我想你是要设置窗体在最前面是的么?api实现
SetWindowPos SplashForm.hwnd, 0, SplashForm.Left / Screen.TwipsPerPixelX, _
SplashForm.Top / Screen.TwipsPerPixelY, SplashForm.Width / Screen.TwipsPerPixelX, _
SplashForm.Height / Screen.TwipsPerPixelY, &H40
SetWindowPos SplashForm.hwnd, 0, SplashForm.Left / Screen.TwipsPerPixelX, _
SplashForm.Top / Screen.TwipsPerPixelY, SplashForm.Width / Screen.TwipsPerPixelX, _
SplashForm.Height / Screen.TwipsPerPixelY, &H40
解决方案 »
- VB 如何实现把本地ACCESS 数据库记录,转存至远程服务器 SQL SERVER 2000?
- 获取EXE文件版本号
- 请教各位能人,查询语句为啥在设置断点时,可以显示出数据,而在未设断点直接运行却无法正确显示,在线等……
- 请问,如何动态添加 RichTextBox 控件?非常急、、、、、、
- 请大虾千万帮忙,这厢有理了!!!!
- 请教一个自认为高级的Oracle开发问题
- Sql server 中的boolean
- 求助:如何打开excel里的内容,读取后放到msflexgrid网格中?
- 如何给某个按钮增加Ctrl+Enter热键?
- 整整做了一整天,扫雷游戏终于完工了!庆祝!!!(来者有分)
- 兄弟们帮忙推荐几个较好的电子论坛,谢谢!
- 在VB中通过字符串调用一个外部dll中的函数,是用哪个函数?
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_SHOWWINDOW = &H40Private Sub Command4_Click()
Hide
End SubPrivate Sub Form_Load()
'使 窗 口 Always On Top用
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub热键 form1.show