Вопрос на засыпку, кто ответит - молодец!

[xsting]

Как прочитать из файла информацию, что бы каждая строка этого файла помещалась в отдельный итем(строку) комбобокса??

[Mikle]

Открываешь файл "for input", читаешь построчно с помощью "Line Input", каждый раз считанную строку запихиваешь в ComboBox через метод AddItem... следующий вопрос формулируешь, как положено...

[v-adix]

а точнее, так:

Код: Выделить всё

Public Function ReadData(Filename As String, combo As ComboBox)
    On Error Resume Next
    Dim fileno As Integer
    Dim getvalues() As String
    Dim Counter As Integer
    Counter = 0
    fileno = FreeFile
    Open Filename For Input As fileno
        Do Until EOF(fileno)
            Counter = Counter + 1
            ReDim Preserve getvalues(Counter)
            Line Input #fileno, getvalues(Counter)
        Loop
    Close fileno
    Dim j As Integer
    For j = 1 To UBound(getvalues)
        combo.AddItem getvalues(j)
    Next j
End Function

[xsting]

Спасибо большое всем Вам, я уже разобрался, стоило знать только команду Line Input.... Правда код у меня получился поменьше.....
Если надо - скажите.