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 @@
    <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 @@
 <#@ 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
 #>