在窗體之間交換VBA +以決鬥屏幕爲中心

Question

我試圖讓我的Main Menu和後續窗體正確地一起運行。我目前發生的事情是在第二次單擊Employee_Form按鈕時，表單加載備份，但隨後跳到QueryClose Sub的末尾，並因某種原因關閉表單！

我有以下代碼：

這將激活當我點擊相關按鈕加載employee_Form。

Private Sub EmpChecker_Click() 
    Main.Hide 
    Employee_Form.Show False 

End Sub 

然後，當我關閉員工表單時激活。

Private Sub UserForm_QueryClose() 
     Employee_Form.Hide 
     Main.Show 
End Sub 

按我說當我點擊EmpChecker按鈕再次形式將在調試出現，但再跳到上面的代碼的結束並關閉表單。

任何想法？我對這種情況有點了解。＃

我的下一個問題是關於居中形式。我們在工作中使用4個屏幕，連接到一臺計算機上我已經嘗試了每種形式的屬性中的所有4個選項，但每個我使用的形式似乎都集中在第二個屏幕中。它相當煩人！無論如何只是讓他們加載到Excel的默認屏幕！？

Answer 1

嘗試刪除False參數

Private Sub EmpChecker_Click() 
    Main.Hide 
    Employee_Form.Show 
End Sub 

要居中您UserForm，有沒有做自動方式，則需要使用一些代碼來執行。

With UserForm1 
    .StartUpPosition = 0 
    .Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width) 
    .Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height) 
    .Show 
End With 

要找到您的用戶窗體在正確的屏幕中，您可以要求當前的窗口位置。

希望這會有所幫助。