تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
فتج الفورم بطريقة جميله جدا
#1
فتج الفورم بطريقة جميله جدا

PHP كود :
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long
Private Declare Function 
SetLayeredWindowAttributes _ 
Lib 
"user32.dll" (ByVal hwnd As LongByValcrKey As 
Long
ByVal bAlpha As ByteByVal dwFlags As Long) As Boolean 
Private Declare Function SetWindowLong Lib "user32" 
Alias 
"SetWindowLongA" (ByVal hwnd As Long
ByVal nIndex 
As LongByVal dwNewLong As Long) As Long 
Private Declare Function GetWindowLong Lib "user32" 
Alias 
"GetWindowLongA" (ByVal hwnd As LongByVal nIndex As Long) As Long 
Const LWA_ALPHA 
Const GWL_EXSTYLE = (-20
Const 
WS_EX_LAYERED = &H80000 
Dim i 
As Integer 
Private Sub Form_Load() 

Timer1
.Interval 
End Sub 
Private Sub Timer1_Timer() 

SetWindowLong hwnd
GWL_EXSTYLEGetWindowLong _ 
(hwndGWL_EXSTYLE) Or WS_EX_LAYERED 
SetLayeredWindowAttributes hwnd
0iLWA_ALPHA 
If 255 Then 
Timer1
.Enabled False 
End 
If 
الرد }}}
تم الشكر بواسطة:
#2
فعلاً كود جميل جداً , بارك الله فيك صديقى ولد رائع
سبحان الله وبحمده سبحان الله العظيم
آللهم لگ آلحمد حتى ترضى .. ولگ آلحمد إذا رضيِت .. ولگ آلحمد بعد آلرضآ
الرد }}}
تم الشكر بواسطة:
#3
[COLOR="#800000"]السلام عليكم

بارك الله فيك وجعله في ميزان حسناتك[/COLOR]
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم