 |
|
/me ทำเสียงทองแดง
ม่ายเห็นจามีปัญหาอาไรเลย แต่เขียน vb อีกแระ anti vb, anti vb, anti vb
VbCheckBoxList.aspx.vb
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="VbCheckBoxList.aspx.vb" Inherits="VbCheckBoxList" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:CheckBoxList ID="CheckBoxList1" runat="server">
</asp:CheckBoxList>
</div>
</form>
</body>
</html>
VbCheckBoxList.aspx.vb
Imports System.Data
Partial Class VbCheckBoxList
Inherits System.Web.UI.Page
Protected Sub form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles form1.Load
CheckBoxList1.DataSource = GetDataSource()
CheckBoxList1.DataTextField = "Text"
CheckBoxList1.DataValueField = "Value"
CheckBoxList1.DataBind()
End Sub
Protected Sub CheckBoxList1_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBoxList1.DataBound
For Each item As ListItem In CheckBoxList1.Items
item.Selected = If((item.Value = "Y"), True, False)
Next
End Sub
Protected Function GetDataSource() As DataTable
Dim Dt As New DataTable()
Dt.Columns.Add(New DataColumn("Text", System.Type.GetType("System.String")))
Dt.Columns.Add(New DataColumn("Value", System.Type.GetType("System.String")))
For i As Integer = 1 To 5
Dim Dr As DataRow = Dt.NewRow()
Dr("Text") = String.Format("tungman{0}", i.ToString())
Dr("Value") = If((i Mod 2 = 0), "Y", "N")
Dt.Rows.Add(Dr)
Next
Return Dt
End Function
End Class
|
 |
 |
 |
 |
| Date :
2010-06-07 12:01:40 |
By :
tungman |
|
 |
 |
 |
 |
|
|
 |
