xeng
Typ:
neutral
Postów: 102
Zarejestrowany: May 2002
|
|
Hide-Show MenuStart
heh.. Jak jesteś początkujacy nie wiem czy coś zakumasz.W najgorszym razie przeklej cały Kod do formy u siebie.
Zeby nie mącić Ci z modułem damy(w kodzie formy) tak :
To co w nawiasie daj od nowego wiersz w jednej linijce, chyba ze wiesz jak sie dzieli kod jednolinijkowy  _
(Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long)
( Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) 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)
'to byly deklaracje API
'teraz Stałe
Private Const SW_HIDE = 0
Private Const SW_SHOWNORMAL = 1
'i zmienne
Dim Q As Long, W As Long
' funkcja howająca przycisk :
Function U_Button()
Q = FindWindow("Shell_TrayWnd", "" )
W = FindWindowEx(Q, 0, "Button", vbNullString)
ShowWindow W, 0
End Function
'funkcja przywracjająca stan sprzed ukrycia:
Function P_Button()
Q = FindWindow("Shell_TrayWnd", "" )
W = FindWindowEx(Q, 0, "Button", vbNullString)
ShowWindow W, 5
End Function
'i teraz np: wklej do formy dwa CommandButton'y
Private Sub Command1_Click()
U_Button
'chowa przycisk
End Sub
Private Sub Command2_Click()
P_Button
'pokazuje przycisk
End Sub
A gdybyś się zarejestrował to bym Ci podesłał sampla a tak to baw się w kopiowanie ..Heh.
[Post edytowany dnia 14-07-2002 02:41 przez xeng]
_____________________________________________
Nic nie umiem i nic nie wiem.Jestem tuman bity w ciemie.
|