Add basic VB.NET Create view T4 template for ASP.NET MVC.

14 years ago · 998742e961
2 changed files with 75 additions and 0 deletions
--- a/src/AddIns/BackendBindings/AspNet.Mvc/Project/AspNet.Mvc.csproj
+++ b/src/AddIns/BackendBindings/AspNet.Mvc/Project/AspNet.Mvc.csproj
@ -215,6 +215,9 @@
				@@ -215,6 +215,9 @@
    <None Include="ItemTemplates\VisualBasic\CodeTemplates\AddController\Controller.tt">
      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
    </None>
+    <None Include="ItemTemplates\VisualBasic\CodeTemplates\AddView\AspxVisualBasic\Create.tt">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
    <None Include="ItemTemplates\VisualBasic\CodeTemplates\AddView\AspxVisualBasic\Empty.tt">
      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
    </None>
--- 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
@ -0,0 +1,72 @@
				@@ -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() #>" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="Title" runat="server">
+<#= MvcHost.ViewName #>
+</asp:Content>
+
+<asp:Content ID="Content2" ContentPlaceHolderID="<#= MvcHost.PrimaryContentPlaceHolderID #>" runat="server">
+<#
+		PushIndent(vbTab)
+	Else
+#>
+<%@ Page Language="VB" Inherits="System.Web.Mvc.ViewPage<#= GetViewPageType() #>" %>
+
+<!DOCTYPE html>
+<html>
+	<head runat="server">
+		<title><#= MvcHost.ViewName #></title>
+	</head>
+	<body>
+<# 
+		PushIndent(vbTab & vbTab)
+	End If
+#>
+<% Using Html.BeginForm() %>
+	<%: Html.ValidationSummary(True) %>
+	<fieldset>
+		<legend><#= MvcHost.ViewDataType.Name #></legend>
+		
+		<p>
+			<input type="submit" value="Create"/>
+		</p>
+	</fieldset>
+<% End Using %>
+<div>
+	<%: Html.ActionLink("Back", "Index") %>
+</div>
+<#
+	If MvcHost.IsPartialView Then
+		' Do nothing.
+	ElseIf MvcHost.IsContentPage Then
+		PopIndent()
+#>
+</asp:Content>
+<#
+	Else
+		PopIndent()
+#>
+	</body>
+</html>
+<# 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
+#>