Anasayfa > Kodlar > Visual basic 6’da saydam form yapmak

Visual basic 6’da saydam form yapmak

Private Const GWL_EXSTYLE = -20
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2&
Private Const WS_EX_LAYERED = &H80000
Private Const WS_EX_TRANSPARENT = &H20&
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 Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Sub SaydamYap(ByVal frm As Form, ByVal SeffaflikDerecesi As Integer)

Dim stil As Long
stil = GetWindowLong(frm.hwnd, GWL_EXSTYLE)
If (stil And WS_EX_LAYERED) = 0 Then
SetWindowLong(frm.hwnd, GWL_EXSTYLE, stil Or WS_EX_LAYERED)
SetLayeredWindowAttributes(frm.hwnd, 0, SeffaflikDerecesi, LWA_ALPHA)
End If
End Sub

Private Sub Form_Load()
SaydamYap(Me, 200)
End Sub

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

Bir Yanıt Bırakı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: