看板Programming
标 题asp.net for vb:请教阵列与控制项
发信站KKCITY (Mon Apr 30 10:59:43 2007)
转信站ptt!ctu-reader!ctu-peer!news.nctu!netnews.chu!Leo.mi.chu!zoonews.ee.nt
请教一下，我有三个文字框，我希望输入三笔数字後，
会帮我做加总。
虽然我已经设计出来，但我觉得语法冗长，很笨的写法
请问是否可以让我的语法更精简呢？
是否可以写一个函数，就可以帮我检查所有的textbox栏位是否为数字呢？
谢谢！
附上原始语法如下：
<%@ Page Language="VB" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Dim b As Integer = 0
Dim c As Integer = 0
Dim FirstArray(3) As Integer
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As
System.EventArgs)
If IsNumeric(TextBox1.Text) = False Then
MsgBox("请输入整数")
TextBox1.Focus()
Exit Sub
Else
FirstArray(0) = Int(TextBox1.Text)
End If
If IsNumeric(TextBox2.Text) = False Then
MsgBox("请输入整数")
TextBox2.Focus()
Exit Sub
Else
FirstArray(1) = Int(TextBox2.Text)
End If
If IsNumeric(TextBox3.Text) = False Then
MsgBox("请输入整数")
TextBox3.Focus()
Exit Sub
Else
FirstArray(2) = Int(TextBox3.Text)
End If
For c = 0 To 2
b += FirstArray(c)
Next
Label3.Text = b
End Sub
</script>
<html xmlns="
http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>未命名页面</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:Label ID="Label1" runat="server" Text="请输入3个人成绩"></asp:Label>
：<br />
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
<br />
<asp:TextBox ID="TextBox2" runat="server"></asp:TextBox><br />
<asp:TextBox ID="TextBox3" runat="server"></asp:TextBox>
<br />
<asp:Button ID="Button1" runat="server" OnClick="Button1_Click"
Text="Button" />
<br />
<asp:Label ID="Label3" runat="server" Text="Label"></asp:Label></div>
</form>
</body>
</html>
--
┌─────◆ＫＫＣＩＴＹ◆─────┐ ● KKCITY 市民小常识 ●
│ bbs.kkcity.com.tw │ Q:文章标题前有#符号是代表什麽意思?
└──《From:140.109.139.91
》──┘ A:被作者加密了，需输入密码才能阅读
--
1F：→ leicheong:ASP.NET可以用MsgBox()和.Focus()吗? 202.134.126.84 04/30 12:40