两个列表框List1和List2 四个按钮Command1Command2Command3Command4 分别把它们的Caption属性设置为quot移动至List2quotquot全部移动至List2quotquot移动至List1quotquot全部移动至List1quot也可以不设置，只是为了美观一点所有代码如下。
窗体 userform1，列表框 listbox1， listbox2 命令按钮 commandbutton1Private Sub CommandButton1_ClickListBox2AddItem ListBox1ListListBox1ListIndex 把左边列表框选中的项目复制到右边列表框 ListBox1RemoveIte。
vb编程把1~100之间能被7整除的数添加到列表框 Private Sub Form_Load Dim i As Integer For i = 1 To 100 If i Mod 7 = 0 Then Combo1AddItem i End If Next End Sub 输入两个数m，n。
列表框默认是 单一数值输出也就是数值 你要在 前面板，鼠标点击列表框，选择多行模式然后输出就变成了 数组这个数组，就会输出你 选中的 行数然后利用 数组索引类就可以获取数组元素了有兴趣可以百度 那些年我们。
使用 超级列表框1插入列命令，第三个参数就是定义列宽的，具体使用方法请参照易语言的提示部分。
你在一个新的窗体上添加三个控件一个listbox一个label和一个command，并将command控件的名称改成你上述设定的名称“Cmd1”，其他均为默认，然后将以下代码复制到代码窗口中即可运行成功达到你要的目的啦Private Sub。
这是因为列表项中的项目被删除时，其ListCount属性是跟着变化的删一个则减1但是，For循环有一个特点，就是它的循环初值和终值是不会在循环过程中发生变化的，也就是说，for n=0 to list1listcount1中后面的。
Private Sub Command1_ClickDim a25Randomize For i = 1 To 25 ai = 50 + IntRnd * 150Picture1Print Leftai quot quot， 6If i Mod 6 = 0 Then Picture1Print List1AddItem ai。
1第一种设想有2个列表框，左边的列表框是从Access数据库里读出的数据，有很多项，此时点击两列表框之间的方向键左移和右移键，此时为右移将左边的列表框内的特定选项复制到右边的列表框里，然后确认以后，将右边。
是这样的效果么，下边是代码，界面控件为，列表框1，编辑框1，按钮1版本 2子程序 _按钮1_被单击列表框1加入项目 编辑框1内容， 子程序 _列表框1_列表项被选择编辑框1内容 ＝ 到文本 列表框1取。
版本 2 子程序 _列表框1_列表项被选择 如果真 列表框1取项目文本 列表框1现行选中项 ＝ “A”编辑框1内容 ＝ “1”如果真结束 如果真 列表框1取项目文本 列表框1现行选中项 ＝ “B”。
vb ？一般程序代码一样的，我写下，不过可能不是VB的格式你改下for int i = 0 i lt list1length i++ iflist1getItemi 进行你的判断 listaddItem。
这代码好像是我以前写的，以前有个人提问，输入1删除右边的列表框，加入左边的！那么长时间了，如果自己学习一下，这问题就非常简单了 这里不用复制 版本 2 子程序 __启动窗口_创建完毕 局部变量 i， 整数型 局部变。
你是想在pb的下拉列表框中显示数据吧要满足两个条件1在下列列表框中有这条数据，用ddlb_1additem来实现2ddlb_1text设置为这条数据满足上两个条件就行了。
可以添加WM_MOUSE消息响应函数，在该函数中实现也可以添加一个定时器，定时检查A中的内容，当改变时执行响应的代码，使得B也在变化还有你说的下拉列表时列表框控件还是组合框控件呢。
