جهت مطالعه و دسترسی به سورس ها به ادامه مطلب مراجعه نمائید
با این تابع می تونید آیکون های روی دسکتاپ رو مخفی و ظاهر کنید
اول فراخوانی توابع
Option Explicit 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 Sub cmdDHide_Click() Dim hWnd As Long hWnd = FindWindowEx(0&, 0&, “Progman”, vbNullString) ShowWindow hWnd, 0 End Sub Dim hWnd As Long hWnd = FindWindowEx(0&, 0&, “Progman”, vbNullString) ShowWindow hWnd, 5 End Sub Me.Hide End End Sub |