mywizard.vb

来自「讲解visual studio的应用」· VB 代码 · 共 51 行

Imports Microsoft.VisualStudio.TemplateWizard
Imports System.Collections.Generic
Imports System.Windows.Forms


Public Class MyWizard
    Implements IWizard


    Public Sub BeforeOpeningFile(ByVal projectItem As EnvDTE.ProjectItem) _
                                               Implements IWizard.BeforeOpeningFile
    End Sub

    Public Sub ProjectFinishedGenerating(ByVal project As EnvDTE.Project) _
                                       Implements IWizard.ProjectFinishedGenerating
    End Sub

    Public Sub ProjectItemFinishedGenerating _
                                   (ByVal projectItem As EnvDTE.ProjectItem) _
                                   Implements IWizard.ProjectItemFinishedGenerating
    End Sub

    Public Sub RunFinished() Implements IWizard.RunFinished

    End Sub

    Public Sub RunStarted(ByVal automationObject As Object, _
                          ByVal replacementsDictionary As _
                                                   Dictionary(Of String, String), _
                          ByVal runKind As WizardRunKind, _
                          ByVal customParams() As Object) _
                                                      Implements IWizard.RunStarted
        Dim selector As New ColorPickerForm
        If selector.ShowDialog = DialogResult.OK Then
            Dim c As Drawing.Color = selector.SelectedColor
            Dim colorString As String = "System.Drawing.Color.FromArgb(" & _
                                                             c.R.ToString & "," & _
                                                             c.G.ToString & "," & _
                                                             c.B.ToString & ")"
            replacementsDictionary.Add _
                                  ("Me.BackColor = System.Drawing.Color.Silver", _
                                   "Me.BackColor = " & colorString)
        End If
    End Sub

    Public Function ShouldAddProjectItem(ByVal filePath As String) As Boolean _
                                            Implements IWizard.ShouldAddProjectItem
        Return True
    End Function
End Class