vb中图象组合框（imagecombo）控件怎样加载

部件中勾选 “Microsoft Windows Common Controls 60”，点确定，然后就会有ImageCombo控件了。

如果在部件中未找到上述控件组，那么有两种解决办法：

方法1、完整安装VB6企业版；

方法2、到别人的电脑上复制（网上下载也可）mscomctlocx到你的电脑（文件一般在system32文件夹），然后在部件中通过浏览找到这个文件，或者手工通过regsvr32进行注册。

添加一个Dirlistbox,Textbox，一个按钮，一个组合框

按钮的单击事件如下

Private Sub Command1_Click()

Dim i As Integer

Dim b As Integer

Dim a As String

a = Text1Text

Dir1Path = a

b = Len(a)

Combo1Clear

For i = 0 To Dir1ListCount - 1

Combo1AddItem (Mid(Dir1List(i), b + 1))

Next

End Sub

运行时候，在TextBox里输入文件路径，如 C:\windows\ 这里路径后面把"\"要加上，然后，单击按钮，再查看组合框，就可以看到windows目录下了。。。

以上程序在我的机子（XP,SP2版，VB60企业版）上测试通过

版本 2

子程序 __启动窗口_创建完毕

打开 (“C:\Users\Administrator\Desktop\新建文件夹\新建文件夹\1edb”, , , , , , )

打开 (“C:\Users\Administrator\Desktop\新建文件夹\新建文件夹\2edb”, , , , , , )

时钟1时钟周期 ＝ 1000

子程序 _时钟1_周期事件

判断开始 (组合框1取项目数值 (组合框1现行选中项) ＝ 0)

置当前库 (“C:\Users\Administrator\Desktop\新建文件夹\新建文件夹\1edb”)

标签1标题 ＝ 读 (“内容”)

判断 (组合框1取项目数值 (组合框1现行选中项) ＝ 1)

置当前库 (“C:\Users\Administrator\Desktop\新建文件夹\新建文件夹\2edb”)

标签1标题 ＝ 读 (“内容”)

默认

标签1标题 ＝ “未选中”

以上就是关于vb中图象组合框（imagecombo）控件怎样加载全部的内容，包括:vb中图象组合框（imagecombo）控件怎样加载、vb 获得一个文件夹下所有子文件夹名，并全部添加到组合框里，只要文件名，不要全部路径、易语言组合框选择后取数据库对应某行等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！