سلا م دوست عزیز :
این کدهای را میتونی تو یک ماژول ذخیره کنی و بعد اسامی توابع را فراخونی کنید .
اسم ماژول را هم بذار Func_API .
Declare Function 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) As Long
Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function EnableWindow Lib "user32" _
(ByVal hWnd As Long, ByVal fEnable As Long) As Long
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
Public Sub Taskbar(Visible As Boolean)
Dim hWnd As Long
hWnd = FindWindow("Shell_TrayWnd", "")
If Visible Then
ShowWindow hWnd, 5
Else
ShowWindow hWnd, 0
End If
End Sub
Public Sub desktop(Visible As Boolean)
Dim hWnd As Long
hWnd = FindWindow("Program", "Program Manager")
If Visible Then
ShowWindow hWnd, 5
Else
ShowWindow hWnd, 0
End If
End Sub
Public Sub Button(Visible As Boolean)
Dim hWnd As Long
hWnd = FindWindow("Shell_TrayWnd", "")
dwnd = FindWindowEx(hWnd, 0, "Button", vbNullString)
If Visible Then
ShowWindow hWnd, 5
Else
ShowWindow hWnd, 0
End If
End Sub
نگاه کن به اسامی سابها و چک باکس ها را ایجاد کند با همان نامهای که مشخص شده و بعد کدهای زیر را توی آنها کپی کنو
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40
Private Sub ch_DeskTop_Click()
Select Case ch_DeskTop.Value
Case 0:
ch_DeskTop.Caption = "Visible"
desktop (False)
Case 1:
ch_DeskTop.Caption = "Enable"
desktop (True)
End Select
End Sub
Private Sub ch_StarBtn_Click()
Select Case ch_StarBtn.Value
Case 0:
ch_StarBtn.Caption = "Visible"
Button (False)
Case 1:
ch_StarBtn.Caption = "Enable"
Button (True)
End Select
End Sub
Private Sub ch_taskbar_Click()
Dim Thwnd As Long
Select Case ch_Taskbar.Value
Case 0:
ch_Taskbar.Caption = "Hide Taskbar"
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
Case 1:
ch_Taskbar.Caption = "Show TAskbar"
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Select
End Sub
Private Sub ch_Visible_Taskbar_Click()
Select Case ch_Visible_Taskbar.Value
Case 0:
ch_Visible_Taskbar.Caption = "Visible Taskbar"
Taskbar (False)
Case 1:
ch_Visible_Taskbar.Caption = "Enable Taskbar"
Taskbar (True)
End Select
End Sub
اگر مشکلی بود بپرس / ببخشید !! زیاد فرصت نداشتم / اگر کم توضیح دادم
پاسخ با نقل قول
