Slėpti užduočių juostą, skirtą visiško ekrano programoms
Šiame straipsnyje bus paaiškinta, kaip optimaliai naudoti kompiuterio ekraną naudojant makrokomandą, kad paslėptumėte užduočių juostą, kai programa peržiūrima viso ekrano režimu. Ši VBA padės jums skirti spartųjį klavišą, kad užduočių juostos slėpimas būtų greitas ir paprastas.
Makro slėpti užduočių juostą viso ekrano programoms
Šią makrokomandą galite naudoti, jei norite programuoti kompiuterį automatiškai paslėpti užduočių juostą, kai programa yra viso ekrano režimu:'*************************„*** Lermite ******
*** *** 03/04/2010 ******
'*************************
Galimybė aiški
Viešoji bazinė kaip loginė
„Private Declare“ funkcija „FindWindow Lib“ user32 „Alias“ „FindWindowA“ (ByVal lpClassName kaip eilutė, ByVal lpWindowName kaip eilutė) kaip ilgas
„Private Declare“ funkcija „GetWindowPlacement Lib“ user32 (ByVal hwnd As Long, lpwndpl kaip WINDOWPLACEMENT) kaip ilga
Viešoji deklaracija Funkcija SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData kaip AppBarData) kaip ilgas
„Private Declare“ funkcija „SetWindowPos Lib“ „user32“ (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As _
Ilgai, ByVal Y kaip ilgai, ByVal cx kaip ilgai, ByVal cy kaip ilgai, ByVal wFlags kaip ilgai
Privatus tipas POINTAPI
X Ilgai
Y kaip ilgas
Pabaigos tipas
Privatus tipas RECT
Kairė kaip ilgai
Į viršų Kaip ilgai
Teisė taip ilgai
Dugnas kaip ilgas
Pabaigos tipas
Viešasis tipas AppBarData
cbSize As Long
hwnd As Long
uCallbackMessage As Long
uEdge As Long
rc Kaip RECT
lParam As Long
Pabaigos tipas
Privatus tipas WINDOWPLACEMENT
Ilgis
ŽIŪRĖJAI - ilgai
showCmd As Long
ptMinPosition Kaip POINTAPI
ptMaxPosition Kaip POINTAPI
rcNormalPosition Kaip RECT
Pabaigos tipas
Viešasis laimėjimas kaip WINDOWPLACEMENT
Public Const ABS_ALWAYSONTOP = & H2
Viešasis Const ABS_AUTOHIDE = & H1
Viešoji „Const“ ABM_GETSTATE = & H4
Viešoji „Const“ ABM_SETSTATE = & HA
„Trouver le hwnd de la barre des tâches“
Privati funkcija GetHwndBT () Kaip ilgai
„GetHwndBT“ - „FindWindow“ („shell_traywnd“, „“)
Pabaigos funkcija
Privatus funkcija BarData () Kaip Integer
„Dim BarDt“ kaip „AppBarData“
BarData = SHAppBarMessage (ABM_GETSTATE, BarDt)
Pabaigos funkcija
„Retourne true si la barre des tâches est rétractible
Viešoji funkcija BarMode () Kaip loginis
„Dim ret“ kaip „Integer“
ret = BarData ()
BarMode = (ret = ABS_AUTOHIDE + ABS_ALWAYSONTOP arba ret = ABS_AUTOHIDE)
Pabaigos funkcija
„Applique les propriétés à la barre des taches
„Režimas = 0: voir la barre des tâche
„Režimas = 1: talpyklos„ la barre des tâches “
Viešasis pokytis „TaskBar“ (režimas kaip ilgas)
„Dim BarDt“ kaip „AppBarData“
Dim ret As Long
„Entrée des paramètres
BarDt.cbSize = Len (BarDt)
BarDt.hwnd = GetHwndBT
BarDt.lParam = Režimas
„Applique“
ret = SHAppBarMessage (ABM_SETSTATE, BarDt)
Jei ret = 0, tada
Skambinkite MsgBox („tour lors de l'appel de SHAppBarMessage“, vbCritical + vbOKOnly, „Erreur“)
Baigti Jei
Pabaiga
Sub MaximizeAppli ()
Statinis kaip „Būlio“
Statinis Changer As Integer
Jei keitiklis = 0, tada
„Būkite geresni, nei galima
Changer = IIf (BarMode, 1, 2)
Baigti Jei
a = Ne a
Jei keitiklis = 2, tada
„la barre des tâches n'est pas rétractible“, „Ressort“
Skambučio keitimo užduočių juosta (Abs (a))
Baigti Jei
„L'appli sera toujours maximizée plein écran.
Application.WindowState = IIf (a, xlMaximized, xlNormal)
Pabaiga
Praktiniai užduočių juostos panaudojimo būdai
Pirmasis šio makro naudojimas yra spartusis klavišas . Norėdami tai nustatyti, eikite į juostą ir spustelėkite „ Macro“ . Pasirinkite makrokomandą „ MaximizeAppli“ . Tada spustelėkite parinktį „ Option“ ir priskirkite raidę nuorodai.Antrasis šio makro naudojimas yra formos mygtukas . Tai galite padaryti priskyrus funkciją MaximizeAppli .
Ši makro taip pat gali būti naudojama su mygtuku „ UserForm“ . Norėdami tai padaryti, naudotojo forma turi būti pavadinta kažkuo, kuriame mygtuko kode yra Show0 :
Privatus subkomandasButton1_Click ()MaximizeAppli
Dim T, L
„Apskritai, jei norite, kad būtų laikomasi apylinkių, kad galėtum pasitikti.
L = taikymas.Leftas + taikymas. Plotis - UFbouton
T = Paraiška
Me.Move L, T, 40, 14 'à adapteris
Pabaiga
Čia galite atsisiųsti šios makro demo darbo knygos demo.