From 998742e961c82dbf48860f290493e7e7fdc10d53 Mon Sep 17 00:00:00 2001 From: Matt Ward Date: Tue, 15 Nov 2011 20:20:52 +0000 Subject: [PATCH] Add basic VB.NET Create view T4 template for ASP.NET MVC. --- .../AspNet.Mvc/Project/AspNet.Mvc.csproj | 3 + .../AddView/AspxVisualBasic/Create.tt | 72 +++++++++++++++++++ 2 files changed, 75 insertions(+) create mode 100644 src/AddIns/BackendBindings/AspNet.Mvc/Project/ItemTemplates/VisualBasic/CodeTemplates/AddView/AspxVisualBasic/Create.tt diff --git a/src/AddIns/BackendBindings/AspNet.Mvc/Project/AspNet.Mvc.csproj b/src/AddIns/BackendBindings/AspNet.Mvc/Project/AspNet.Mvc.csproj index ad1c38a288..e0a7607051 100644 --- a/src/AddIns/BackendBindings/AspNet.Mvc/Project/AspNet.Mvc.csproj +++ b/src/AddIns/BackendBindings/AspNet.Mvc/Project/AspNet.Mvc.csproj @@ -215,6 +215,9 @@ Always + + Always + Always diff --git a/src/AddIns/BackendBindings/AspNet.Mvc/Project/ItemTemplates/VisualBasic/CodeTemplates/AddView/AspxVisualBasic/Create.tt b/src/AddIns/BackendBindings/AspNet.Mvc/Project/ItemTemplates/VisualBasic/CodeTemplates/AddView/AspxVisualBasic/Create.tt new file mode 100644 index 0000000000..6b2bf4665c --- /dev/null +++ b/src/AddIns/BackendBindings/AspNet.Mvc/Project/ItemTemplates/VisualBasic/CodeTemplates/AddView/AspxVisualBasic/Create.tt @@ -0,0 +1,72 @@ +<#@ template language="VB" HostSpecific="true" #> +<#@ import namespace="ICSharpCode.AspNet.Mvc" #> +<#@ import namespace="Microsoft.VisualBasic.Constants" #> +<# If MvcHost.IsPartialView Then #> +<%@ Control Language="VB" Inherits="System.Web.Mvc.ViewUserControl<#= GetViewPageType() #>" %> + +<# ElseIf MvcHost.IsContentPage Then #> +<%@ Page Language="VB" MasterPageFile="<#= MvcHost.MasterPageFile #>" Inherits="System.Web.Mvc.ViewPage<#= GetViewPageType() #>" %> + + +<#= MvcHost.ViewName #> + + + +<# + PushIndent(vbTab) + Else +#> +<%@ Page Language="VB" Inherits="System.Web.Mvc.ViewPage<#= GetViewPageType() #>" %> + + + + + <#= MvcHost.ViewName #> + + +<# + PushIndent(vbTab & vbTab) + End If +#> +<% Using Html.BeginForm() %> + <%: Html.ValidationSummary(True) %> +
+ <#= MvcHost.ViewDataType.Name #> + +

+ +

+
+<% End Using %> +
+ <%: Html.ActionLink("Back", "Index") %> +
+<# + If MvcHost.IsPartialView Then + ' Do nothing. + ElseIf MvcHost.IsContentPage Then + PopIndent() +#> + +<# + Else + PopIndent() +#> + + +<# End If #> +<#+ + ReadOnly Property MvcHost As MvcTextTemplateHost + Get + Return DirectCast(Host, MvcTextTemplateHost) + End Get + End Property + + Public Function GetViewPageType() As String + Dim viewDataTypeName As String = MvcHost.ViewDataTypeName + If Not String.IsNullOrEmpty(viewDataTypeName) Then + Return String.Format("(Of {0})", viewDataTypeName) + End If + Return String.Empty + End Function +#> \ No newline at end of file