多くの試行錯誤の後、最終的にアプリケーションを winform ボタンから最小化することができました。コードは完全に機能します。
Private Sub btnMinWindow_Click(sender As Object, e As EventArgs) Handles btnMinWindow.Click
'This procedure runs when the btnMinWindow is clicked.
'The procedure minizmizes the form and Excel.
Dim WB As Excel.Workbook = CType(Globals.ThisWorkbook.Application.ActiveWorkbook, Excel.Workbook)
Me.WindowState = FormWindowState.Minimized
WB.Application.WindowState = XlWindowState.xlMinimized
End Sub
もちろん、最小化されているものは、最終的には最大化する必要があります。したがって、同じコードで xlMaximized のみを使用するだけでよいと考えました。もちろん、私の仮定は間違っていました。ここに私のコードがあります:
Private Sub btnMinEmployeeDashboard_Click(sender As Object, e As EventArgs) Handles btnMinEmployeeDashboard.Click
'This procedure runs when the btnEmployeeDashboard button is clicked.
Dim WB As Excel.Workbook = CType(Globals.ThisWorkbook.Application.ActiveWorkbook, Excel.Workbook)
WB.Application.WindowState = XlWindowState.xlMaximized
WB.Sheets("employeeBoard").Select()
Me.Close()
End Sub
コードはフォームを閉じ、シートを選択しますが、ウィンドウを最大化しません。私がしなければならないことは、「既に最小化」されている変数をボタン _Click ハンドラーで (スコープ内で) 使用できるようにし、新しい変数を宣言する代わりにそれを使用することだと思います。残念ながら、その場合、私はそれを行う方法がわかりません。