vbnet.patterns.singleton.xft

来自「全功能c#编译器」· XFT 代码 · 共 51 行

<?xml version="1.0"?>
<Template author="Markus Palme" version="1.0">
	
	<Config
		  name        = "${res:Templates.File.SingletonClass.Name}"
		  icon        = "VB.File.NewClass"
		  category    = "VB"
		  defaultname = "SingletonClass${Number}.vb"
		  language    = "VBNET"/>
	 
	<Description>${res:Templates.File.SingletonClass.Description}</Description>
	
	<!-- 
	Special new file templates:
		${StandardNamespace}        -> Standardnamespace of the current project or FileNameWithoutExtension
		${FullName}                 -> Full generated path name
		${FileName}                 -> File name with extension
		${FileNameWithoutExtension} -> File name without extension
		${Extension}                -> Extension in the form ".vb"
		${Path}                     -> Full path of the file
	 -->
	<Files>
		<File name="${FullName}" language="VBNET"><![CDATA[${StandardHeader.VBNET}

Imports System

Namespace ${StandardNamespace}
	' Description of ${FileNameWithoutExtension}.
	Public NotInheritable Class ${FileNameWithoutExtension}
	
		Private Shared _instance As ${FileNameWithoutExtension} = New ${FileNameWithoutExtension}()
		
		Public ReadOnly Shared Property Instance As ${FileNameWithoutExtension}
			Get
				Return _instance
			End Get
		End Property
		
		Private Sub New()
		
		End Sub
	End Class
End Namespace
]]></File>
	</Files>
	
	<AdditionalOptions/>
</Template>