在vb中，我想用combo1向text1中添加内容，不是combo1的text值。求怎么编写代码？-爱科技问答

在vb中，我想用combo1向text1中添加内容，不是combo1的text值。求怎么编写代码？

没找到满意答案？去问豆包AI智能助手

取消复制问题

rgegrdhhe

Private Sub Combo1_Click()
If Me.Combo1.Text = "1" Then
Text1.Text = "a"
End If
End Sub

Private Sub Form_Load()
Me.Combo1.AddItem "1"
End Sub
这样不可以吗？不知道你是都要在Private Sub Form_Load()里写把。、、
naochunchun

IfComboListIndex<>-1ThenTextSelText=ComboList(ComboListIndex)&，这样就能把当前选中的项插入到Text1光标所在位置了，比直接赋值更人性化，特别是当你要多次添加不同内容时特别方便，不用覆盖原来的内容，关键是ListIndex不能为-1，否则会报错，所以加个判断最稳妥
zhang1chengyun

selectedItem=ComboList(ComboListIndex):TextText=TextText+selectedItem+，这样就能把选中的项目追加到文本框里了，前提是你的Combo1里面已经有列表项了，如果没有加载数据会出错，建议在窗体加载时先用ComboAddItem添加一些测试内容，另外注意字符串拼接时加上空格避免挤在一起，我当初就是忘了加空格结果全连成一串根本看不清
hb858585

TextText=TextText&ComboList(ComboListIndex)，这样每次点击下拉框里的选项就会把选中的内容追加到Text1里了，注意要判断一下是否为空，不然可能会出错，而且记得如果想换行显示的话可以加上vbCrLf，我之前也遇到过类似的问题，就是想把多个选中的项目累积起来，这个方法亲测有效，不需要非得用Text属性，List更灵活

在vb中，我想用combo1向text1中添加内容，不是combo1的text值。求怎么编写代码？