ซ่อนแถบงานของคุณสำหรับแอปแบบเต็มหน้าจอ
บทความนี้จะอธิบายวิธีการใช้หน้าจอคอมพิวเตอร์ให้เกิดประโยชน์สูงสุดโดยใช้มาโครเพื่อ ซ่อนแถบงานของคุณ ในขณะที่กำลังดูแอปพลิเคชันในโหมดเต็มหน้าจอ VBA นี้จะช่วยให้คุณอุทิศแป้นพิมพ์ลัดเพื่อซ่อนแถบงานของคุณอย่างรวดเร็วและง่ายดาย
แมโครเพื่อซ่อนแถบงานสำหรับแอปแบบเต็มหน้าจอ
คุณสามารถใช้แมโครนี้เพื่อตั้งโปรแกรมคอมพิวเตอร์ให้ซ่อนแถบงานของคุณโดยอัตโนมัติเมื่อแอปพลิเคชันอยู่ในโหมดเต็มหน้าจอ:'*************************'*** Lermite ******
'*** 06/03/2010 ******
'*************************
ตัวเลือกที่ชัดเจน
Bascule สาธารณะเป็นบูลีน
ฟังก์ชันประกาศส่วนตัว FindWindow Lib "user32" นามแฝง "FindWindowA" (ByVal lpClassName เป็นสตริง ByVal lpWindowName As String) นาน
ฟังก์ชันประกาศส่วนตัว GetWindowPlacement Lib "user32" (ByVal hwnd ตราบใด, lpwndpl เป็น WINDOWPLACEMENT) นาน
ฟังก์ชั่นประกาศสาธารณะ SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage ตราบเท่าที่ pData As AppBarData) ตราบใดที่
ฟังก์ชันประกาศส่วนตัว SetWindowPos Lib "user32" (ByVal hwnd ตราบใดที่ ByVal hWndInsertAfter นานตราบเท่า ByVal X เป็น _
ยาว ByVal Y ยาว ByVal cx ยาว ByVal cy ตราบใด ByVal wFlags ตราบเท่าที่) ยาว
ประเภทส่วนตัว POINTAPI
X นาน
Y ตราบใดที่
ประเภทสิ้นสุด
RECT ประเภทส่วนตัว
ทิ้งไว้นาน
ติดทนนาน
ถูกต้องนาน
ด้านล่างตราบใดที่
ประเภทสิ้นสุด
AppBarData ประเภทสาธารณะ
cbSize ตราบใด
hwnd ตราบใดที่
uCallbackMessage ตราบเท่าที่
uEdge ตราบใดที่
rc เป็น RECT
lParam ตราบใด
ประเภทสิ้นสุด
WINDOWPLACEMENT ประเภทส่วนตัว
ความยาวตราบใดที่
ธงนาน
showCmd ตราบใดที่
ptMinPosition As POINTAPI
ptMaxPosition As POINTAPI
rcNormalPosition เป็น RECT
ประเภทสิ้นสุด
WinPlacement สาธารณะเป็น WINDOWPLACEMENT
กลุ่มสาธารณะ ABS_ALWAYSONTOP = & H2
Public Const ABS_AUTOHIDE = & H1
Public Const ABM_GETSTATE = & H4
Public Const ABM_SETSTATE = & HA
'Trouver le hwnd de la barre des tâches
ฟังก์ชันส่วนตัว GetHwndBT () ตราบเท่าที่
GetHwndBT = FindWindow ("shell_traywnd", "")
ฟังก์ชั่นสิ้นสุด
ฟังก์ชั่นส่วนตัว BarData () As Integer
Dim BarDt As AppBarData
BarData = SHAppBarMessage (ABM_GETSTATE, BarDt)
ฟังก์ชั่นสิ้นสุด
'Retourne true si la barre des tâches est rétractible
ฟังก์ชั่นที่สาธารณะ BarMode () เป็นบูลีน
ติ่มซำเป็น Integer
ret = BarData ()
BarMode = (ret = ABS_AUTOHIDE + ABS_ALWAYSONTOP หรือ ret = ABS_AUTOHIDE)
ฟังก์ชั่นสิ้นสุด
'Applique และเป็นเจ้าของ la barre des taches'
'Mode = 0: voir la barre des tâche
'Mode = 1: cache la barre des tâches
Public Sub ChangeTaskBar (โหมดตราบใด)
Dim BarDt As AppBarData
ติ่มซำนาน
'Entrée des paramètres
BarDt.cbSize = Len (BarDt)
BarDt.hwnd = GetHwndBT
BarDt.lParam = โหมด
'Applique
ret = SHAppBarMessage (ABM_SETSTATE, BarDt)
ถ้า ret = 0 แล้ว
โทร MsgBox ("ก่อนหน้านี้อีกต่อไป" SHAppBarMessage ", vbCritical + vbOK เฉพาะ" Erreur ")
สิ้นสุดถ้า
ส่วนท้าย
Sub MaximizeAppli ()
คงเป็นบูลีน
เปลี่ยนแบบคงที่เป็นจำนวนเต็ม
ถ้าเปลี่ยน = 0 แล้ว
'Voir si la barre des tâches est rétractible
Changer = IIf (BarMode, 1, 2)
สิ้นสุดถ้า
a = ไม่ใช่ a
ถ้าเปลี่ยน = 2 แล้ว
'la barre des tâches n'est pas rétractible, ont la retracte / Ressort
โทร ChangeTaskBar (Abs (a))
สิ้นสุดถ้า
'L'appli sera toujours maximizée plein écran
Application.WindowState = IIf (a, xlMaximized, xlNormal)
ส่วนท้าย
ใช้งานได้จริงสำหรับมาโครแถบงาน
การใช้งานครั้งแรกของแมโครนี้เป็น แป้นพิมพ์ลัด ในการตั้งค่านี้ให้ไปที่ ribbon ของคุณและคลิกที่ มาโคร เลือกแมโคร MaximizeAppli จากนั้นคลิกที่ ตัวเลือก และกำหนดตัวอักษรให้กับทางลัดการใช้งานครั้งที่สองของแมโครนี้เป็น ปุ่มรูปแบบ คุณสามารถทำได้โดยกำหนดฟังก์ชัน MaximizeAppli ให้กับปุ่ม
แมโครนี้อาจใช้กับปุ่มบน UserForm ในการทำเช่นนี้ userform จะต้องตั้งชื่อบางอย่างที่มี Show0 ในรหัสของปุ่ม:
Private Sub CommandButton1_Click ()MaximizeAppli
ติ๋ม T, L
'ยกตัวอย่างตำแหน่งของเลอบูตูออกจากพื้นที่โดยรอบของระบบ
L = แอปพลิเคชันซ้าย + แอปพลิเคชันกว้าง - UFbouton กว้าง - 60
T = แอปพลิเคชันด้านบน + 2
Me.Move L, T, 40, 14 'อะแดปเตอร์
ส่วนท้าย
คุณสามารถดาวน์โหลดตัวอย่างสมุดงานสาธิตของแมโครนี้ได้ที่นี่