E库技术学院--您的网络技术顾问！	网站首页┊素材图片库┊设计原稿┊网页模板┊网站赏析┊下载中心┊明星图库┊E库论坛

设为首页 加入收藏 我要投稿

E库首页 ┊ 学院首页 ┊ 图形图象 ┊ 网页设计 ┊ 网络编程 ┊ 数据库 ┊ 服务器 ┊ 建站技术 ┊ 业界新闻 ┊ 作者专栏 ┊ 常用范文 ┊ 预留栏目

当前位置：学院首页>>网页设计教程>>其他相关教程>>再谈无边框窗体的操作

再谈无边框窗体的操作 [ 来源：eNet硅谷动力 | 作者：BBS | 时间：2005-8-18 1:07:53 | 浏览：人次 ] 收藏到新浪ViVi ┊ 收藏到365KEY ┊ 收藏到我摘 ┊ 双击滚屏 单击停止 　　设置浮动菜单 　　通常情况下，在无边框窗体中不能设置菜单。如果在无边框窗体中设置了菜单，运行时窗体上就会出现标题栏。那么，是否在无边框窗体中就不能使用菜单了呢？答案是否定的。下面我们介绍用“借鸡下蛋”的方法在窗体中设置浮动菜单。 　　首先借“鸡”——再添加一个窗体，然后用这个“鸡”来下“蛋”——设置菜单。具体操作步骤如下： 　　1.在默认名为Form1的窗体的属性窗口中设置BorderStyle值为0－vbBSNone（没有边框或与边框相关的元素）。 　　2.从菜单“工程/添加窗体”中添加一个窗体Form2。 　　3.在Form2中，单击工具栏中的“菜单编辑器”。在弹出的“菜单编辑器”窗口中，按需要设置一个顶级菜单，下设若干个菜单项（至少一个），并设置好顶级菜单及各菜单项的标题（菜单中显示的文字）和名称（程序调用所需的名称）。注意：此时其顶级菜单的“可见性”可任意设置，因为本文程序中并不需要把这个窗体显示出来（而在一般的浮动菜单中其“可见性”必须设为False）。 　　4.在Form1的Form_MouseUp过程中添加以下代码： 　　Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) 　　’如果用户按的是鼠标右键 　　If Button = 2 Then 　　'激活Form2的浮动菜单，mnuMain为顶级菜单名称 　　PopupMenu Form2.mnuMain 　　End If 　　End Sub 　　5.在Form2的各菜单项的单击事件过程中输入有关代码。 　　编译并运行后，在Form1上点击右键就会弹出设定的菜单。在利用这种方法时，有两点需要注意：一是这种方法虽然多添加了一个窗体，资源略显“浪费”，但实现了编程愿望，也不枉然。而且如果程序中除主窗体外，还需要一个有标题栏的窗体（如“关于”对话框），则可以把菜单建在该窗体中（设计时，使顶级菜单不可见，当然其BorderStyle值不能为0）。这样，不但系统资源得到了充分利用，而且设想的功能也全部实现。二是在Form1窗体中，每次调用Form2的浮动菜单时，会先在窗体Form2中产生Initialize事件，再产生Load事件，然后显示浮动菜单。因此编程时，如果在Form2中含有涉及到上述两过程的代码调用，一定要加以注意。 　　在任务栏中显示图标与系统菜单 　　默认情况下，无边框窗体不在任务栏中显示图标。一般情况下，要使它能在任务栏中显示，只要将其ShowInTaskbar属性设为True。但此时只有标题没有图标，而且，通常情况下的任务栏中鼠标右键的系统菜单也没有。 　　实际上，我们可以用API函数来解决此问题。首先将下面的代码放入窗体的声明段中： 　　'为指定窗体设置信息 　　Private Declare Function SetWindowLong Lib “user32” Alias “SetWindowLongA”(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 　　Private Const GWL_STYLE = (－16) 　　Private Const WS_SYSMENU = ＆H80000 　　Private Const WS_SIZEBOX = ＆H40000 　　Private Const WS_MAXIMIZEBOX = ＆H10000 　　Private Const WS_MINIMIZEBOX = ＆H20000 　　然后在窗体的Load事件过程中添加如下代码： 　　Private Sub Form_Load() 　　Dim lStyle As Long 　　’为任务栏添加图标和系统菜单（仅关闭和移动两个菜单项有效） 　　lStyle = WS_SYSMENU 　　’使“大小”有效 　　lStyle = lStyle Or WS_SIZEBOX 　　’使“最大化”有效 　　lStyle = lStyle Or WS_MAXIMIZEBOX 　　’使“最小化”有效 　　lStyle = lStyle Or WS_MINIMIZEBOX 　　’确定以上设置 　　SetWindowLong hWnd, GWL_STYLE, lStyle 　　End Sub 　运行后就会发现，在任务栏中标题和图标都有了，点击右键也出现了系统菜单，并且其效果与常规的基本一致。与常规窗口不同的有两个地方：一是窗口处于活动状态时，单击不能将其最小化，但用标题栏中的菜单最小化时单击任务栏能恢复。二是“关闭”功能失效，并且当改变了窗体大小时，窗体的效果由原来的平面变为3D，这时可用鼠标调整窗体大小。 　　窗体式样的变化 　　由于Form的BorderStyle属性在运行时是只读的，所以一般情况下在运行时不能改变窗体式样。但我们可以通过API函数并结合上节的相关内容来实现无边框窗体与普通窗体之间的转换，实际上是在保持BorderStyle属性不变的情况下，对标题栏进行了显示与隐藏的操作。 　　首先新建一个工程，在代码窗口添加以下声明和过程代码： 　　’设置窗体结构信息函数 　　Private Declare Function SetWindowLong Lib “user32” Alias “SetWindowLongA”(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 　　’获取窗体结构信息函数 　　Private Declare Function GetWindowLong Lib “user32” Alias “GetWindowLongA”(ByVal hwnd As Long, ByVal nIndex As Long) As Long 　　Private Const GWL_STYLE = (－16) 　　Private Const WS_SYSMENU = ＆H80000 　　Private Const WS_CAPTION = ＆HC00000 　　Private Const WS_SIZEBOX = ＆H40000 　　Private Const WS_MAXIMIZEBOX = ＆H10000 　　Private Const WS_MINIMIZEBOX = ＆H20000 　　’为窗体指定一个新位置和状态函数 　　Private Declare Function 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) As Long 　　Private Const SWP_NOZORDER = ＆H4 　　Private Const SWP_FRAMECHANGED = ＆H20 　　Private Const SWP_NOREPOSITION = ＆H200 　　’获得整个窗体的大小和位置 　　Private Declare Function GetWindowRect Lib “user32”(ByVal hwnd As Long, lpRect As RECT) As Long 　　Private Type RECT 　　Left As Long 　　Top As Long 　　Right As Long 　　Bottom As Long 　　End Type 　　Private Sub Form_Click() 　　Dim lStyle As Long 　　Dim MyRect As RECT 　　Dim Change As Boolean 　　’获取窗体的大小和位置 　　GetWindowRect Me.hwnd, MyRect 　　’取得当前窗体信息 　　lStyle=GetWindowLong(Me.hwnd, GWL_STYLE) 　　If Change Then 　　’分别使系统菜单（包括图标）、标题、大小、最大化、最小化显示/有效 　　lStyle = lStyle Or WS_SYSMENU 　　lStyle = lStyle Or WS_CAPTION 　　lStyle = lStyle Or WS_SIZEBOX 　　lStyle = lStyle Or WS_MAXIMIZEBOX 　　lStyle = lStyle Or WS_MINIMIZEBOX 　　Else 　　’分别使系统菜单（包括图标）、标题、大小、最大化、最小化隐藏/无效 　　lStyle = lStyle And Not WS_SYSMENU 　　lStyle = lStyle And Not WS_CAPTION 　　lStyle = lStyle And Not WS_SIZEBOX 　　lStyle = lStyle And Not WS_MAXIMIZEBOX 　　lStyle = lStyle And Not WS_MINIMIZEBOX 　　End If 　　’按lStyle的值设置窗体信息 　　SetWindowLong Me.hwnd, GWL_STYLE, lStyle 　　’保持窗体的大小与位置不变 　　SetWindowPos Me.hwnd, 0, MyRect.Left, MyRect.Top,MyRect.Right － MyRect.Left, 　　MyRect.Bottom － MyRect.Top,SWP_NOREPOSITION Or SWP_NOZORDER Or SWP_FRAMECHANGED 　　’改变显示/隐藏状态 　　Change = Not Change 　　End Sub 　　这样，每次单击窗体，标题栏就会在显示和隐藏之间进行切换。 “再谈无边框窗体的操作”教程到此结束==>||  相关教程 ☉暂无相关教程 特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 投稿作者： BBS 　信息来源： eNet硅谷动力　录入时间： 2005-8-18 1:07:53 投稿信箱： web#iecool.com

设为首页 - 加入收藏 - 关于我们 - 广告服务 - 版权申明 - 友情链接 - 联系方式 - 会员投稿

E库技术学院 © 2004-2005 Edu.IEcool.Com  浙ICP备05015070号