フルスクリーンアプリのタスクバーを隠す
この資料では、アプリケーションがフルスクリーンモードで表示されているときにマクロを使用してタスクバーを非表示にすることで、コンピュータの画面を最適に使用する方法について説明します。 あなたのタスクバーを隠すのが速くて簡単であるように、このVBAはあなたがキーボードショートカットを捧げるのを助けるでしょう。
フルスクリーンアプリのタスクバーを隠すマクロ
このマクロを使用して、アプリケーションがフルスクリーンモードのときにタスクバーを自動的に隠すようにコンピュータをプログラムできます。'*************************'***レルミテ******
'*** 06/03/2010 ******
'*************************
明示的なオプション
ブール値としてのパブリックバキュール
プライベート宣言関数FindWindow Lib "user32" Alias "FindWindowA"(文字列としてのByVal lpClassName、文字列としてのByVal lpWindowName)
長さとしてのプライベート宣言関数GetWindowPlacement Lib "user32"(長さとしてByVal hwnd、長さとしてlpwndpl)
長さとしてパブリック宣言関数SHAppBarMessage Lib "shell32.dll"(長さとしてByVal dwMessage、AppBarDataとしてpData)
プライベート宣言関数SetWindowPos Lib "user32"(ByValは長さが長く、ByValはhWndInsertAfterが長さで、ByValがXと同じ
長さ、長さとしてのByVal Y、長さとしてのByVal cx、長さとしてのByVal cy、長さとしてのByVal wFlags
プライベートタイプPOINTAPI
長さとしてX
Yの長さ
エンドタイプ
プライベートタイプRECT
できるだけ長く
最長のトップ
できるだけ長く
一番下まで
エンドタイプ
パブリックタイプAppBarData
cbSize As Long
長いとしてhwnd
長さとしてのuCallbackMessage
長い間使用する
RECTとしてRc
長さとしてlParam
エンドタイプ
プライベートタイプWINDOWPLACEMENT
長さ
FLAGS As Long
showCmd As Long
POINTAPIとしてのptMinPosition
POINTAPIとしてのptMaxPosition
RECTとしてのrcNormalPosition
エンドタイプ
WINDOWPLACEMENTとしてのパブリックWinPlacement
パブリック定数ABS_ALWAYSONTOP =&H2
公開定数ABS_AUTOHIDE =&H1
パブリック定数ABM_GETSTATE =&H4
パブリック定数ABM_SETSTATE =&HA
'Trouver le hwnd de la barre destâches
プライベート関数GetHwndBT()の長さ
GetHwndBT = FindWindow( "shell_traywnd"、 "")
終了機能
整数としてのプライベート関数BarData()
AppBarDataとして薄暗いBarDt
BarData = SHAppBarMessage(ABM_GETSTATE、BarDt)
終了機能
'本当のシラバラのデパートを検索する
ブール値としてのパブリック関数BarMode()
整数として薄暗いret
ret = BarData()
BarMode =(ret = ABS_AUTOHIDE + ABS_ALWAYSONTOPまたはret = ABS_AUTOHIDE)
終了機能
'la barre des tachesの「Applique lespropriétés」
'Mode = 0:バレールデバレデタッシュ
'Mode = 1:キャッシュラバの設計
Public Sub ChangeTaskBar(モードは長さ)
AppBarDataとして薄暗いBarDt
As As Long
'Entréedesparamètres
BarDt.cbSize = Len(BarDt)
BarDt.hwnd = GetHwndBT
BarDt.lParam =モード
アップリケ
ret = SHAppBarMessage(ABM_SETSTATE、BarDt)
ret = 0の場合
MsgBoxを呼び出します( "エラーの詳細はSHAppBarMessage"、vbCritical + vbOKOnly、 "Erreur")。
終了の場合
終了サブ
Sub MaximizeAppli()
ブール値としての静的な
整数としての静的チェンジャー
チェンジャー= 0の場合
'Voir si la barre des techches eretractible
チェンジャー= IIf(BarMode、1、2)
終了の場合
a =ない
チェンジャー= 2の場合
'la barre destâchesn'estpastréctible、ont la retracte / Ressort
ChangeTaskBar(Abs(a))を呼び出します。
終了の場合
'L'appli sera toujoursmaximizéepleinécran。
Application.WindowState = IIf(a、xl最大化、xl通常)
終了サブ
タスクバーマクロの実用的な用途
このマクロの最初の使用はキーボードショートカットとしてです。 これを設定するには、 リボンに移動して[ マクロ ]をクリックします。 MaximizeAppliマクロを選択します。 次に、 Optionをクリックしてショートカットに文字を割り当てます。このマクロの2番目の使い方はフォームボタンです。 これを行うには、 MaximizeAppli関数をボタンに割り当てます。
このマクロは、 ユーザーフォームのボタンでも使用できます。 これを行うには、ユーザーフォームにボタンのコードにShow0を含む名前を付ける必要があります。
Private Sub CommandButton1_Click()MaximizeAppli
薄暗いT、L
'注:ポットポジショナーの例を使用してください。
L = Application.Left + Application.Width - UFbouton.Width - 60
T =アプリケーション。トップ+ 2
Me.Move L、T、40、14 'アダプタ
終了サブ
このマクロのデモワークブックデモをここからダウンロードできます。