आप इस मैक्रो को अपने VS कॉन्फिग में जोड़ सकते हैं (टूल्स -> मैक्रोज़ -> मैक्रो एक्सप्लोरर के माध्यम से) फिर इसे एक हॉटकी असाइन करें (टूल्स के माध्यम से -> विकल्प -> पर्यावरण -> कीबोर्ड)।
मैंने केवल इसे लिखा है (युगों के लिए यह प्रयास करने का अर्थ है!) लेकिन यह VS2008 और VS2010 दोनों में अब तक काम करता है।
चूंकि यह एक मैक्रो है जिसे आप जो भी नियम चाहते हैं उसे शामिल करने के लिए इसे संपादित कर सकते हैं (जैसे कि अन्य फ़ोल्डरों में देख रहे हैं, या विशेष नामकरण नियम यदि आपके पास एक ही हैडर कई सीपीपी फ़ाइलों या समान द्वारा साझा किया गया है)।
यहां मैक्रो है (मुझे यकीन है कि यह बेहतर लिखा जा सकता है; मैं वीएस ऑब्जेक्ट्स से अपरिचित हूं और केवल एहसास हुआ कि मैक्रोज़ उपयोग कर रहे हैं। बात लिखने के माध्यम से आधे रास्ते के बारे में :)):
Sub FileSwitch()
Try
Dim CurrentPath As String = DTE.ActiveDocument.FullName
Dim OtherPath As String
If (IO.Path.HasExtension(CurrentPath)) Then
Dim CurrentExtension As String = IO.Path.GetExtension(CurrentPath)
Select Case CurrentExtension
Case ".h", ".hpp", ".hxx"
OtherPath = IO.Path.ChangeExtension(CurrentPath, ".cpp")
If (Not IO.File.Exists(OtherPath)) Then
OtherPath = IO.Path.ChangeExtension(CurrentPath, ".c")
If (Not IO.File.Exists(OtherPath)) Then
OtherPath = IO.Path.ChangeExtension(CurrentPath, ".cxx")
End If
End If
Case ".cpp", ".c", ".cxx"
OtherPath = IO.Path.ChangeExtension(CurrentPath, ".h")
If (Not IO.File.Exists(OtherPath)) Then
OtherPath = IO.Path.ChangeExtension(CurrentPath, ".hpp")
If (Not IO.File.Exists(OtherPath)) Then
OtherPath = IO.Path.ChangeExtension(CurrentPath, ".hxx")
End If
End If
Case Else
End Select
If (OtherPath <> Nothing) Then
DTE.ItemOperations.OpenFile(OtherPath)
End If
End If
Catch ex As System.Exception
MsgBox(ex.Message)
End Try
End Sub
यहाँ (बहुत विस्तृत :)) स्क्रीनशॉट दिखा रहा है कि मैक्रो संपादक और हॉटकी / विकल्प संवाद क्या दिखना चाहिए, इससे परिचित लोगों की मदद करने के लिए:
