VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 再谈无边框窗体的操作
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:12533, 日期:2001-10-26
再谈无边框窗体的操作

段云辉 段岳辉

--------------------------------------------------------------------------------


本报2001年第13期C13版《操作VB中的无边框窗体》一文介绍了无边框窗体(BorderStyle属性为0的窗体)的移动与改变大小的操作,但在实际应用中,用户的需求远不止这些。本文介绍操作无边框窗体的其他几个方面的技巧。

设置浮动菜单

通常情况下,在无边框窗体中不能设置菜单。如果在无边框窗体中设置了菜单,运行时窗体上就会出现标题栏。那么,是否在无边框窗体中就不能使用菜单了呢?答案是否定的。下面我们介绍用“借鸡下蛋”的方法在窗体中设置浮动菜单。

首先借“鸡”——再添加一个窗体,然后用这个“鸡”来下“蛋”——设置菜单。具体操作步骤如下:

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

这样,每次单击窗体,标题栏就会在显示和隐藏之间进行切换。