Bu makroyu VS yapılandırmanıza (Araçlar -> Makrolar -> Makro Gezgini aracılığıyla) ekleyebilir ve ardından ona bir kısayol tuşu atayabilirsiniz (Araçlar -> Seçenekler -> Ortam -> Klavye aracılığıyla).
Sadece yazdım (bunu uzun zamandır denemek istiyordum!) Ama şimdiye kadar hem VS2008 hem de VS2010'da çalışıyor gibi görünüyor.
Bir makro olduğu için, istediğiniz kuralları içerecek şekilde düzenleyebilirsiniz (örneğin, başka klasörlere bakmak veya birden fazla cpp dosyası veya benzeri tarafından paylaşılan tek bir başlığınız varsa özel adlandırma kuralları).
İşte makro (eminim daha iyi yazılabilir; VS nesnelerine aşina değilim ve sadece makroların bir şeyi yazarken yarı yolda .Net kullandığını fark ettim :)):
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
İşte, aşina olmayanlara yardımcı olmak için makro düzenleyicinin ve kısayol tuşu / seçenekler iletişim kutularının nasıl görünmesi gerektiğini gösteren (çok geniş :)) bir ekran görüntüsü:
