讲述VB.NET窗体特殊问题及处理

经过长时间学习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 
 
 
 

网站题目：讲述VB.NET窗体特殊问题及处理
网站路径：http://www.shufengxianlan.com/qtweb/news41/470591.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联