示例:Radio

最新推荐文章于 2021-06-09 17:54:51 发布

xuandhu

最新推荐文章于 2021-06-09 17:54:51 发布

阅读量954

点赞数

分类专栏：其它文章标签： server button input object vb html

本文链接：https://blog.csdn.net/xuandhu/article/details/105440

版权

其它专栏收录该内容

39 篇文章 0 订阅

订阅专栏

<html>
<head>
    <script language="VB" runat="server">
      Sub Page_Load(Sender As Object, e As EventArgs)
         If Not IsPostBack Then
'定义一个ArrayList，然后为其赋值
            Dim values As New ArrayList()
  values.Add (" 加 ")
               values.Add (" 减 ")
               values.Add (" 乘 ")
               values.Add (" 除 ")
               values.Add (" 或 ")
               values.Add (" 与 ")

               StateSelect.DataSource = values
'为HtmlSelect控件设置数据源
               StateSelect.DataBind()
'数据绑定
         End If
      End Sub

      Sub SubmitBtn_Click(sender As Object, e As EventArgs)
  If (Radio1.Checked = true)
'如果Radio1被选择，那么为控件HtmlSelect增加新的选项值：“开方”
             StateSelect.Items.Add ("开方")
   Span1.InnerHtml = "您加入新值: <font color=red Size=5>开方</font>"
  End If
       If (Radio2.Checked = true)
'如果Radio2被选择，那么为控件HtmlSelect增加新的选项值：“平方”
             StateSelect.Items.Add ("平方")
   Span1.InnerHtml = "您加入新值:<font color=red Size=5>平方</font> "
  End If
       If (Radio3.Checked = true)
'如果Radio3被选择，那么为控件HtmlSelect增加新的选项值：“消元”
   StateSelect.Items.Add ("消元")
   Span1.InnerHtml = "您加入新值: <font color=red Size=5>消元</font>"
  End If
'如果三个Radio都没有选中，那么显示错误信息
  If Radio1.Checked = false And Radio2.Checked = false And Radio3.Checked = false

   Span1.InnerHtml = "请您先选择上面的Radio再点击此按钮"
  End if

      End Sub

Sub Button1_Click(sender As Object, e As EventArgs)
'移走当前的选项内容
           Span1.InnerHtml = "您移走了选项:<font color=red Size=5>" & StateSelect.Value & "</font>"
     StateSelect.Items.Remove(StateSelect.Value)
    End Sub

    </script>
</head>
<body>
    <h3><font face="Verdana">第十二例 HtmlInputRadioButton和 HtmlSelect控件使用</font></h3>
    <form runat="server">
        选择一个选项:
        <select id="StateSelect" runat="server" />
    <BR>
<p>
<input type="radio"
             id="Radio1"
             name="Mode"
             runat="server"/>
       开方<br>

xuandhu

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
示例:Radio

Sub Page_Load(Sender As Object, e As EventArgs) If Not IsPostBack Then定义一个ArrayList，然后为其赋值 Dim values As New ArrayList() values.Add (" 加 ") values.Add ("
复制链接

扫一扫

专栏目录