vb高手求指教,如何让combo1控件中文本记录一一显示在text(index).text...

发布网友 发布时间：2024-05-01 12:31

我来回答

共6个回答

热心网友 时间：2024-05-09 18:11

假设你已经输入了i 条记录，同时也对应的画了i 个文本框：

Dim i As Integer
For i = 0 To Combo1.ListCount - 1
Text1(i).Text = Combo1.List(i)
Next

不知道是不是要的这个效果

热心网友 时间：2024-05-09 18:05

for i = 0 to combo1.listcount-1
text(i).text=combo1.list(i)
next

热心网友 时间：2024-05-09 18:10

假设你输入我的记录，以及相应的画我文本框：

点心我作为整数

对于i = 0 Combo1.ListCount - 1

文本1（我）。 Combo1.List（I）

不知道这是否效果

热心网友 时间：2024-05-09 18:07

没听明白你说什么意思。直接就用text(x).text=combo1.text 就可以呀。

热心网友 时间：2024-05-09 18:08

你说的自动是指什么？如果是选择下拉框的某一条文本记录后，自动显示在text中的话，用这个代码：
Private Sub Combo1_Click()
Text1(0).Text = Combo1.Text
End Sub

热心网友 时间：2024-05-09 18:06

'这么简单也要找高手啊
Dim i As Integer
For i = 0 To 100 '这里你看着办，我随便写的100
If Combo1.List(i) <> "" Then Text(i).Text = Combo1.List(i) 'List指Combo里的列表，List(i)是列表中的第i项，不为空的话，赋值到Text(i)里，你要有足够的Text对象
Next i