Question

vb里求combobox与文件夹下的一堆文件的显示方法

菜菜哦，假如，在"D:\我的文档\我的配置"下有100个ini文件，在VB里新建一个combo1，怎么做到在form1.load事件中让这个combo1的下拉菜单里吧所有的ini文件都有序的显示出来，比如下拉过后只显示10个，然后通过垂直延伸条慢慢拉着看，然后选中一个，再新建一个command1，在它的lick事件中将在combo1里选中的ini文件，打开查看，求案例演示，谢谢。不明白的地方主要有，怎么检查文件夹下的文件，怎么选中combo1里面的东西

Answer 1

检查文件需要用到filelistbox控件，其Path属性用于设置文件夹路径，其Pattern用于设置文件类型，这里你需要将其设置为："*.ini"
选中combo1里面的东西很简单的，你单击不就选中了吗？

Answer 2

添加一个filelistbox，一个combo1,一个command1,代码如下
Private Sub Command1_Click()
Shell "Explorer.exe" + Space(1) + "D:\我的文档\我的配置\" & Combo1.Text
End Sub

Private Sub Form_Load()
File1.Visible = False
File1.Path = "D:\我的文档\我的配置"
Combo1.Text = File1.List(0)
For t& = 0 To File1.ListCount - 1
Combo1.AddItem File1.List(t&)
Next
End Sub

Answer 3

Private Sub Command1_Click()
Dim str1 As String, str2 As String
Open "D:\我的文档\我的配置\" & Combo1.Text For Input As #1
While Not (EOF(1))
Line Input #1, str1
str2 = str2 & vbCrLf & str1
Wend
Close
MsgBox str2
End Sub

Private Sub Form_Load()
Dim str1 As String
str1 = Dir("D:\我的文档\我的配置\*.ini", vbNormal Or vbHidden Or vbSystem)
While Len(str1)
Combo1.AddItem str1
str1 = Dir()
Wend
If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
End Sub