أخفاء زر قائمة ابدأ واظهاره

[عنـ الشوق ـاد]

أخفاء زر قائمة ابدأ واظهاره

اولاً - لازم تعمل From
ثانياً - اعمل زرين Command1 - Command2
وسمي Command1 اخفاء
و Command2 اظهار


ضع هذا الكود في From

Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

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

Sub StartButton(blnValue As Boolean)

Dim lngHandle As Long
Dim lngStartButton As Long

lngHandle = FindWindow("Shell_TrayWnd", "")
lngStartButton = FindWindowEx(lngHandle, 0, "Button", vbNullString)

If blnValue Then
ShowWindow lngStartButton, 5
Else
ShowWindow lngStartButton, 0
End If
End Sub


Private Sub Command1_Click()

StartButton False
End Sub


Private Sub Command2_Click()

StartButton True
End Sub

[الـــدانـــة]

اللــــه يعطيــــك العافيـــة أخــــوي عنـــاد
جهـــــــود تشكــــــــر عليهــــــا
دمت ودام عطائـــــك