كود جعل الفورم شفاف بالفيجوال بيسك

اليوم جايب لكم كود يبحث عنه الكثير

كود جعل الفورم شفاف بالفيجوال بيسك . Visual Basic 6 .

ضع في الـ ( General )

كود PHP:

Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long , ByValcrKey As Long , ByVal bAlpha As Byte , ByVal dwFlags As Long) As Boolean
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
Const LWA_ALPHA = 2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000

و في مكان تحميل الفورم
( Form Load )

كود PHP:

Private Sub Form_Load()
SetWindowLong hwnd , GWL_EXSTYLE , GetWindowLong(hwnd , GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes hwnd , 0 , 128 , LWA_ALPHA
End Sub

هدا مثال عن التطبيق

بالتوفيق

» أكواد فيجوال بيسك مع شرح مختصر لكل كود
» فجوال بيسك بدون تثبيت
» عمل برنامج لتغيير الايقونة بالفجوال بيسك
» عمل شريط ادوات باستخدام الفجوال بيسك
» أبسط طريقة لاضافة مقطع صوت للمشروع في الفجوال بيسك