VBNet - Форум - Помогите с Combo!!!

Вопрос: Помогите с Combo!!! Добавлено: 09.06.10 16:10

Автор вопроса: DIMA | ICQ: 8083015

Всем привет)
Помогите разобраться,необходимо чтобы в комбо отображался список папок,использую Replase чтобы папка отображалась не так С:\Документы а просто Документы,но выходит такой косяк что в комбо отображается так \Документы,этот штрих все портит,подскажите как от него избавится?

Private Sub GetFileAndDirList(PathToDir As String)

    Dir1.Path = PathToDir

    File1.Path = Dir1.Path

    Dim i As Integer

    For i = 0 To File1.ListCount
        List1.List(i) = File1.List(i)
    Next i
    s = Combo1
    For i = 0 To Dir1.ListCount

        Combo1.List(i) = Replace(Dir1.List(i), PathToDir, "")
    Next i

   Exit Sub

End Sub

Private Sub Combo1_Click()
Combo2.Enabled = True
Text1.Text = "C:\e-lib\Specialty\ " & Combo1.Text
MsgBox Text1
For i = 0 To Dir1.ListCount

        Combo2.List(i) = Replace(Dir1.List(i), PathToDir, "")
    Next i

End Sub

Private Sub Form_Load()

  Text1.Text = "C:\e-lib\Specialty"
    GetFileAndDirList Text1.Text
    Combo2.Enabled = False

End Sub

Ответить

Ответы Всего ответов: 1

Номер ответа: 1 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #1	Добавлено: 09.06.10 16:48
	Private Sub GetFileAndDirList(PathToDir As String) Dir1.Path = PathToDir File1.Path = Dir1.Path Dim i As Integer For i = 0 To File1.ListCount List1.List(i) = File1.List(i) Next i s = Combo1 For i = 0 To Dir1.ListCount Combo1.List(i) = mid$( Replace(Dir1.List(i), PathToDir, "") ,2) Next i Exit Sub End Sub Private Sub Combo1_Click() Combo2.Enabled = True Text1.Text = "C:\e-lib\Specialty\ " & Combo1.Text MsgBox Text1 For i = 0 To Dir1.ListCount Combo2.List(i) = Mid$(Replace(Dir1.List(i), PathToDir, "") ,2) Next i End Sub Private Sub Form_Load() Text1.Text = "C:\e-lib\Specialty" GetFileAndDirList Text1.Text Combo2.Enabled = False End Sub Ответить

Страница: 1 |