استخدام التوابع في البرامج

استخداماا في البرامج
التابع الأول :
سنستخدم ھذا التابع للقیام بإظھار شاشة التوقف (حافظة الشاشة) ويكون شكله كالآتي :
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As
Long) As Long
وقم بوضع بعض الثوابت بالبرنامج مثل :
Private Const WM_SYSCOMMAND = &H112&
Private Const SC_SCREENSAVE = &HF140&
إلى "إظھار" ثم اكتب الكود الآتي : Caption وغیر Command ضع على الفورم زر أمر 1
Private Sub Command1_Click()
Dim Res As Long
Res = SendMessage(Me.hWnd, Wm_Syscommand, Sc_ScreenSave, 0&)
End Sub


التابع الثاني :
سنستخدم التابع التالي لجعل الفورم في المقدمة ويكون شكله كالتالي :
Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
واكتب الكود الآتي بحدث المؤقت : Interval= واجعل خاصیة 1 Timer وضع على الفورم مؤقت 1
Private Sub Timer1_Timer()
SetWindowPos Form1.hwnd, -1, 0, 0, 0, 0, 3
End Sub


التابع الثالث:
سنستخدم ھذا التابع لجعل الفورم شفاف ونكتب معه بعض الثوابت ويكون الكود كمايلي :
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 ونكتب الكود الآتي بالحدث
Private Sub Form_Load()
SetWindowLong hwnd, GWL_EXSTYLE, GetWindowLong(hwnd, GWL_EXSTYLE) Or
WS_EX_LAYERED
SetLayeredWindowAttributes hwnd, 0, 128, LWA_ALPHA
End Sub


التابع الرابع :
سنستخدم ھذا التابع لإظھار أو إخفاء زر إبدأ وسنستخدم معه بعض الثوابت لذلك.......
ويكون شكل التابع كالآتي :
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias _
"FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
وسنضیف بعض الإجراءات الخاصة بالإظھار والإخفاء (في القسم العام) وذلك لسھولة التعامل مع
الكود :
Public Function hideStartButton()
OurParent& = FindWindow("Shell_TrayWnd", "")
OurHandle& = FindWindowEx(OurParent&, 0, "Button", _
vbNullString)
ShowWindow OurHandle&, SW_HIDE
End Function
Public Function showStartButton()
OurParent& = FindWindow("Shell_TrayWnd", "")
OurHandle& = FindWindowEx(OurParent&, 0, "Button", _
vbNullString)
ShowWindow OurHandle&, SW_SHOWNORMAL
End Function
الأول إلى "إظھار زر إبدأ" Caption نغیر .Command1, Command ونضع على الفورم 2 زر أمر 2
الثاني إلى "إخفاء زر إبدأ". نكتب الكود الآتي : Caption ونغیر
Private Sub Command1_Click()
showStartButton
End Sub
Private Sub Command2_Click()
hideStartButton
End Sub