javascript判斷是否有對(duì)RadioButtonList選項(xiàng)選擇

Imports Microsoft.VisualBasic 
Namespace Insus.NET 
Public Class Cosmetic 
Private _ID As Integer 
Private _Type As String 
Private _Name As String 
Private _Weight As Decimal 
Private _UM As String 
Public Property ID As Integer 
Get 
Return _ID 
End Get 
Set(value As Integer) 
_ID = value 
End Set 
End Property 
Public Property Type As String 
Get 
Return _Type 
End Get 
Set(value As String) 
_Type = value 
End Set 
End Property 
Public Property Name As String 
Get 
Return _Name 
End Get 
Set(value As String) 
_Name = value 
End Set 
End Property 
Public Property Weight As Decimal 
Get 
Return _Weight 
End Get 
Set(value As Decimal) 
_Weight = value 
End Set 
End Property 
Public Property UM As String 
Get 
Return _UM 
End Get 
Set(value As String) 
_UM = value 
End Set 
End Property 
Public Sub New() 
End Sub 
Public Sub New(id As Integer, type As String, name As String, weight As Decimal, um As String) 
Me._ID = id 
Me._Type = type 
Me._Name = name 
Me._Weight = weight 
Me._UM = um 
End Sub 
Public Function GetData() As List(Of Cosmetic) 
Dim o As New List(Of Cosmetic) 
Dim c As New Cosmetic(1, "滋潤(rùn)霜", "玉蘭油", 50, "g") 
o.Add(c) 
Dim c1 As New Cosmetic(2, "滋潤(rùn)霜", "雅詩(shī)蘭黛", 100, "g") 
o.Add(c1) 
Dim c2 As New Cosmetic(3, "滋潤(rùn)霜", " 蘭蔻", 80, "g") 
o.Add(c2) 
Dim c3 As New Cosmetic(4, "滋潤(rùn)霜", "歐萊雅", 60, "g") 
o.Add(c3) 
Dim c4 As New Cosmetic(5, "滋潤(rùn)霜", "芭比波朗", 120, "g") 
o.Add(c4) 
Return o 
End Function 
End Class 
End Namespace 
 
在aspx放一個(gè)RadioButtonList控件和一個(gè)銨鈕： 
 代碼如下:

化妝品：<asp:RadioButtonList ID="RadioButtonListCosmetic" runat="server" RepeatColumns="10" RepeatDirection="Horizontal"></asp:RadioButtonList> 
<br /> 
<asp:Button ID="Button1" runat="server" Text="Select" /> 
 
在aspx.vb中，為RadioButtonList綁定數(shù)據(jù)源，當(dāng)然綁定數(shù)據(jù)源下面的代碼中，還得引用命名空間 Imports Insus.NET 
 代碼如下:

Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load 
If Not IsPostBack Then 
Data_Binding() 
End If 
End Sub 
Private Sub Data_Binding() 
Dim objCosmetic As New Cosmetic() 
Me.RadioButtonListCosmetic.DataSource = objCosmetic.GetData() 
Me.RadioButtonListCosmetic.DataTextField = "Name" 
Me.RadioButtonListCosmetic.DataValueField = "ID" 
Me.RadioButtonListCosmetic.DataBind() 
End Sub 
 
接下來是演示開始，寫Javascript代碼： 
 代碼如下:

View Code 
<script type="text/javascript"> 
function CheckIsSelected() { 
var rbl = document.getElementById("<%=RadioButtonListCosmetic.ClientID%>"); 
var radio = rbl.getElementsByTagName("input"); 
var isSelect = false; 
for (var i = 0; i < radio.length; i++) { 
if (radio[i].checked) { 
isSelect = true; 
break; 
} 
} 
if (!isSelect) { 
alert("請(qǐng)選擇一個(gè)選項(xiàng)。"); 
} 
return isSelect; 
} 
</script> 
 
最后是為銨鈕Button寫客戶端事件 
 代碼如下:

<asp:Button ID="Button1" runat="server" Text="Select" OnClientClick="return CheckIsSelected()" /> 

 
 




聲明：本網(wǎng)頁(yè)內(nèi)容旨在傳播知識(shí)，若有侵權(quán)等問題請(qǐng)及時(shí)與本網(wǎng)聯(lián)系，我們將在第一時(shí)間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com