फुल स्क्रीन एप्स के लिए अपना टास्कबार छिपाएं

यह आलेख समझाएगा कि कैसे अपने टास्कबार को छिपाने के लिए मैक्रो का उपयोग करके अपने कंप्यूटर स्क्रीन का इष्टतम उपयोग किया जाए, जबकि एक एप्लिकेशन को फ़ुलस्क्रीन मोड में देखा जा रहा है। यह VBA आपको कीबोर्ड शॉर्टकट समर्पित करने में मदद करेगा ताकि आपका टास्कबार छुपाना त्वरित और सरल हो।

पूर्ण स्क्रीन ऐप्स के लिए टास्कबार को छिपाने के लिए मैक्रो

जब कोई एप्लिकेशन फ़ुलस्क्रीन मोड में हो तो आप अपने कंप्यूटर को अपने टास्कबार को छिपाने के लिए इस मैक्रो का उपयोग कर सकते हैं:

 '*************************
'*** लरमाइट ******
'*** 06/03/2010 ******
'*************************
विकल्प स्पष्ट
सार्वजनिक बेसक्यूल बूलियन के रूप में
निजी घोषणा समारोह FindWindow Lib "user32" उपनाम "FindWindowA" (ByVal lpClassName स्ट्रिंग के रूप में, ByVal lpWindowName स्ट्रिंग के रूप में) लंबे समय तक
निजी घोषणा समारोह GetWindowPlacement Lib "user32" (लंबे समय के रूप में byVal hwnd, WINDOWPLACEMENT के रूप में lpwndpl)
सार्वजनिक घोषणा समारोह SHAPBarMessage Lib "shell32.dll" (ByVal dwMessage Long, pData As AppBarData) लॉन्ग
निजी डिक्लेयर फंक्शन सेटविन्दपॉस लीब "यूजर 32" (बायल hwnd लॉन्ग, बाइवाल hWndInsertAfter Long, ByVal X as _
लांग, बायल वाई वाई लॉन्ग, बायवाल cx लॉन्ग, बाइवाल साइबर लॉन्ग, बाइवाल wFlags लॉन्ग)
निजी प्रकार POINTAPI
लंबे समय के रूप में एक्स
वाई अस लॉन्ग
अंत प्रकार
निजी प्रकार RECT
लंबे समय के रूप में छोड़ दिया
लंबे समय तक
सही के रूप में लंबे समय तक
नीचे लंबा
अंत प्रकार
सार्वजनिक प्रकार AppBarData
लंबे समय के रूप में cbSize
hwnd As Long
लंबे समय के रूप में
लंबे समय के रूप में
rc as RECT
lParam As Long
अंत प्रकार
निजी प्रकार खिड़की
लंबाई लंबी
लंबे समय के रूप में
लंबे समय के रूप में दिखाओ
POMAPI के रूप में ptMinPosition
POINTAPI के रूप में ptMaxPosition
RECT के रूप में rcNormalPosition
अंत प्रकार
पब्लिक विनप्लसमेंट विन्डॉवलपमेंट के रूप में
सार्वजनिक कॉन्स्ट ABS_ALWAYSONTOP = & H2
सार्वजनिक कॉन्स्ट ABS_AUTOHIDE = & H1
सार्वजनिक कॉन्स्टेंट ABM_GETSTATE = & H4
सार्वजनिक कांस्टेंट ABM_SETSTATE = & HA
'मुसीबत ले हवंद दे ला बर्रे देस तेश
निजी समारोह GetHwndBT () लंबे समय के रूप में
GetHwndBT = FindWindow ("shell_traywnd", "")
अंत समारोह
प्राइवेट फंक्शन बारडाटा () इंटेगर के रूप में
AppBarData के रूप में मंद BarDt
BarData = SHAPBarMessage (ABM_GETSTATE, BarDt)
अंत समारोह
'रिटुरने सच सी ला बर्रे डेस टीचेज इस्ट रिटेक्टिबल
पब्लिक फंक्शन बारकोड () बुलियन के रूप में
डिम इंटर्गर के रूप में सेवानिवृत्त
रेट = बारडाटा ()
बारकोड = ((= = ABS_AUTOHIDE + ABS_ALWAYSONTOP या फिर = ABS_AUTOHIDE)
अंत समारोह
'Applique les propriétés à la barre des taches
'मोड = 0: वॉइस ला बर्रे डेस टैचे
'मोड = 1: कैश ला बैरे डेस टेचेस
सार्वजनिक उप ChangeTaskBar (लंबे समय तक मोड)
AppBarData के रूप में मंद BarDt
डिम रिटायर अस लॉन्ग
'एन्ट्री देस परमेट्रेस
BarDt.cbSize = लेन (BarDt)
BarDt.hwnd = GetHwndBT
BarDt.lParam = मोड
'अधिरोपण
ret = SHAPBarMessage (ABM_SETSTATE, BarDt)
यदि रिट ० = फिर
MsgBox को कॉल करें ("erreur lors de l'appel de SHAppBarMessage", vbCritical + vbOKOnly, "Erreur")
अगर अंत
अंत उप
उप MaximizeAppli ()
स्टेटिक ए अस बुलियन
इंटेगर के रूप में स्टेटिक चेंजर
यदि परिवर्तक = ० तब
'Voir si la barre des tâches est rétractible
परिवर्तक = आईआईएफ (बारकोड, 1, 2)
अगर अंत
a = नहीं
यदि परिवर्तक = 2 ​​तब
'ला बर्रे डेस टेचेस एन'स्ट पेस रेसेट्रैक्टिबल, ऑन्ट ला रीट्रैक्ट / रेसेर्ट
कॉल ChangeTaskBar (ABS (ए))
अगर अंत
'लप्पली सेरा तोजोरस मैक्सिमिज़ी प्लीन इक्रान।
Application.WindowState = IIf (, xlMaximized, xlNormal)
अंत उप 

टास्कबार मैक्रो के लिए व्यावहारिक उपयोग

इस मैक्रो का पहला उपयोग कीबोर्ड शॉर्टकट के रूप में होता है । इसे सेट करने के लिए, अपने रिबन पर जाएं और मैक्रो पर क्लिक करें। MaximizeAppli मैक्रो का चयन करें। फिर, विकल्प पर क्लिक करें और शॉर्टकट को एक पत्र असाइन करें।

इस मैक्रो का दूसरा उपयोग फॉर्म बटन के रूप में है। आप इसे MaximizeAppli फंक्शन को एक बटन पर असाइन करके कर सकते हैं।

इस मैक्रो का उपयोग यूजरफोर्म के बटन के साथ भी किया जा सकता है। ऐसा करने के लिए, उपयोगकर्ता को बटन के कोड में Show0 युक्त कुछ नाम दिया जाना चाहिए:

 निजी उप कमांडबटन १_ क्लिक ()
MaximizeAppli
मंद टी, एल
'एक्जम्पस पोजिशन ले ले बेटन ऑक्स एन्विरोंस देस बुटन्स सिस्टेम डे लप्पली।
L = Application.Left + Application.Width - UFbouton.Width - 60
T = Application.Top + 2
Me.Move एल, टी, 40, 14 'एक एडाप्टर
अंत उप 

आप यहां इस मैक्रो की डेमो वर्कबुक डेमो डाउनलोड कर सकते हैं।