Skip to main content

AccessTr.neT M.



Access Penceresini Gizleme

Access Penceresini Gizleme

#157
Görev Çubuğunda Gözükmesi için ve gizlenmesi için ayrıca gereken Kod aşağıdadır.

4. YOL

Bir Modül Oluşturup Aşağıdaki Kodu yapıştırın.


Visual Basic Code
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
  
 
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
  ByVal hwnd As Long, _
  ByVal nIndex As Long) As Long
 
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
  ByVal hwnd As Long, _
  ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long
  
Private Const WS_EX_APPWINDOW = &H40000
Private Const GWL_STYLE = -20

Public Function ShowInTaskbar(Lhwnd As Long, Show As Boolean)
Dim lStyle As Long
lStyle = GetWindowLong(Lhwnd, GWL_STYLE)

If Show Then
lStyle = lStyle Or WS_EX_APPWINDOW
Else
lStyle = lStyle And Not WS_EX_APPWINDOW
End If

Call SetWindowLong(Lhwnd, GWL_STYLE, lStyle)

End Function
 
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



Açılış formuna veya tüm formların açıldığında olayına aşağıdaki kodu ekleyin.

Visual Basic Code
Call fAccessWindow("Hide", False, True)
ShowInTaskbar Me.hwnd, True



Not: 64 bit ofis programı kullanan arkadaşlar 

Public Function,
Private Declare Function  alanlarının

Function önüne  PtrSafe   yazsınlar.



64 Bit = Private Declare PtrSafe Function
32 Bit = 
Private Declare Function

POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#158
Mrb. bütün olasılıkları denedim ancak olmadı. Bazı rapor clikler çalışıyor ancak bazıları çalışmıyor, bir tuşta boyutla ilgili hataverdi. Bakabilir misiniz? Birde nerede hata yaptığımı bildirirseniz sevinirim. Bu arada 3. yol kullanıldı.

.zip Daimi Arama.zip (Dosya Boyutu: 341,66 KB | İndirme Sayısı: 4)
Cevapla
...........
#159
bu konu hakkında yardımcı olabilir misiniz? bazı raporlar açılmıyor nedense. bir yerde eksiklik mi var bir baksanız. programda sadece üç rapor açılıyor. onlara tasarım görünümünde kodlarına baktım ama diğerleri ile bir fark yok. çoklu yazdır, veri karşılaştırma ve bir tuş çalışıyor diğerleri bozuk. veri karşılaştırma verial diye bir Excel dosyası ile çalıştırıldığında aktif oluyor ama diğerleri hiç tepki vermiyor.

Cevapla
#160
270598,  birim değişikliği sebebiyle 2,5 yıldır konulardan uzağım. Birazda küstüm....sana arşivimde ki programı kurumsal postana mail atıyorum. Inceĺersin.

"Her tercih, bir vazgeçiştir"

Cevapla
...........
#161
Son Düzenleme: 27/11/2019, 15:18, Düzenleyen: 270598.
Tamam inceleyim. Teşekkürler.

Baktım ama kendi programımla devam etsem daha iyi. Çünkü programa kayıtlı olup, veri kontrolü için aldığım listeleri programda sorgulatıp düşen kaydı olmayanlarla ilgili yeni bir kod yazıldı ve bu baya faydalı olacak, gizleme olayı ise sadece güzel görünmesi için bir cazibesi yok aslında ama maksat uğraşmak. İlginiz için teşekkürler.

Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task