विस्मयकारी विजुअल स्टूडियो मैक्रोज़

Question

एक छोटी सा समुदाय चर्चा के लिए, आपके द्वारा उपयोग किए जाने वाले कुछ आवश्यक विजुअल स्टूडियो मैक्रोज़ क्या हैं?

मैंने अभी उनके बारे में सीखना शुरू कर दिया है, और यह जानना चाहते हैं कि आप में से कुछ क्या नहीं रह सकते हैं।

Answer 1

संपादन मैं वी.एस. 2002/2003 में मैक्रो का एक बहुत काम करने के लिए इस्तेमाल के लिए उपयोगी है। एक उदाहरण क्षेत्र निर्माण होगा - मैं हमेशा अपने वर्गों को निम्नलिखित क्षेत्रों में विभाजित करना चाहता हूं - "निजी सदस्य", "सार्वजनिक गुण", "सार्वजनिक तरीके" और "निजी विधियां"। इसलिए, मेरे पास एक शॉर्टकट कुंजी पर मैक्रो मैप किया गया है जो इन क्षेत्रों को किसी भी नई कक्षा फ़ाइल में बनाता है।

वीएस 2005/2008 (और सामान्य कोड स्निपेट जोड़ने की सुविधा) में समर्थन को पुन: सक्रिय करने के साथ-साथ डीएक्सकोर और स्लेकएडिट जैसे एडिन के उपयोग से मुझे बहुत सारे मैक्रोज़ बनाने के बिना काम करने की अनुमति मिलती है।

Answer 2

मैं उस मैक्रो रजिस्ट्री प्रारूप में एक GUID उत्पन्न करने के लिए Ctrl-Shift-जी मैप किया - इस आईडीएल

Answer 3

मैं जेफ के FormatToHtml मैक्रोज़ का उपयोग करता हूं यदि मैं किसी ब्लॉग पोस्ट या ईमेल में कोड उदाहरण चिपका रहा हूं।

Answer 4

वाईआईएक्स काम के लिए अच्छा, GUID डालें, बटन के रूप में मेनू या कुंजी शॉर्टकट के रूप में जोड़ें।

Sub InsertGuid() 
    Dim objTextSelection As TextSelection 
    objTextSelection = CType(DTE.ActiveDocument.Selection(), EnvDTE.TextSelection) 
    objTextSelection.Text = System.Guid.NewGuid.ToString.ToUpper(New System.Globalization.CultureInfo("en", False)) 
End Sub 

एक समाधान में सभी .cs फ़ाइलों के लिए usings व्यवस्थित करें - मूल लेखक:djpark।

Sub OrganizeSolution() 
    Dim sol As Solution = DTE.Solution 
    For i As Integer = 1 To sol.Projects.Count 
     OrganizeProject(sol.Projects.Item(i)) 
    Next 
End Sub 

Private Sub OrganizeProject(ByVal proj As Project) 
    For i As Integer = 1 To proj.ProjectItems.Count 
     OrganizeProjectItem(proj.ProjectItems.Item(i)) 
    Next 
End Sub 

Private Sub OrganizeProjectItem(ByVal projectItem As ProjectItem) 
    Dim fileIsOpen As Boolean = False 
    If projectItem.Kind = Constants.vsProjectItemKindPhysicalFile Then 
     'If this is a c# file    
     If projectItem.Name.LastIndexOf(".cs") = projectItem.Name.Length - 3 Then 
      'Set flag to true if file is already open     
      fileIsOpen = projectItem.IsOpen 
      Dim window As Window = projectItem.Open(Constants.vsViewKindCode) 
      window.Activate() 
      projectItem.Document.DTE.ExecuteCommand("Edit.RemoveAndSort") 
      'Only close the file if it was not already open     
      If Not fileIsOpen Then 
       window.Close(vsSaveChanges.vsSaveChangesYes) 
      End If 
     End If 
    End If 
    'Be sure to apply RemoveAndSort on all of the ProjectItems.   
    If Not projectItem.ProjectItems Is Nothing Then 
     For i As Integer = 1 To projectItem.ProjectItems.Count 
      OrganizeProjectItem(projectItem.ProjectItems.Item(i)) 
     Next 
    End If 
    'Apply RemoveAndSort on a SubProject if it exists.   
    If Not projectItem.SubProject Is Nothing Then 
     OrganizeProject(projectItem.SubProject) 
    End If 
End Sub 

Answer 5

मैं निम्नलिखित 3 मैक्रोज़ के लिए टूलबार पर बटन जोड़ता हूं। प्रत्येक व्यक्ति वर्तमान में चयनित फ़ाइल को किसी भी फाइल में ले जाएगा और इसे Google (या एमएसडीएन-इट, या स्पेल-चेक-इट) करेगा। अतिरिक्त स्टाइल-पॉइंट्स के लिए टूलबार के लिए निफ्टी आइकन बनाएं।

Private Const BROWSER_PATH As String = "C:\Program Files\Mozilla Firefox\firefox.exe" 

Sub SearchGoogle() 
    Dim cmd As String 
    cmd = String.Format("{0} http://www.google.com/search?hl-en&q={1}", BROWSER_PATH, DTE.ActiveDocument.Selection.Text) 
    Shell(cmd, AppWinStyle.NormalFocus) 
End Sub 

Sub SearchMSDN() 
    Dim cmd As String 
    cmd = String.Format("{0} http://www.google.com/search?hl-en&q={1}+site%3Amsdn.microsoft.com", BROWSER_PATH, DTE.ActiveDocument.Selection.Text) 
    Shell(cmd, AppWinStyle.NormalFocus) 
End Sub 

Sub SpellCheck() 
    Dim cmd As String 
    cmd = String.Format("{0} http://www.spellcheck.net/cgi-bin/spell.exe?action=CHECKWORD&string={1}", BROWSER_PATH, DTE.ActiveDocument.Selection.Text) 
    Shell(cmd, AppWinStyle.NormalFocus) 
End Sub 

Answer 6

मैं दोहरी पर नज़र रखता है के साथ काम है, और मैं शेरोन की लेआउट-स्विचिंग मैक्रो (एक 1 की निगरानी से एक 2 मॉनिटर लेआउट के लिए) पूरी तरह से अमूल्य पाते हैं। जब आपको थोड़ा सा कोड टाइप करते समय किसी वेब पेज या अन्य प्रोग्राम का संदर्भ देने की आवश्यकता होती है, तो अपने विजुअल स्टूडियो विंडो के लिए एक मॉनीटर लेआउट पर स्विच करने के लिए Ctrl-Alt-1। एक बार पूरा हो जाने के बाद, अपने दो मॉनीटर लेआउट पर स्विच करने के लिए Ctrl-Alt-2 और अपनी सभी विंडो वापस प्राप्त करें। बहुत बढ़िया!

http://www.invisible-city.com/sharon/2008/06/workstation-hack-visual-studio-on-2.html

Answer 7

मैं इस सवाल this one का उल्लेख किए बिना जाने नहीं कर सकता है। यह दिखाने के लिए एक वीडियो भी है कि इसे कैसे स्थापित करें और इसका उपयोग कैसे करें। यह मैक्रो आपको समाधान एक्सप्लोरर (जैसे resource.resx) में घोंसला वाली फ़ाइलों को बनाने की अनुमति देता है।

संपादित करें: अपडेट किया गया लिंक

Answer 8

मैं बहुत बार निम्नलिखित कम प्रसिद्ध शॉर्टकट का उपयोग:

• Ctrl + दर्ज करें: वर्तमान रेखा से ऊपर एक रिक्त पंक्ति सम्मिलित करें (और वहाँ कर्सर रखें)
• Ctrl + Shift + दर्ज करें: वर्तमान रेखा से नीचे एक रिक्त पंक्ति सम्मिलित करें (और जगह वहाँ कर्सर)
• Ctrl + Shift + V: साइकिल clipboard ring

Answer 9

आरम्भ पृष्ठ दिखाती है कि आप एक समाधान बंद (लेकिन दृश्य स्टूडियो खुला रखने)

अपने EnvironmentEvents मॉड्यूल में इस कोड डाल के बाद:

आप के रूप में खोलने के बाद

Private Sub SolutionEvents_AfterClosing() Handles SolutionEvents.AfterClosing 
    DTE.ExecuteCommand("View.StartPage") 
End Sub 

आरम्भ पृष्ठ छुपाएं olution अपने EnvironmentEvents मॉड्यूल में इस कोड को

रख:

Private Sub SolutionEvents_Opened() Handles SolutionEvents.Opened 
    Dim startPageGuid As String = "{387CB18D-6153-4156-9257-9AC3F9207BBE}" 
    Dim startPage As EnvDTE.Window = DTE.Windows.Item(startPageGuid) 
    If startPage IsNot Nothing Then startPage.Close() 
End Sub 

इन दोनों को एक साथ आपके प्रारंभ पृष्ठ को खुद को छिपाने के लिए जब आप एक समाधान को खोलने का कारण होगा। जब आप समाधान बंद करो, आरंभ पृष्ठ वापस आता है।

Answer 10

को रेखांकित करते: परिभाषाओं को संक्षिप्त करें लेकिन विस्तार क्षेत्रों

आप उन दुकानों कि सब कुछ के आसपास के क्षेत्रों पर जोर से एक में काम कर रहे, ताकि जब आप परिभाषाओं को पतन आपको कोई कोड नहीं देख सकते हैं ?

क्या तुम सच में की जरूरत है इस तरह का पतन करने वाली परिभाषाओं बल्कि विस्तार क्षेत्रों मैक्रो है,:

Sub CollapseToDefinitionsButExpandAllRegions() 
    DTE.ExecuteCommand("Edit.CollapsetoDefinitions") 
    DTE.SuppressUI = True 
    Dim objSelection As TextSelection = DTE.ActiveDocument.Selection 
    objSelection.StartOfDocument() 
    Do While objSelection.FindText("#region", 
     vsFindOptions.vsFindOptionsMatchInHiddenText) 
    Loop 
    objSelection.StartOfDocument() 
    DTE.SuppressUI = False 
End Sub 

एक नियमित रूप से मैक्रो मॉड्यूल में इस रखो, एक गर्म कुंजी के लिए असाइन करें, और अपने कोड वापस आ गया है।

(सिवाय ... यदि आप वास्तव में कुछ नापाक व्यक्तियों, जो क्षेत्रों डाल अंदर तरीकों के साथ काम करते हैं, इस दुर्भाग्य से उन तरीकों का विस्तार होगा। किसी को भी एक तरह से यह है कि से बचने के लिए, संपादित करने के लिए स्वतंत्र लग रहा है लिखने के लिए जानता है।)

Answer 11

आउटपुट खिड़की

रखें अपने EnvironmentEvents मॉड्यूल में इस कोड में निर्माण अवधि दिखाएँ। यह एक समाधान (, निर्माण के पुनर्निर्माण, स्वच्छ, तैनात) से किसी भी कार्रवाई के लिए निर्माण खिड़की करने के लिए सीधे अवधि लिखेंगे।

आप कार्रवाई आप के लिए यह जानकारी देखना चाहते हैं निर्दिष्ट करने के लिए IsBuild समारोह बदल सकते हैं।

Dim buildStart As Date 

Private Function IsBuild(ByVal scope As EnvDTE.vsBuildScope, ByVal action As EnvDTE.vsBuildAction) As Boolean 
    Return scope = vsBuildScope.vsBuildScopeSolution 
End Function 

Private Sub BuildEvents_OnBuildBegin(ByVal Scope As EnvDTE.vsBuildScope, ByVal Action As EnvDTE.vsBuildAction) Handles BuildEvents.OnBuildBegin 
    If (IsBuild(Scope, Action)) Then 
     buildStart = Date.Now 
    End If 
End Sub 

Private Sub BuildEvents_OnBuildDone(ByVal Scope As EnvDTE.vsBuildScope, ByVal Action As EnvDTE.vsBuildAction) Handles BuildEvents.OnBuildDone 
    If (IsBuild(Scope, Action)) Then 
     Dim buildTime = Date.Now - buildStart 
     WriteToBuildWindow(String.Format("Build time: {0}", buildTime.ToString)) 
    End If 
End Sub 

Private Sub WriteToBuildWindow(ByVal message As String) 
    Dim win As Window = DTE.Windows.Item(EnvDTE.Constants.vsWindowKindOutput) 
    Dim ow As OutputWindow = CType(win.Object, OutputWindow) 
    For Each owPane As OutputWindowPane In ow.OutputWindowPanes 
     If (owPane.Name.Equals("Build")) Then 
      owPane.OutputString(message) 
      Exit For 
     End If 
    Next 
End Sub 

Answer 12

संक्षिप्त समाधान पैनल के सभी नोड्स, विशेष रूप से बड़ी परियोजनाओं के लिए बहुत उपयोगी:

Public Module CollapseAllNodes 
    Sub RunCollapseAllNodes() 
     Dim UIHSolutionExplorer As UIHierarchy 
     UIHSolutionExplorer = DTE.Windows.Item(Constants.vsext_wk_SProjectWindow).Object() 

     ' Check if there is any open solution 
     If (UIHSolutionExplorer.UIHierarchyItems.Count = 0) Then 
      Return 
     End If 

     ' Get the top node (the name of the solution) 
     Dim UIHSolutionRootNode As UIHierarchyItem 
     UIHSolutionRootNode = UIHSolutionExplorer.UIHierarchyItems.Item(1) 

     CloseRecursif(UIHSolutionRootNode) 

     ' Select the solution node, or else when you click 
     ' on the solution windows scrollbar, it will synchronize the open document 
     ' with the tree and pop out the corresponding node which is probably not 
     ' what you want. 
     UIHSolutionRootNode.Select(vsUISelectionType.vsUISelectionTypeSelect) 
    End Sub 

    Function CloseRecursif(ByRef element) 
     For Each UIHChild In element.UIHierarchyItems() 
      CloseRecursif(UIHChild) 

      If (UIHChild.UIHierarchyItems.Expanded = True) Then 
       UIHChild.UIHierarchyItems.Expanded = False 
      End If 

     Next 
    End Function 
End Module 

Answer 13

नहीं अपने आप ही एक मैक्रो, लेकिन उपयोगी:

Public Sub WriteToOutputWindow(ByVal pane as String, ByVal Msg As String) 
    Dim owPane As OutputWindowPane 

    Dim win As Window = DTE.Windows.Item(EnvDTE.Constants.vsWindowKindOutput) 
    Dim ow As OutputWindow = win.Object 
    Try 
     owPane = ow.OutputWindowPanes.Item(pane) 
    Catch 
     owPane = ow.OutputWindowPanes.Add(pane) 
    End Try 
    If Not owPane Is Nothing Then 
     owPane.Activate() 
     owPane.OutputString(Msg & vbCrLf) 
    End If 
End Sub 

Answer 14

मैं वर्तमान में विभिन्न कोडिंग मानकों के साथ दो अलग-अलग परियोजनाओं पर काम कर रहा हूं, जो कि लाइन की शुरुआत के लिए टैब का उपयोग करता है और दूसरा जो रिक्त स्थान का उपयोग करता है। यह मैक्रो टॉगल करेगा कि किस मानक का उपयोग वर्तमान में सक्रिय है:

Public Sub ToggleTabs() 
    If DTE.ActiveDocument.Language = "CSharp" Then 
     Dim currentSetting As Boolean = DTE.Properties("TextEditor", "CSharp").Item("InsertTabs").Value 
     DTE.Properties("TextEditor", "CSharp").Item("InsertTabs").Value = Not currentSetting 
    End If 

    If DTE.ActiveDocument.Language = "SQL" Then 
     Dim currentSQLSetting As Boolean = DTE.Properties("TextEditor", "SQL").Item("InsertTabs").Value 
     DTE.Properties("TextEditor", "SQL").Item("InsertTabs").Value = Not currentSQLSetting 
    End If 

    If DTE.ActiveDocument.Language = "HTML" Then 
     Dim currentHTMLSetting As Boolean = DTE.Properties("TextEditor", "HTML").Item("InsertTabs").Value 
     DTE.Properties("TextEditor", "HTML").Item("InsertTabs").Value = Not currentHTMLSetting 
    End If 

    If DTE.ActiveDocument.Language = "JScript" Then 
     Dim currentJScriptSetting As Boolean = DTE.Properties("TextEditor", "JScript").Item("InsertTabs").Value 
     DTE.Properties("TextEditor", "JScript").Item("InsertTabs").Value = Not currentJScriptSetting 
    End If 

End Sub