Sembunyikan Bilah Tugas Anda untuk Aplikasi Layar Penuh
Artikel ini akan menjelaskan cara memanfaatkan layar komputer Anda secara optimal dengan menggunakan makro untuk menyembunyikan bilah tugas saat aplikasi sedang dilihat dalam mode layar penuh. VBA ini akan membantu Anda mendedikasikan shortcut keyboard sehingga menyembunyikan taskbar Anda cepat dan sederhana.
Makro untuk Menyembunyikan Bilah Tugas untuk Aplikasi Layar Penuh
Anda dapat menggunakan makro ini untuk memprogram komputer Anda untuk menyembunyikan bilah tugas secara otomatis saat aplikasi dalam mode layar penuh:'***************************'*** Lermite ******
'*** 06/03/2010 ******
'***************************
Opsi Eksplisit
Bascule Publik Sebagai Boolean
Fungsi Deklarasi Pribadi FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Fungsi Deklarasi Pribadi GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Fungsi Deklarasi Publik SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData As AppBarData) As Long
Fungsi Deklarasi Pribadi SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertSetelah Long, ByVal X As _
Panjang, ByVal Y Selama, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Jenis Pribadi POINTAPI
X As Long
Y As Long
Jenis Akhir
Jenis Pribadi RECT
Kiri As Long
Top As Long
Tepat Selama
Bawah As Long
Jenis Akhir
Jenis Publik AppBarData
cbSize As Long
Hwnd As Long
uCallbackMessage As Long
uEdge As Long
rc Seperti RECT
lParam As Long
Jenis Akhir
Jenis Pribadi WINDOWPLACEMENT
Panjang As Panjang
BENDERA Panjang
showCmd As Long
ptMinPosisi Sebagai POINTAPI
ptMaxPosisi Sebagai POINTAPI
rcNormalPosition As RECT
Jenis Akhir
Public WinPlacement Sebagai WINDOWPLACEMENT
Public Const 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
Fungsi Pribadi GetHwndBT () As Long
GetHwndBT = FindWindow ("shell_traywnd", "")
Fungsi Akhir
Fungsi Pribadi BarData () Sebagai Integer
Dim BarDt Sebagai AppBarData
BarData = SHAppBarMessage (ABM_GETSTATE, BarDt)
Fungsi Akhir
"Retourne benar, la barre des tâches est rétractible
Fungsi Publik BarMode () Sebagai Boolean
Dim ret As Integer
ret = BarData ()
BarMode = (ret = ABS_AUTOHIDE + ABS_ALWAYSONTOP Atau ret = ABS_AUTOHIDE)
Fungsi Akhir
'Applique les propriétés à la barre des taches
'Mode = 0: voir la barre des tâche
'Mode = 1: cache la barre des tâches
Sub Publik ChangeTaskBar (Mode As Long)
Dim BarDt Sebagai AppBarData
Dim ret As Long
'Entrée des paramètres
BarDt.cbSize = Len (BarDt)
BarDt.hwnd = GetHwndBT
BarDt.lParam = Mode
'Applique
ret = SHAppBarMessage (ABM_SETSTATE, BarDt)
Jika ret = 0 Lalu
Sebut MsgBox ("erreur lors de l'appel de SHAppBarMessage", vbCritical + vbOKHanya, "Erreur")
Berakhir jika
End Sub
Sub MaksimalkanAppli ()
Statis Sebagai Boolean
Statis Changer Sebagai Integer
If Changer = 0 Then
'Voir si la barre des tâches est rétractible
Changer = IIf (BarMode, 1, 2)
Berakhir jika
a = Bukan a
If Changer = 2 Lalu
'la barre des tâches n'est pas rétractible, ont la retracte / Ressort
Panggil ChangeTaskBar (Abs (a))
Berakhir jika
'Servis terbaik untuk hasil maksimal dari .cran.
Application.WindowState = IIf (a, xlMaximized, xlNormal)
End Sub
Penggunaan Praktis untuk Makro Bilah Tugas
Penggunaan pertama makro ini adalah sebagai pintasan keyboard . Untuk mengatur ini, buka pita Anda dan klik pada Makro . Pilih makro MaximizeAppli . Kemudian, klik Opsi dan berikan surat pada pintasan.Penggunaan kedua makro ini adalah sebagai tombol formulir . Anda dapat melakukan ini dengan menetapkan fungsi MaximizeAppli ke sebuah tombol.
Makro ini juga dapat digunakan dengan tombol di UserForm . Untuk melakukan ini, bentuk pengguna harus diberi nama sesuatu yang mengandung Show0 dalam kode tombol:
Sub Perintah PribadiButton1_Klik ()Maksimalkan Aplikasi
Dim T, L
'Contoh tuangkan posisi di bouton aux environs dan boutons système de l'appli.
L = Application.Left + Application.Width - UFbouton.Width - 60
T = Application.Top + 2
Me.Move L, T, 40, 14 à adaptor
End Sub
Anda dapat mengunduh demo buku kerja demo makro ini di sini.