Userformun sağ üstdeki kapat butonunu gizler

Kulanıcı arayüz formu

Userformun sağ üstdeki kapat butonunu gizler

İleti#1)  Erhan Dinçer » 24 Haz 2008 09:59

Kod: Tümünü seç
Private Declare Function GetWindowLongA Lib "User32" _
  (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLongA Lib "User32" _
  (ByVal hwnd As Long, ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long

Private Declare Function FindWindowA Lib "User32" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub UserForm_Initialize()
  Dim hwnd As Long
  hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
    "X", "D") & "Frame", Me.Caption)
  SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sub
Türk gibi Türkçe konuş
Benim yaradılışımda fevkalâde bir şey varsa, Türk olarak dünyaya gelmemdir...
-M.K.ATATÜRK-
Kullanıcı avatarı
Erhan Dinçer
Siteye Alışmış
 
Adı Soyadı:Erhan DİNÇER
Kayıt: 15 Haz 2008 00:14
Konum: AYDIN,ANKARA
Meslek: Elektrik-Elektronik Yüksek Mühendisi
Yaş: 42
İleti: 144
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: AYDIN

Forum UserForm

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 0 misafir

Bumerang - Yazarkafe