Öndeki Penceriyi Kapatmadan Diğeri Aktif Olmuyor

[icapcı]

Arkadaşlar formlarıma aşağıdaki kodu eklediğim zaman aktif olan penceriyi kapatmadan diğer pencerelere geçemiyorum
bu konuda yardım lütfen

Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
'End If
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If
End Function
-----------------------------------
formun özelliklerinden

Açılan=Evet
Kalıcı=Evet

 

[akd]

Merhaba sayın icapcı,
Bütün formlara
Açılan=Evet
Kalıcı=Evet
yaparsan sorun kalkar bence.

 

[icapcı]

sayın akd yaptım fakat olmadı

tam olarak yapmak istediğim kullanmadığım formu minimize ettiğimde başlat çubuğuna atabilmek ve diğer formumla işime devam etmek, tekrarar lazım olduğunda başlat çubuğundan tıklayıp aktif ettmek bildiğimiz windows mantığı yani ama bu kodu kullanınca bu olay kalkıyo tabi bide açılan=evet kalıcı=evet deyince tümden karıştı.

umarım anlatabilmişimdir.

 

[mehmetdemiral]

Bu modül koyulduğunda bahsettiğniz şey olmuyor. Access penceresini gizlemenin yan etkisi bence sadece bu. Ayrıca bir forma kalıcı özelliği verilince o form kapanmadan alttaki forma geçilemiyor. (en azından öyle biliyorum)

 

[modalı]

Sayın icapcı,

Form üzerine düğüme ekleyin ve diğer kullanmak istediğiniz formu açarken açık olanı kapatın. Böylece hep açık olan önünüzde hazır olur.

İyi çalışmalar

 

[icapcı]

sayın mehmetdemiral ve sayın modalı ilginiz için çok sağolun,
sayın modalı haklısınız en iyi çözüm o olcak sanırım.