Visual Basic 6 ile Transparent form

Formunuzu Transparent hale getirerek hoş bir görünümde olmasını sağlayın

Formunuzu Transparent Hale Getirmek

Formunuza bir modül ekleyin ve aşağıda ki kodu içine ekleyin

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags 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 SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Const GWL_EXSTYLE = (-20) Private Const LWA_COLORKEY = &H1 Private Const LWA_ALPHA = &H2 Private Const ULW_COLORKEY = &H1 Private Const ULW_ALPHA = &H2 Private Const ULW_OPAQUE = &H4 Private Const WS_EX_LAYERED = &H80000 Public Function MakeTransparent(ByVal hwnd As Long, Perc As Integer) As Long Dim Msg As Long On Error Resume Next If Perc < 0 Or Perc > 255 Then MakeTransparent = 1 Else Msg = GetWindowLong(hwnd, GWL_EXSTYLE) Msg = Msg Or WS_EX_LAYERED SetWindowLong hwnd, GWL_EXSTYLE, Msg SetLayeredWindowAttributes hwnd, 0, Perc, LWA_ALPHA MakeTransparent = 0 End If If Err Then MakeTransparent = 2 End If End Function

Formunuza bir tane HScroll Bar ekleyin ve aşağıda ki kodu forma yazın

Private Sub Form_Load() HScroll1.Min = 50 HScroll1.Max = 255 HScroll1.Value = 50 End Sub Private Sub HScroll1_Change() MakeTransparent Me.hwnd, HScroll1.Value End Sub

Transparent form değerleri 0 - 255 aralığındadır. Ben 50 - 255 aralığı kullandım görülebilmesi için yazılım hayatınızda başarılar hepinize

Paşa YAZICI
Marmara Üniversitesi Bilgisayar ve Elektronik Bölümü Sitesi / Bilgironik

TD Software




Reklamlar