主题：如何在组合框里获得文件夹下的文件名

1、在软件系统默认的路径下有个文件夹“个人信息”，文件夹下文件名为：

              (文件名分两种：在职信息、离退休信息，扩展名.xy为自定义的)

 

      刘大同在职信息.xy

      陈华在职信息.xy

      张强离退休信息.xy

      李芳在职信息.xy

      杨华在职信息.xy

      小红离退休信息.xy

      liuhai在职信息.xy

 

2、在窗体中建两个组合框ComboBox：在职人员、离退休人员

    想在“在职人员”中 出现列表为：                  “离退休人员”中，出现列表为：

                                             liuhua

                                              陈华                                            小红

                                              李芳                                             张强

                                              刘大同

                                              杨华

 

请教，如果写事件代码？（个人觉得很难，没信心研究了，请教高手！）

 

请教“don”,我的组合框是这样定义的：

 

Dim xingming As WinForm.ComboBox = e.Form.Controls("姓名")

xingming.ComboList =

 

这个后面怎么写呢？写成 xingming.ComboList = zzc 又不能，请指教！

特别谢谢，有用了，我整理的一下，最后的代码如下：

 

'----- 设置 选择姓名 控件的下拉菜单------
Dim str As String = ""
Dim zz As String = ""
Dim lt As String = ""
For Each f As String In FileSys.GetFiles( ProjectPath & "\上报接受\" )
    If f.Contains("离退") Then
        lt &= FileSys.GetName(f).Replace("离退信息.xh", "") & "|"
    ElseIf f.Contains("在职") Then
        zz &= FileSys.GetName(f).Replace("在职信息.xh", "") & "|"
    End If
    str &= FileSys.GetName(f) & "|"
Next
'msgbox(str.Trim("|"))
'msgbox(zz.Trim("|"))
'msgbox(lt.Trim("|"))

Dim zjxingming As WinForm.ComboBox = e.Form.Controls("再选择增加人员姓名")
zjxingming.ComboList = zz
'------------------------------------------------

 

 

 

如果能把获得的名字排序就更好了。

我想是按姓名的拼音排序啊！不知能否可行？

很好用，最后添加了一句，就可以在下拉列表中看到姓名了。太好了，真心特别谢谢您！

 

Dim zjxingming As WinForm.ComboBox = e.Form.Controls("再选择增加人员姓名")
zjxingming.ComboList = SZZ  '下拉列表中显示 在职人员排序后的名单

 

注：zjxingming.ComboList =

“=”后面写szz是下拉出在职人员，写slt是下拉出离退人员，写sstr就下拉出文件夹下的所有文件名