vb自己设定消息框的显示位置.docxVIP

VB自己设定消息框的显示位置 一般来说，无论你使用 VB自带的MsgBox还是API函数MessageBox，消息框都会在屏 幕的中央弹出。但有时候我们希望它能出现在程序的主窗口附近， 这样无论从察看还是操作 方面都会给用户带来方便。记得我们前面是怎么找到消息框窗口句柄的吗？既然我们能得到 窗口的句柄，就一定能移动它！现在我们就来做一个在程序主窗口居中显示的消息框。 在Module模块中添加以下 API函数、类型以及常量的声明： Public Declare Fun ction GetWi ndowRect Lib user32 (ByVal hwnd As Lon g, IpRect As RECT) As Long Public Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Public Declare Fun ction SetWi ndowPos Lib user32 (ByVal hwnd As Lon g, ByVal hWndI nsertAfter As Long, ByVal x As Lon g, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Public Const SWP_NOSIZE As Lo ng = H1 Public Const SWP_NOZORDER As Lo ng = H4 Public Co nst HWND_TOP As Lo ng = 0 在刚才的窗体上再添加一个 Comma nd按钮和一个Timer控件，代码如下： Private Sub Comma nd2_Click() 这里我们将自己设置消息框的位置 打开计时器，设定10毫秒后改变消息框的位置 Timer2.I nterval = 10 Timer2.E nabled = True 调用 messagebox API 函数 MessageBox Me.hwnd,你见过不在屏幕中央的消息框吗？ ,改变位置的 MessageBox, vbQuesti on End Sub Private Sub Timer2_Timer() Dim hMsgBox As Long, xPo int As Long, yPo int As Long Dim stMsgBoxRect As RECT, stPare ntRect As RECT 找到消息框窗口 hMsgBox = Fin dWi ndow(#32770, 改变位置的 MessageBox) 如果找到窗口就移动它 If hMsgBox Then 得到消息框和父窗口的矩形位置 GetWi ndowRect hMsgBox, stMsgBoxRect GetWi ndowRect Me.hw nd, stPare ntRect 计算位置，以便把消息框放到窗体的中央 xPoi nt = stPare ntRect.Left + (((stPare ntRect.Right - stPare ntRect.Left) \ 2) ((stMsgBoxRect.Right - stMsgBoxRect.Left) \ 2)) yPoi nt = stPare ntRect.Top + (((stPare ntRect.Bottom - stPare ntRect.Top) \ 2) ((stMsgBoxRect.Bottom - stMsgBoxRect.Top) \ 2)) 这里还要确定消息框的显示位置不会超出屏幕 If xPoi nt 0 The n xPoi nt = 0 If yPoi nt 0 The n yPoi nt = 0 If (xPoi nt + (stMsgBoxRect.Right - stMsgBoxRect.Left)) (Scree n.Width Scree n.TwipsPerPixeIX) The n xPoi nt = (Scree n.Width \ Scree n.TwipsPerPixeIX) - (stMsgBoxRect.Right stMsgBoxRect.Left) End If If (yPoi nt + (stMsgBoxRect.Bottom - stMsgBoxRect.Top)) (Scree n.Height Scree n.TwipsPerPixelY) The n yPoi nt = (Scree n.Height \ Scree n.TwipsPerPixelY) - (stMsgBoxRect.