Veritabanı Penceresi Kontrol Düğmelerini Etkisizleştirme

[blacksir]

Veritabanını açtığımızda Veritabanın üzerinde bulunan Küçült,Boyutlandır,Kapat düğmelerini nasıl etkisiz hale veya yok edebilirim.

 

[herdogan]

Form düğmelerinden bahsediyorsan
Form özelliklerinde bu ayarların hepsini yapabilirsiniz

 

[blacksir]

Hayır veri tabanı penceresi

Form İçin kolay onu biliyorum veri tabanı penceresini diyorum ben

 

[hozzeybek]

yukarıda araçlar bölümünden başlangıç yazan yeri aç kutucuklardaki işaretleri kaldır.

 

[blacksir]

hayır hayır en dıştaki access penceresinden bahsediyorum

 

[beab05]

Merhaba;

Bir modul oluşturun ve şu kodları kopyalayın..

Private Const GWL_EXSTYLE = (-20)
Private Const GWL_STYLE = (-16)

Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_SYSMENU = &H80000

Private Const HWND_TOP = 0
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED

Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong 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 SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long

Sub HideAccessCloseButton()

    Dim lngStyle As Long

    lngStyle = GetWindowLong(hWndAccessApp, GWL_STYLE)
    lngStyle = lngStyle And Not WS_SYSMENU
    Call SetWindowLong(hWndAccessApp, GWL_STYLE, lngStyle)
    Call SetWindowPos(hWndAccessApp, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_DRAWFRAME)

End Sub

Daha sonra açılış formunun loadına ya da open eventine şu kodu kopyalayın..

HideAccessCloseButton

--------------------------------------------
Geri getirmek için;

UnhideAccessCloseButton

Not: 2007 de çalışmamaktadır...