经过长时间学习VB.NET窗体，于是和大家分享一下，从VB6到VB.NET的开发过程中，VB.NET窗体应用始终是一个永恒的话题，看完本文你肯定有不少收获，希望本文能教会你更多东西。任何一个 WINDOWS的应用程序，都与窗体密切相关，在许多场合，我们都需要对窗体进行一些特殊的设置或操作，本文用VB6和VB.NET相结合，来说明VB.NET窗体应用的特殊问题及处理，以及VB.NET给我们带来的新的功能！以下下介绍使窗体在其他所有窗体之上(Allway On Top)VB6中实现（借助API函数SetWindowPos）
- PrivateDeclareFunction SetWindowPos Lib "user32" (ByVal hwnd AsLong,
_ByVal hWndInsertAfter AsLong, ByVal x AsLong, ByVal y AsLong,
_ByVal cx AsLong, ByVal cy AsLong, ByVal wFlags AsLong) AsLong
#t#hWnd变元是窗口的句柄；x，y是窗口的左上角的坐标；cx、cy是窗口宽度和高度；hWndInsertAfter变元是窗口清单中hWnd窗口前面的窗口句柄，有四个可选值：
序号 可 选 值 作 用
1 HWND_BOTTOM 把窗口放在窗口清单的底部
2 HWND_TOP 把窗口放在窗口清单的字符顺序的顶部
3 HWND_TOPMOST 把窗口放在窗口清单的顶部
4 HWND_NOTOPMOST 把窗口放在窗口清单的顶部，最上层窗口之下
WFlags变元为整型值，有八个可选值：
序号 可 选 值 作用
1 SWP_DRAWFRAME 在窗口周围画一个方框
2 SWP_HIDEWINDOW 隐藏窗口
3 SWP_NOACTIVATE 不激活窗口
4 SWP_NOMOVE 保持窗口当前位置
5 SWP_NOREDRAW 窗口不自动重画
6 SWP_NOSIZE 保持窗口当前尺寸
7 SWP_NOZORDER 保持窗口在窗口清单中的当前位置
8 SWP_SHOWWINDOW 显示窗口
- PrivateDeclareFunction SetWindowPos Lib "user32" (ByVal hwnd AsLong,
_ByVal hWndInsertAfter AsLong, ByVal x AsLong, ByVal y AsLong,
_ByVal cx AsLong, ByVal cy AsLong, ByVal wFlags AsLong) AsLong- PrivateConst SWP_NOMOVE = 2
- PrivateConst SWP_NOSIZE = 1
- PrivateConst FLAGS = SWP_NOMOVE Or SWP_NOSIZE
- PrivateConst HWND_TOPMOST = -1
- PrivateConst HWND_NOTOPMOST = -2
- PrivateSub Command1_Click()
- '把窗体放在最前面：
- res% = SetWindowPos(Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
- EndSub
- PrivateSub Command2_Click()
- '使窗体恢复普通模式：
- res% = SetWindowPos(Form1.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
- EndSub
在VB.NET窗体中，太简单了！系统为窗体提供了TopMost属性，我们将TopMost属性设置为True，就实现了Allways On Top 的功能，要取消此功能，设置为False即可。
- PrivateSub Form1_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) HandlesMyBase.Load- Me.TopMost = True
- EndSub
