Public Sub TopMostForm(f As Form, Top As Boolean)
If Top Then
SetWindowPos f.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
Else
SetWindowPos f.hwnd, 0, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
End If
End Sub
If Top Then
SetWindowPos f.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
Else
SetWindowPos f.hwnd, 0, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
End If
End Sub
解决方案 »
- 发个猛帖,求高手解答
- vb创建excel对象错误,求解!
- 如何防止将重复项目添加至DataCombo?
- 网页光标定位
- 将HTML转换成文本格式
- excel文件的多个sheet拆分成多个excel文件
- 我想随机抽出20条记录 我该怎么做??
- 有关richtextbox控件????
- 当用户按下ok与按下cancel是vb中执行的语句各是什么? 用户如何从一个form的执行后得到一定的返回值?比如一个String变量
- 关于VB的比较高级的编程应用问题!谁能提供资源?!
- 我用visual CHM工具自己做了一个帮助文件。 如何用F1跳到对应的主题上?
- 200分:[加急] ***在VB中调用chm格式的帮助文件的API。 OK后马上结贴。
不过。。