VB6中如何让同一个操作执行多个目标？

我现在有多个Combo控件，要用同一个List1.txt

怎样最方便？

麻烦写下程序~~

当你程序运行后修改了 list1.txt 文件的内容后，点击下按钮就可以同步！

或则你可以加一个计时器，实时同步！

Private Sub Command1_Click()
List1.Clear
Call ReadFile(List1, App.Path & "\list1.txt")
End Sub

'这个过程用于读取文件
Private Sub ReadFile(ListName As ListBox, FileName As String)
On Error Resume Next
Dim ListText As String
Dim FileNumber As Integer

'分配空闲的文件号
FileNumber = FreeFile
'读取文件
Open FileName For Input As #FileNumber
Do Until EOF(FileNumber)
Line Input #FileNumber, ListText
ListName.AddItem ListText
Loop

Close #FileNumber '释放文件号
End Sub

最简单的方法就是把 Combo1 做成控件数组！

一个循环就可以全部赋值了！