Visual Studio 2008アドインはフォームファイルをコピーして名前を変更し、名前の変更にもかかわらず重複したメンバーエラーを取得します

Question

Visual Studio 2008に特殊なアドインを作成したVB.NETプロジェクトがあります。アドインは、データベーステーブルの選択、テンプレートフォームクラスのファイルの取得、プロジェクト内の別のディレクトリへのコピー、コピーされたファイル内のフォームクラスの名前の変更をユーザーに促します。次に、新しいフォームを開き、データベーステーブルのフィールドに基づいてコントロールを追加します。

テンプレートフォームをコピーすると、バックグラウンドコンパイラは、「Private Sub InitializeComponents（...）が同じシグネチャを持つ複数の定義を持つ」などの「重複メンバ」エラーを発生させます。フォームとそれらのクラス名。新しいフォームが開かれる前にこれらのエラーが消えてしまうことがありますが、新しいフォームが正しく開かれず、エラーがスローされます。

新しいフォームを開く前に、エラーリストにエラーがゼロになるまで待つようにコードを実装しました。これは時々助けになりましたが、何らかの理由で、アドインが閉じられるまでエラーがまったく消えないことがあります。

誰かがテンプレートフォームをコピーし、バックグラウンドコンパイラが重複しているメンバーに気づかずにコピーの名前を変更する方法についてヒントを得たいと考えていました。それが不可能な場合は、おそらく誰かに代替手段がありますか？ここで

はそのコピーの私のコードで、テンプレートフォームの名前を変更します。

Private Sub CreateDataForm(ByVal tableName As String, ByVal displayName As String) ', ByVal subDataForms As IList(Of Object)) 
    Try 
     Dim dataFormClassName As String = "frm" & MakeValidName(displayName) 
     Dim dataFormFileName As String = dataFormClassName & cVBSuffix 
     Dim templateFileName As String = DataFormTemplate.Name 
     Dim templateClassName As String = Replace(templateFileName, cVBSuffix, String.Empty) 

     'copy form template to data forms folder 
     'copy files associated with main projectitem 
     Dim newPItem As ProjectItem = Nothing 

     For i As Integer = 1 To DataFormTemplate.FileCount 
      newPItem = DataFormsFolder.ProjectItems.AddFromFileCopy(DataFormTemplate.FileNames(CShort(i))) 
     Next 

     'copy files associated with sub projectitems 
     For Each item As ProjectItem In DataFormTemplate.ProjectItems 
      For i As Integer = 1 To item.FileCount 
       DataFormsFolder.ProjectItems.AddFromFileCopy(item.FileNames(CShort(i))) 
      Next 
     Next 

     newPItem.Name = dataFormFileName 

     newPItem.ContainingProject.Save() 

     'fix class name for dataform template 
     FixDataFormClassName(DataFormTemplate, dataFormClassName, templateClassName) 

     newPItem.ContainingProject.Save() 

     Application.DoEvents() 

     'get table metadata 
     Dim lGetColumnInfo As DataColumnCollection = GetColumnInfo(tableName) 


     'add field controls 
     ConvertColumnInfoToFormControls(newPItem, lGetColumnInfo, tableName, displayName) 

    Catch ex As Exception 
     DisplayExceptionMessage(ex) 
    End Try 
End Sub 

Private Shared Sub FixDataFormClassName(ByVal pItem As ProjectItem, ByVal dataFormClassName As String, ByVal templateClassName As String) 
    If pItem.Document IsNot Nothing Then 
     pItem.Document.Close(vsSaveChanges.vsSaveChangesPrompt) 
    End If 
    For i As Integer = 1 To pItem.FileCount 
     Dim dftFile As New IO.FileInfo(pItem.FileNames(CShort(i))) 
     Dim tr As IO.TextReader = dftFile.OpenText() 'IO.FileMode.Open, IO.FileAccess.ReadWrite, IO.FileShare.None) 
     Dim sb As New Text.StringBuilder 
     Dim newData As String = tr.ReadToEnd().Replace(dataFormClassName, templateClassName) 
     tr.Close() 
     Dim sw As New IO.StreamWriter(dftFile.FullName) 
     sw.Write(newData) 
     sw.Close() 
    Next 

    If pItem.FileCodeModel IsNot Nothing Then CType(pItem.FileCodeModel, FileCodeModel2).Synchronize() 

    For Each item As ProjectItem In pItem.ProjectItems 
     FixDataFormClassName(item, dataFormClassName, templateClassName) 
    Next 
End Sub 

Answer 1

のVisual Studioの拡張APIを介してこれを補正し、すべての私の試みは、私はそのアプローチをあきらめ、今の背後にあるすべての汚い仕事をした後シーン。テンプレートフォームのファイルを新しいディレクトリにコピーし、新しいファイルをプロジェクトに追加する前にFileInfoオブジェクトやその他のものを介してファイルの名前と内容をすべて舞台裏で変更します。このようにして、VSは「メンバーの重複」エラーが発生することはありません。

コードを見たいと思っている人がいれば、私はそれを投稿します。