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 '获取文本控件名称,这里可以根据名称来判读赋值，也可以根据其他属性复制

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

End If

Next

相关问答

Q1: VB.net通过text框的输入赋值给数组

你这个Text()()是一个二维数组？

将数字直接定义成text box类型，并将己所添加的textbox实例复制给数组的相关项，这样就能通过数组的形式访问了。。。

Q2: vb.net 关于赋值问题？

这句代码

counter = 1

和这句

counter = counter 1

是等效的，上面那个是二元运算符，原本是C家族语言的特性，在VB.Net中也可以使用了。

Q3: VB.net中Datagridview 单元格赋值问题

DataGridViewCellStyle方法不通用，区域性设置太麻烦了。

以下是程序方法：

可以先将数据源放入一张表中，不要直接绑定。新表是可以改string的。

那个列必须是string，不能是single

代码写在cellendedit的过程中，每次用户退出单元格编辑后引发

dim a1 as single

dim a2 as string

Try

a1=csng(当前单元格值)

Catch ex As Exception

MessageBox.Show("输入条件不符合要求！", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

Exit Sub

End Try

if a11 then

a2=formate(a1,"0.0000")

else

....

endif

完事后a2赋值给当前单元格即可。

Q4: vb.net中怎样在代码中向combobox赋值，

添加项: ComboBox1.Items.Add("123")

直接赋值: ComboBox1.Text = "123"

======================

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

For i = 1 To 10

ComboBox1.Items.Add("添加项：" i)

ComboBox2.Items.Add("添加项：" i)

Next

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

ComboBox2.SelectedIndex = ComboBox1.SelectedIndex

End Sub

Q5: 关于VB.net下拉框的问题

设置一个全局变量：

Public item As String

然后在第一个窗口那里取：

item = ComboBox1.SelectedItem.ToString()

然后加到第二个窗口那里：

ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList（这个不可改内容的设定可以在建立ComboBox的时候就设定了）

ComboBox2.Items.Add(item) （加入内容，你或者也可以用别的，比如insert，这个可以加到指定的位置）

ComboBox2.SelectedItem = item （显示那个刚加进来的内容）

这样应该可以了，建议你多看MSDN。