Maksat, bildiklerini paylaşmaktır elbette.
Sizler gibi yardımcı olanlar olduğu müddetce ne mutlu bu gibi Forum'ları kullananlara.
Toparlayalım o zaman:
Access Menü'sünü GİZLE:
Kod:
Const SW_HIDE = 0 'Pencere (Menü) Gizle
Const SW_NORMAL = 1 'Pencere (Menü) Göster
Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Button1_Click()
Dim hWindow, nResult, nCmdShow As Long
hWindow = Application.hWndAccessApp
nCmdShow = SW_HIDE '<<< Pencereyi Gizleyen
nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
Call ShowWindow(Me.hwnd, SW_NORMAL)
End Sub
Kod:
Const SW_HIDE = 0 'Pencere (Menü) Gizle
Const SW_NORMAL = 1 'Pencere (Menü) Göster
Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Button2_Click()
Dim hWindow, nResult, nCmdShow As Long
hWindow = Application.hWndAccessApp
nCmdShow = SW_NORMAL '<<< Pencereyi GÖSTEREN
nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
Call ShowWindow(Me.hwnd, SW_NORMAL)
End Sub