LivetのコードスニペットのVB版

LivetDelegateCommand.snippet

<?xml version="1.0" encoding="utf-8"?>
<CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  <CodeSnippet Format="1.0.0">
    <Header>
      <Title>Livet DelegateCommand(パラメータ無)</Title>
      <Author>ugaya40(Masanori Onoue)</Author>
      <Description>DelegateCommand(パラメータ無)を作成します</Description>
      <HelpUrl></HelpUrl>
      <SnippetTypes />
      <Keywords />
      <Shortcut>ldcom</Shortcut>
    </Header>
    <Snippet>
      <References />
      <Imports>
        <Import>
          <Namespace>Livet.Command</Namespace>
        </Import>
      </Imports>
      <Declarations>
        <Literal Editable="true">
          <ID>name</ID>
          <Type />
          <ToolTip>コマンド名</ToolTip>
          <Default>MyCommand</Default>
          <Function />
        </Literal>
      </Declarations>
      <Code Language="VB" Kind="" Delimiter="$"><![CDATA[#Region "$name$Command"
    Private _$name$Command As DelegateCommand

    Public ReadOnly Property $name$Command() As DelegateCommand
        Get
            If _$name$Command Is Nothing Then
                _$name$Command = New DelegateCommand(AddressOf $name$, AddressOf Can$name$)
            End If
            Return _$name$Command
        End Get
    End Property

    Private Function Can$name$() As Boolean
        
    End Function

    Private Sub $name$()
        
    End Sub
#End Region]]></Code>
    </Snippet>
  </CodeSnippet>
</CodeSnippets>

LivetDelegateCommandNoCanExecute.snippet

<?xml version="1.0" encoding="utf-8"?>
<CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  <CodeSnippet Format="1.0.0">
    <Header>
      <Title>Livet DelegateCommand(パラメータ無・CanExecute無)</Title>
      <Author>ugaya40(Masanori Onoue)</Author>
      <Description>DelegateCommand(パラメータ無・CanExecute無)を作成します</Description>
      <HelpUrl></HelpUrl>
      <SnippetTypes />
      <Keywords />
      <Shortcut>ldcomn</Shortcut>
    </Header>
    <Snippet>
      <References />
      <Imports>
        <Import>
          <Namespace>Livet.Command</Namespace>
        </Import>
      </Imports>
      <Declarations>
        <Literal Editable="true">
          <ID>name</ID>
          <Type />
          <ToolTip>コマンド名</ToolTip>
          <Default>MyCommand</Default>
          <Function />
        </Literal>
      </Declarations>
      <Code Language="VB" Kind="" Delimiter="$"><![CDATA[#Region "$name$Command"
    Private _$name$Command As DelegateCommand

    Public ReadOnly Property $name$Command As DelegateCommand
        Get
            If _$name$Command Is Nothing Then
                _$name$Command = New DelegateCommand(AddressOf $name$)
            End If
            Return _$name$Command
        End Get
    End Property

    Private Sub $name$()
        
    End Sub
#End Region]]></Code>
    </Snippet>
  </CodeSnippet>
</CodeSnippets>