VB.NET多个文本框 vb多个文本框的数字相加

如何使用vb.net中的for next语句给多个文本框赋值！！？

Dim obj As Object, objName As String, i As Integer

i = 0

For Each obj In Me.Controls '枚举窗体所有控件

Debug.Print TypeName(obj)

If TypeName(obj) = "TextBox" Then '判读是否为文本框

i = i + 1

objName = obj.Name '获取文本控件名称,这里可以根据名称来判读赋值VB.NET多个文本框，也可以根据其VB.NET多个文本框他属性复制

obj.Text = "文本" i '文本框赋值

End If

Next

相关问答

Q1: VB.NET多个文本框显示多行数据

Dim mycon As New SqlConnection(connstrs)

Dim sqlStr As String = "SELECT * FROM [Column] FROM [Table]"

Dim cmd As New SqlCommand(sqlStr, mycon)

Dim reader = cmd.ExecuteReader()

Dim i As Integer = 1

While reader.Read()

Dim txt As New TextBox()

txt.Name = "txt" + i

txt.Size = New Size(100, 20) '文本框大小

txt.Location = New Point(50, i * 20 + 20)'left:50 top:随便写的，自己看着调

txt.Text = reader.GetValue(0).ToString()

Me.Controls.Add(txt) 'Me 可以改为你要添加上去的对象

End While

'未经过运行，自己调试看看能否OK

Q2: 求大神指点 vb.net 怎么 弹出 多行输入框 inputbox("内容") 这个只能输入一行...

一共有三个地区啊，第一就是弹出来窗口上面蓝条下面的位置，显示比如“请输入”。第二就是弹出来窗口的标题了，第三个位置就是可输入部分显示的示范内容。

如inputbox("请输入生日","标题","1986-12-11")

Q3: vb.net 中有多个文本框，都是有竖直的滚动条，其中文本都不断改变，让所有的文本框都显示最后一行。

是这个办法的,只是要加一句:

TextBox1.SelectionLength = 0

TextBox1.SelectionStart = TextBox1.Text.Length

TextBox1.ScrollToCaret()

另外,文本框的内容修改后要再次执行上面的三句代码

Q4: vb.net保存两个文本框

1、首先，点击保存按钮后应检查文本框内容。

2其次，如果在文本框4中输入的值以400开头则保存反之更改为400。

3、最后，再次检查文本框5如果文本框5中的值为29或31则保存反之则更改即可。

Q5: VB.net中多个个文本框之间的计算

呵呵,就当练手了

Add_VB.aspx 代码

%@ Page Language="VB" AutoEventWireup="false" CodeFile="Add_VB.aspx.vb" Inherits="测试代码_Add_VB" %

!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ""

html xmlns=""

head runat="server"

title实现加运算/title

/head

body

form id="form1" runat="server"

div

asp:TextBox ID="TextBox1" runat="server" Width="66px"/asp:TextBox

asp:RegularExpressionValidator ID="RegularExpressionValidator1" runat="server" ControlToValidate="TextBox1" ErrorMessage="必须为数字" ValidationExpression="(\d+(\.\d)?){1,1}"/asp:RegularExpressionValidator

br /

asp:TextBox ID="TextBox2" runat="server" Width="66px"/asp:TextBox

asp:RegularExpressionValidator ID="RegularExpressionValidator2" runat="server" ControlToValidate="TextBox2" ErrorMessage="必须为数字" ValidationExpression="\d+(\.\d)?"/asp:RegularExpressionValidator

br /

asp:TextBox ID="TextBox3" runat="server" Width="66px"/asp:TextBox

asp:RegularExpressionValidator ID="RegularExpressionValidator3" runat="server" ControlToValidate="TextBox3" ErrorMessage="必须为数字" ValidationExpression="\d+(\.\d)?"/asp:RegularExpressionValidator

br /

asp:TextBox ID="TextBox4" runat="server" Width="66px"/asp:TextBox

asp:RegularExpressionValidator ID="RegularExpressionValidator4" runat="server" ControlToValidate="TextBox4" ErrorMessage="必须为数字" ValidationExpression="\d+(\.\d)?"/asp:RegularExpressionValidator

br /

asp:TextBox ID="TextBox5" runat="server" ReadOnly="True"/asp:TextBox

asp:Button ID="Button1" runat="server" Text="求和" Width="78px" /

/div

/form

/body

/html

Add_VB.aspx.vb 代码

Partial Class 测试代码_Add_VB

Inherits System.Web.UI.Page

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a As Double = TextBox1.Text

Dim b As Double = TextBox2.Text

Dim c As Double = TextBox3.Text

Dim d As Double = TextBox4.Text

TextBox5.Text = a + b + c + d

End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If TextBox1.Text = "" Then

TextBox1.Text = 0

End If

If TextBox2.Text = "" Then

TextBox2.Text = 0

End If

If TextBox3.Text = "" Then

TextBox3.Text = 0

End If

If TextBox4.Text = "" Then

TextBox4.Text = 0

End If

End Sub

End Class

关于VB.NET多个文本框和vb多个文本框的数字相加的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。