溫馨提示×

如何讓MsgBox窗口居中顯示

小樊
309
2024-06-29 22:41:34
欄目: 編程語言

要讓MsgBox窗口居中顯示,可以使用如下的VBA代碼:

Sub CenterMsgBox()
    '計算MsgBox窗口的左上角坐標
    Dim x As Integer
    Dim y As Integer
    x = Application.Left + (Application.Width - 250) / 2
    y = Application.Top + (Application.Height - 100) / 2
    '顯示MsgBox窗口
    MsgBox "這是一個居中顯示的MsgBox窗口", vbInformation, "標題", x, y
End Sub

以上代碼中,首先計算了MsgBox窗口的左上角坐標,然后調用MsgBox函數顯示窗口,并通過傳遞x和y坐標參數使其居中顯示在屏幕中央。

0
亚洲午夜精品一区二区_中文无码日韩欧免_久久香蕉精品视频_欧美主播一区二区三区美女