MVC3 之asp.net 与vb.net 互转练习
vb.net mvc3相关教程http://www.asp.net/mvc/overview/older-versions/getting-started-with-aspnet-mvc3/vb/adding-a-view
asp.net mvc3太多了，不列举了。
vb.net 相关基础
http://www.lob.cn/jq/kfjq/1933.shtml
复制代码Dim namedCust = New Customer With {.Name = "Terry Adams"}
匿名类型没有可用的名称。因此，匿名类型的实例化不能包含类名称。
复制代码Dim anonymousCust = New With {.Name = "Hugo Garcia"}
开始正文 asp.net 原文是http://www.cnblogs.com/willick/p/3418517.html
使用 MVC Unobtrusive Ajax
在 MVC 中使用 Unobtrusive Ajax ，首先要将其“开启”，需要做两个动作。一个是配置根目录下的 Web.config 文件，在 configuration/appSettings 节点下的 UnobtrusiveJavaScriptEnabled 值设为 true，如下所示：
...
<configuration>
<appSettings>
...
<add key="UnobtrusiveJavaScriptEnabled" value="true" />
</appSettings>
</configuration>
...
UnobtrusiveJavaScriptEnabled 的值在程序创建的时候默认为true，在开发的时候有时候只需要检查一下。第二个动作就是在需要使用 MVC Unobtrusive Ajax 的 View 中引入jquery库和jquery.unobtrusive-ajax.min.js文件，一般更为常见的是在 /Views/Shared/_Layout.cshtml 中引入，如下：
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8" />
<meta name="viewport" content="width=device-width" />
<title>@ViewBag.Title</title>
<script src="~/Scripts/jquery-1.8.2.min.js"></script>
<script src="~/Scripts/jquery.unobtrusive-ajax.min.js"></script>
</head>
<body>
@RenderBody()
</body>
</html>
现在我们来做一个使用 Unobtrusive Ajax 的例子，从服务器获取一个简单的用户列表。为此我们需要准备一个Model，如下：
namespace MvcApplication1.Models {
public class Person {
public string ID { get; set; }
public string Name { get; set; }
public Role Role { get; set; }
}
public enum Role {
Admin, User, Guest
}
}
我一般习惯先写后台方法，再写UI。创建一个名为 People 的 controller， 在该 controller 中写好要用的 action，代码如下：
public class PeopleController : Controller {
private Person[] personData = {
new Person {ID = "ZhangSan", Name = "张三", Role = Role.Admin},
new Person {ID = "LiSi", Name = "李四", Role = Role.User},
new Person {ID = "WangWu", Name = "王五", Role = Role.User},
new Person {ID = "MaLiu", Name = "马六", Role = Role.Guest}
};
public ActionResult Index() {
return View();
}
public PartialViewResult GetPeopleData(string selectedRole = "All") {
IEnumerable<Person> data = personData;
if (selectedRole != "All") {
Role selected = (Role)Enum.Parse(typeof(Role), selectedRole);
data = personData.Where(p => p.Role == selected);
}
return PartialView(data);
}
public ActionResult GetPeople(string selectedRole = "All") {
return View((object)selectedRole);
}
}
这里添加了 GetPeopleData action方法，根据 selectedRole 获取用户数据并传递给 PartialView 方法。
接着为 GetPeopleData action 创建一个partial view：/Views/People/GetPeopleData.cshtml ，代码如下：
@using MvcApplication1.Models
@model IEnumerable<Person> @foreach (Person p in Model) {
<tr>
<td>@p.ID</td>
<td>@p.Name</td>
<td>@p.Role</td>
</tr>
}
再创建我们的主视图 /Views/People/GetPeople.cshtml，代码如下：
@using MvcApplication1.Models
@model string @{
ViewBag.Title = "GetPeople";
AjaxOptions ajaxOpts = new AjaxOptions {
UpdateTargetId = "tableBody"
};
} <h2>Get People</h2>
<table>
<thead><tr><th>First</th><th>Last</th><th>Role</th></tr></thead>
<tbody id="tableBody">
@Html.Action("GetPeopleData", new { selectedRole = Model })
</tbody>
</table>
@using (Ajax.BeginForm("GetPeopleData", ajaxOpts)) {
<div>
@Html.DropDownList("selectedRole", new SelectList(
new[] { "All" }.Concat(Enum.GetNames(typeof(Role)))))
<button type="submit">Submit</button>
</div>
}
vb.net格式的 model
Public Class Person
Private _iD As String
Public Property ID() As String
Get
Return _iD
End Get
Set(ByVal value As String)
_iD = value
End Set
End Property Private _name As String
Public Property Name() As String
Get
Return _name
End Get
Set(ByVal value As String)
_name = value
End Set
End Property Private _role As Role
Public Property Role() As String
Get
Return _role
End Get
Set(ByVal value As String)
_role = value
End Set
End Property End Class Public Enum Role
Admin
User
Guest
End Enum
PeopleController 代码 这里要注意一点 with 用法，还有默认值可选项 ，还有拉姆达表达式转换
Namespace MvcApplication1
Public Class PeopleController
Inherits System.Web.Mvc.Controller Dim personData() As Person = {
New Person With {
.ID = "ZhangSan", .Name = "张三", .Role = Role.Admin
},
New Person With {
.ID = "LiSi", .Name = "李四", .Role = Role.User
},
New Person With {
.ID = "WangWu", .Name = "王五", .Role = Role.User
},
New Person With {
.ID = "MaLiu", .Name = "马六", .Role = Role.Guest
}
}
'
' GET: /People Function Index() As ActionResult
Return View()
End Function
Public Function GetPeopleData(Optional ByVal selectedRole As String = "All") As PartialViewResult
Dim data As IEnumerable(Of Person) = personData
If (selectedRole <> "All") Then
’Dim selected As Role = CType(selectedRole, Role)
Dim selected As Role = CType([Enum].Parse(GetType(Role), selectedRole), Role)'更改后的
' Role selected = (Role)Enum.Parse(typeof(Role), selectedRole);
data = From p In personData Where p.Role = selected
End If
Return PartialView(data)
End Function
Public Function GetPeople(Optional ByVal selectedRole As String = "All") As ActionResult
Return View(CType(selectedRole, Object))
End Function
End Class
End Namespace
视图需要注意的地方是：html标签的写法，不能像asp.net中那样随便写了，必须在前面加一个@符号 ，否则出现错误。
GetPeopleData 视图
@Imports MvcApplication1.Models @*可以不写的*@
<table>
@For Each p As MvcApplication1.Person In Model @<tr>
<td>@p.ID</td>
<td>@p.Name</td>
<td>@p.Role</td>
</tr>
Next
</table>
GetPeople 视图
@*@Imports MvcApplication1.Models 可以省略*@
@Code
ViewData("Title") = "GetPeople"
Dim ajaxOpts As AjaxOptions = New AjaxOptions With {
.UpdateTargetId = "tableBody"
}
End Code <h2>GetPeople</h2>
<table>
<thead><tr><th>First</th><th>Last</th><th>Role</th></tr></thead>
<tbody id="tableBody">
@Html.Action("GetPeopleData", New With {.selectedRole = Model})
</tbody>
</table>
@Using Ajax.BeginForm("GetPeopleData", ajaxOpts) @<div>
//这里没有转换成功，需要学习 终于成功了
@Html.DropDownList("selectedRole", New SelectList(
New Object() {"All"}.Concat([Enum].GetNames(GetType(MvcApplication1.Role)))))
<button type="submit">Submit</button>
</div> End Using
new[] 对应的vb.net 是 New Object()
没有实现，一直挂在心头，今天终于成功了！也是偶然。
显示效果 图
点击submit后显示
记录一下。
MVC3 之asp.net 与vb.net 互转练习的更多相关文章
- 分享自制的C#和VB Code互转工具
分享自制的C#和VB Code互转工具 作为.NET程序员,往往习惯使用一种语言(据我观察,2006年后的程序员习惯用C#,之前的喜欢VB).而对于另一种语言虽然能读懂但是写起来总是比较费事.尤其面对 ...
- 在MVC3或asp.net中修改KindEditor实现上传图片时添加水印
主要修改两个文件:image.js和upload_json.ashx文件. 一.修改image.js文件 打开kindeditor/plugins/image目录下的image.js文件,找到 '&l ...
- ASP.NET与json对象互转
这两天写这个xml跟json的读写,心累啊,也不是很理解,请大家多指教 首先来个热身菜做一个简单的解析json 在script里写一个简单的弹窗效果 <script> //script里简 ...
- Asp.Net时间戳与时间互转
/// <summary> /// 时间戳转成时间类型 /// </summary> /// <param name="timeStamp">& ...
- ASP.NET MVC3升级到ASP.NET MVC4 的方法
ASP.NET MVC3升级 ASP.NET MVC4 的方法: 1.先去掉引用的System.Web.Mvc.dll(MVC3版本),重新引入System.Web.Mvc.dll(MVC4版本) 2 ...
- Asp.Net MVC3 简单入门第一季（三）详解Controller之Filter
前言 前面两篇写的比较简单,刚开始写这个系列的时候我面向的对象是刚开始接触Asp.Net MVC的朋友,所以写的尽量简单.所以写的没多少技术含量.把这些技术总结出来,然后一简单的方式让更多的人很好的接 ...
- ASP.NET MVC3 系列教程 - 目录
ASP.NET MVC3 系列教程 - 目录 I:ASP.NET MVC3 新增的功能 ASP.NET MVC3 系列教程 - Razor视图引擎基础语法ASP.NET MVC3 系列教程 - V ...
- asp 调用 vb(activex dll) ，参数传递(传引用)需要注意
今天上午测试 vb 与 c(dll) 之间交互,传递参数的时候,没遇到什么太大的问题. 下午在asp中调用vb(activex dll)时, 在asp代码中传参数到 vb(dll)中时,遇到问题了. ...
- asp <----> vb(com,dll) <---> c 来回的调用，生命在于折腾
最近想改进一个两年前写的小程序,原因是最近将运行在托管服务器上的asp程序迁移到阿里云主机上运行. 初次使用阿里云主机,买了一个配置较低的主机(1核,1G内存,年付:1500左右吧) 原来使用的托管的 ...
随机推荐
- 如何修改git分支名名称
1. 修改本地git分支名称指令 git branch -m oldBranchName newBranchName 2. 修改远程仓库(github)上的分支名称 git本地分支名已修改,只需推送到 ...
- python pip源配置
一.Linux版本: linux的文件存放在:~/.pip/pip.conf 二.windows版本: 在用户文件夹下创建pip目录,并在pip目录下创建pip.ini文件(%HOME%\pip\pi ...
- 解决MySQL报错：1 of ORDER BY clause is not in GROUP BY clause and contains nonaggregated column 'informat
解决MySQL报错:1 of ORDER BY clause is not in GROUP BY clause and contains nonaggregated column 'informat ...
- PAT 1090 Highest Price in Supply Chain[较简单]
1090 Highest Price in Supply Chain(25 分) A supply chain is a network of retailers(零售商), distributors ...
- mac常用操作：
Mac常用软件需要熟悉 常用操作: command + w 关闭窗口 + n 最小化当前窗口 + m 关闭所有窗口 + + w command + c 复制 command + v 粘贴 co ...
- activiti整合spring
activiti的配置文件其实就是一份spring的配置文件,只是默认将processEngineConfiguration做为一个bean来读取. 当和spring进一步整合时,需要使用 Sprin ...
- cocos代码研究（26）Widget子类RichView学习笔记
理论部分 一个显示多个RichElement的容器类. 我们可以使用它很容易显示带图片的文本,继承自 Widget. 代码实践 static RichText * create ()创建一个空的Ric ...
- VS2010/MFC编程入门之二十六（常用控件：滚动条控件Scroll Bar）
回顾上一节,鸡啄米讲的是组合框控件Combo Box的使用.本节详解滚动条控件Scroll Bar的相关内容. 滚动条控件简介 滚动条大家也很熟悉了,Windows窗口中很多都有滚动条.前面讲的列表框 ...
- hdu1199 线段树
这题说的是给了 n 个操作. 每个操作会把 [a,b] 之间的球 涂为黑色或者 白色, 然后最后问 最长的连续的白色的 球有多少个,初始的时候全是黑的. 我们将所有的点离散化, 记得离散 a-1, b ...
- Http请求中Content-Type
1. Content-Type MediaType,即是Internet Media Type,互联网媒体类型:也叫做MIME类型,在Http协议消息头中,使用Content-Type来表示具体请求 ...