vb高手求指教，如何让combo1控件中文本记录一一显示在text（index）.text中有谁知道不管用什么方法

答案:6 悬赏:20 手机版

解决时间 2021-02-01 01:05

提问者网友：火车头
2021-01-31 19:21

自动的如何让comb1中list中信息（好几条记录）显示到text（index）一一对应

最佳答案

五星知识达人网友：蕴藏春秋
2021-01-31 19:33

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

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

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

全部回答

1楼网友：举杯邀酒敬孤独
2021-01-31 23:33

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

2楼网友：蕴藏春秋
2021-01-31 23:02

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

3楼网友：怙棘
2021-01-31 21:41

'这么简单也要找高手啊 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

4楼网友：拜訪者
2021-01-31 20:34

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

5楼网友：夜风逐马
2021-01-31 19:57

private sub combo1_change() n = 8 if len(combo1.text) > n then combo1.text = left(combo1.text, n) end sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息