Anasayfa > Kodlar > VB6’da Formu görev çubuğundan gizleme

VB6’da Formu görev çubuğundan gizleme


Programınızın birçok formdan oluşuyorsa bütün formların görevçubuğunda dizilmesi pek hoş olmaz.Bu code ile bunu önleyebilirsiniz

 

 

Option Explicit

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 Const  WS_EX_APPWINDOW = &H40000
Private Const   GWL_EXSTYLE= (-20)

Private Sub Command1_Click()

Dim a, b As Long
a = GetWindowLong(hwnd , GWL_EXSTYLE)
b= b And (Not WS_EX_APPWINDOW)
Hide
SetWindowLong hwnd , GWL_EXSTYLE, b
Show

End Sub

Yazan:Ali AYDIN

Email: aaydin@blackcodemail.com

  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: