回 帖 发 新 帖 刷新版面

主题:点CMD按钮窗口居中?

点COMMAND1的时候窗口居中,

下面这段代码似乎不行```需要点多次才能实现
On Error Resume Next
If Button = 1 Or Button = 2 Then Me.Show

回复列表 (共1个回复)

沙发


Private Sub Command1_Click()
    Dim x As Long, y As Long
    x = (Screen.Width - Me.Width) \ 2
    y = (Screen.Height - Me.Height) \ 2
    Me.Move x, y
End Sub

我来回复

您尚未登录,请登录后再回复。点此登录或注册