Forum
Aktif konular
Üyeler
Kurallar
Arama
Tahribat.com Forumları 
Visual Basic - Basic - PicBasic ve Türevleri 
Alın Size Turkojan 3.0 Da Olduğu Gibi Saydam Form Alın Size Turkojan 3.0 Da Olduğu Gibi Saydam Form
-
bu kod sayesinde cam gibi formlara sahip olabilirsiniz
form saydamlığını 200 değerini maximum 255 yapabilirsiniz
diğer durumlarda hata veriyor
MODULE
______________________________
Public Const GWL_EXSTYLE = -20
Public Const LWA_COLORKEY = &H1
Public Const LWA_ALPHA = &H2&
Public Const WS_EX_LAYERED = &H80000
Public Const WS_EX_TRANSPARENT = &H20&
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
FORM
______________________________
Public Sub SaydamYap(frm As Form, 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()
Call SaydamYap(Me, 200)
End Sub
-
güzel, fakat bu tip formlar sadece turkojanda olmuyo ki neyse yinede iyi bir konuya deyinmissin...
-
Arkadaşın turkojan konusunda takıntıları var...
-
turkojana her bilgisayara girebilen hack camiasinin mükemmel silahı falan gözüyle bakıyorlar... :] komik
bir zamanlar çok revaçtaydı değilmi?belkide oradan kalma...
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 1721 Toplam Mesaj: 4
Cevapla