Skip to main content

AccessTr.neT


Access Gizleme+ Üst Menü + Pencereler

Access Gizleme+ Üst Menü + Pencereler

#1
Bu çalışma www.accesstr.net üyeleri için Mehmet Demiral Tarafından çevrilmiş ve uyarlanmıştır.
Bu çalışmada farklı bir yöntemle Access dosyasının tıpkı bir exe gibi çalışması ve Access penceredsinin gizlenmesi sağlanmaktadır.
Bende bu güzel paylaşımı pekiştirmek için kullanım açısından bazı görsel programlardaki Pencereler(Windows) eklentisi gibi kullanılabilir bi uygulamada yapılabilirmi düşüncesiyle bir fikir vermek için bu şekilde bir düzenleme yaptım.
Bazı sıkıntılar var mesela pencereler açıkken çıkışa bastığımızda Access hata raporu gönderiyor ? bununla ilgili bir çözüm illaki vardır diye düşünüyorum.
[Resim: pencereler.jpg]
.zip pencereler.zip (Dosya Boyutu: 12,31 KB | İndirme Sayısı: 539)
Yerin seni çektiği kadar ağırsın...
Son Düzenleme: 07/09/2010, 01:54, Düzenleyen: sendegizli.
Cevapla
#2
Teşekkürler sn. sendegizli,
Cevapla
#3
Örnek nedir
nasıl çalışır anlamadım @sendegizli
içinde label ve kodlar olan bir form var
Kod:
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Const GW_CHILD = 5
Private Const GW_HWNDNEXT = 2

Private Sub Form_Load()
Dim hWnd As Long
    SetWindowRgn hWndAccessApp, CreateRectRgn(0, 0, 0, 0), True
    CommandBars("pencereler").Enabled = True
    CommandBars("pencereler").Visible = True
    CommandBars("pencereler").RowIndex = 0
    hWnd = GetWindow(hWndAccessApp, GW_CHILD)
    PrzeniesMenuNaFormularz hWnd
End Sub
Private Sub PrzeniesMenuNaFormularz(hWnd As Long)
Dim TitleString As String * 256
    Do While hWnd <> 0
        GetWindowText hWnd, TitleString, 256
        If TitleString Like "pencereler*" Then
            SetParent hWnd, Me.hWnd
            Exit Do
        End If
        PrzeniesMenuNaFormularz GetWindow(hWnd, GW_CHILD)
        hWnd = GetWindow(hWnd, GW_HWNDNEXT)
    Loop
End Sub
Private Sub Form_Unload(Cancel As Integer)
    CommandBars("pencereler").Enabled = False
    SetWindowRgn hWndAccessApp, 0, True
End Sub

@benbendedeilem
Son Düzenleme: 28/04/2020, 08:47, Düzenleyen: accessman.
Cevapla
#4
merhaba,

forma kodu kopyaladım fakat aşağıdaki kod sarı olarak işaretlendi neden olabilir.
CommandBars("pencereler").Enabled = False

teşekürler.
Cevapla
#5
Valla bende anlamadım ana form açılıyor başkada bir şey olmuyor, menü yok Access gizlenmiyor???
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task