VB.NET template updated.

Author: gsscoder

doc/ChangeLog

@@ -1,3 +1,12 @@
+2013-02-21  Giacomo Stelluti Scala  <[email protected]>  
+
+  * HelpText, internal refactoring to safely suppress a CodeAnalysis warning.
+  * Namespace Core renamed Infrastructure.
+  * Extensions methods refacored in one class per group.
+  * Fixed issue #6.
+  * Using VSSTUDIO CodeAnalysis instead of FxCop.
+  * CSharp and VB.NET template updated.
+
 2013-02-19  Giacomo Stelluti Scala  <[email protected]>
 
   * Trying to tatally complying to naming rules (see doc/Contributors).
@@ -26,11 +35,6 @@
           use HelpText::AutoBuild(object,string)
   * HelpText class:
       - added HelpText::AutoBuild(object,string)
-      - internal refactoring to safely suppress a CodeAnalysis warning.
-  * Namespace Core renamed Infrastructure.
-  * Extensions methods refacored in one class per group.
-  * Fixed issue #6.
-  * Using VSSTUDIO CodeAnalysis instead of FxCop.
 
 2013-02-18  Giacomo Stelluti Scala  <[email protected]>
 

src/templates/VBNetTemplate/My Project/Application.Designer.vb

@@ -0,0 +1,30 @@
+#Region "License"
+'<copyright file="Options.vb" company="Your name here">
+'   Copyright 2013 Your name here
+' </copyright>
+'
+' [License Body Here]
+#End Region
+#Region "Using Directives"
+Imports CommandLine
+Imports CommandLine.Text
+#End Region
+
+Friend Class Options
+
+    <[Option]("t"c, "text", Required:=True, HelpText:="text value here")>
+    Public Property TextValue As String
+
+    <[Option]("n"c, "numeric", HelpText:="numeric value here")>
+    Public Property NumericValue As Double = 0
+
+    <[Option]("b"c, "bool", HelpText:="on|off switch here")>
+    Public Property BooleanValue As Boolean
+
+    <HelpOption()>
+    Public Function GetUsage() As String
+
+        Return HelpText.AutoBuild(Me, Sub(current As HelpText) HelpText.DefaultParsingErrorsHandler(Me, current))
+
+    End Function
+End Class

src/templates/VBNetTemplate/My Project/Resources.Designer.vb

@@ -1,64 +1,28 @@
 #Region "License"
-''
-'' Your Project Name Here: Program.vb
-''
-'' Author:
-''   Your Name Here ([email protected])
-''
-'' Copyright (C) 2012 Your Name Here
-''
-'' [License Body Here]
+'<copyright file="Options.vb" company="Your name here">
+'   Copyright 2013 Your name here
+' </copyright>
+'
+' [License Body Here]
 #End Region
 #Region "Using Directives"
 Imports CommandLine
 Imports CommandLine.Text
 #End Region
 
 Friend NotInheritable Class Program
-    Private Class Options
-        Inherits CommandLineOptionsBase
 
-        <[Option]("t", "text", Required:=True, HelpText:="text value here")>
-        Public Property TextValue As String
-
-        <[Option]("n", "numeric", HelpText:="numeric value here")>
-        Public Property NumericValue As Double = 0
-
-        <[Option]("b", "bool", HelpText:="on|off switch here")>
-        Public Property BooleanValue As Boolean
+    Shared Sub Main(args As String())
 
-        <HelpOption()>
-        Public Function GetUsage() As String
-            Dim help = New HelpText() With {
-                .Heading = New HeadingInfo(ThisAssembly.Title, ThisAssembly.InformationalVersion),
-                .Copyright = New CopyrightInfo(ThisAssembly.Author, 2012),
-                .AdditionalNewLineAfterOption = True,
-                .AddDashesToOption = True}
-            Me.HandleParsingErrorInHelp(help)
-            help.AddPreOptionsLine("<<license details here.>>")
-            help.AddPreOptionsLine("Usage: VBNetTemplate -tSomeText --numeric 2012 -b")
-            help.AddOptions(Me)
+        Dim options = New Options()
 
-            Return help
-        End Function
+        If Not CommandLine.Parser.Default.ParseArguments(args, options) Then
+            Environment.Exit(CommandLine.Parser.DefaultExitCodeFail)
+        End If
 
-        Private Sub HandleParsingErrorInHelp(help As HelpText)
-            If Me.LastPostParsingState.Errors.Count > 0 Then
-                Dim errors = help.RenderParsingErrorsText(Me, 2) ''indent by two spaces
-                If Not String.IsNullOrEmpty(errors) Then
-                    help.AddPreOptionsLine(String.Concat(Environment.NewLine, "ERROR(S):"))
-                    help.AddPreOptionsLine(errors)
-                End If
-            End If
-        End Sub
-    End Class
+        Console.WriteLine("t|ext: " + options.TextValue)
+        Console.WriteLine("n|umeric: " & options.NumericValue)
+        Console.WriteLine("b|ool: " & options.BooleanValue.ToString.ToLower)
 
-    Shared Sub Main(args As String())
-        Dim options = New Options()
-        If CommandLineParser.Default.ParseArguments(args, options) Then
-            Console.WriteLine("t|ext: " + options.TextValue)
-            Console.WriteLine("n|umeric: " & options.NumericValue)
-            Console.WriteLine("b|ool: " & options.BooleanValue.ToString.ToLower)
-        End If
     End Sub
-End Class
+End Class

src/templates/VBNetTemplate/My Project/Settings.Designer.vb

@@ -1,13 +1,9 @@
 #Region "License"
-''
-'' Your Project Name Here: ThisAssembly.vb
-''
-'' Author:
-''   Your Name Here ([email protected])
-''
-'' Copyright (C) 2012 Your Name Here
-''
-'' [License Body Here]
+'<copyright file="ThisAssembly.vb" company="Your name here">
+'   Copyright 2013 Your name here
+' </copyright>
+'
+' [License Body Here]
 #End Region
 
 Friend Class ThisAssembly

src/templates/VBNetTemplate/Options.vb

@@ -14,7 +14,7 @@
     <AssemblyName>VBNetTemplate</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>Console</MyType>
-    <TargetFrameworkVersion>v2.0</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
     <TargetFrameworkProfile>
     </TargetFrameworkProfile>
     <IsWebBootstrapper>false</IsWebBootstrapper>
@@ -91,6 +91,7 @@
     <Import Include="System.Xml.Linq" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="Options.vb" />
     <Compile Include="Program.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
@@ -118,6 +119,7 @@
     </EmbeddedResource>
   </ItemGroup>
   <ItemGroup>
+    <None Include="app.config" />
     <None Include="My Project\app.manifest" />
     <None Include="My Project\Application.myapp">
       <Generator>MyApplicationCodeGenerator</Generator>

src/templates/VBNetTemplate/Program.vb

@@ -0,0 +1,6 @@
+<?xml version="1.0"?>
+<configuration>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
+    </startup>
+</configuration>