Question

求VB高手给个方法，不用Combo1.AddItem,在窗体加载时combo

求VB高手给个方法，不用Combo1.AddItem,在窗体加载时combo1的下拉列表自动显示程序路径下所有.mp3文件的文件名或前缀
三楼正确，太感谢三楼了！我拜你为师好么？工程根文件夹名没有汉字就提示类型错误，我代码里没牵涉啊好怪异

Answer 1

1、你的问题不够明朗，不懂你在问什么
2、combo控件的下来列表的内容必须用additem 来添加
3、获取当前路径下的mp3文件，方法有很多，你可以用filelistbox
如下代码：

File1.Path = "c:\User\Documents\Music\"
'这里写的是你需求的路径
File1.Pattern = "*.mp3"

Dim i As Integer
Dim s

For i = 0 To File1.ListCount - 1

s = Left(File1.List(i), Len(File1.List(i)) - 4) ' 截取字符串
'扩展名是 MP3 加上那个“.”共4位，把它们给舍去就是了，
'这样你得到的就是没有扩展名的的文件了

Combo1.AddItem s
Next i

Combo1.ListIndex = 0
'最后这句可以根据需要决定是否添加

Answer 2

肯定要用AddItem，我明白你的意思，一用就会触发combo1.click事件，而你不想触发此事件，这很简单，用一个全局变量控制一下：

Dim xxx As Boolean

Private Sub Combo1_Click()
If xxx Then
MsgBox "AddItem不会触发我"
End If
End Sub

Private Sub Form_Load()
xxx = False
Combo1.AddItem "..."
Combo1.AddItem "..."
xxx = True
End Sub

Answer 3

你的意思是在form_load里加载所有mp3文件，但是不使用Combo1.AddItem吗？