Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   Visual Basic. Кнопка обзора и вывод содержимого папки (http://forum.oszone.net/showthread.php?t=203265)

travian 28-03-2011 16:19 1645710

Visual Basic. Кнопка обзора и вывод содержимого папки
 
Здравствуйте!
Помогите пожалуйста. Собственно, что нужно:
1. Кнопка "Обзор" для возможности выбора папки, либо множества файлов (а именно картинок).
2. ListBox (или что-то вроде), в котором будут выводиться имена файлов (картинок) содержащихся в выбранной папке.
3. Окошко к котором будет отображаться картинка выбранная в ListBox-е (Отображение картинки получилось реализовать с помощью "WebBrowser", нужно только понять как передавать в неё значение из листбокса).

Как это реализовать? Хотябы что-нибудь из этого?

LilLoco 28-03-2011 17:23 1645776

Цитата:

Цитата travian
нужно только понять как передавать в неё значение из листбокса »

На событие Клика листбокса передавать выделенный элемент в Webbrowser!

Цитата:

Цитата travian
Кнопка "Обзор" для возможности выбора папки, либо множества файлов (а именно картинок). »

Что именно тут непонятно?

travian 28-03-2011 23:14 1646051

Цитата:

Цитата LilLoco
На событие Клика листбокса передавать выделенный элемент в Webbrowser! »

Как?
Цитата:

Цитата LilLoco
Что именно тут непонятно? »

Почти всё.
Нашёл как сделать для одного файла:
читать дальше »
Код:

Private Sub browseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles browseButton.Click
    Using ofd As New OpenFileDialog
        ofd.Filter = "All files (*.*)|*.*"
        ofd.Title = "Select File"

        If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
            MessageBox.Show("You selected " & ofd.FileName)
        End If
    End Using
End Sub


Как сделать для целой папки?
Я просто пока мягко говоря новичок в этом плане.

LilLoco 29-03-2011 07:49 1646155

Цитата:

Цитата travian
Как? »

Добавляем на форму ListBox, Дабл клик на событии Click. В обработчике этого события присваиваете использованному свойству вашего WebBrowser выделенный элемент ListBox.

Так понятнее?
Цитата:

Цитата travian
Я просто пока мягко говоря новичок в этом плане. »

Почитайте для начала книги, теория важная вещь!

Цитата:

Цитата travian
Нашёл как сделать для одного файла: »

Выбор нескольких файлов
Цитата:

Цитата travian
Как сделать для целой папки? »

Использовать FolderBrowserDialog

Если Вы хотите делать все через одно диалоговое окно
Посмотрите тут, есть несколько вариантов(но правда на C#)!

travian 29-03-2011 15:13 1646447

LilLoco
Уже понятнее.
Получилось добиться, чтобы при открытии файла кнопкой Browse, в ListBox добавлялось его имя. Но значения у этой строки нет никакого. Т.е. кликаем на пункт в ListBox-е, он выделяется, но ничего не происходит. Как добавлять значение строке?
Понял что делается это вроде бы через ListBox1_KeyPress. Но как мне из одного элемента (кнопки) передать значение пути и имени файла в этот самый ListBox1_KeyPress?
Кстати, и как сделать чтобы в ListBox-е отображалось только имя файла, а не весь путь к нему?

lxa85 29-03-2011 15:37 1646464

travian,
Цитата:

Цитата travian
как сделать чтобы в ListBox-е отображалось только имя файла, а не весь путь к нему? »

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

На здоровье. :)

Цитата:

Цитата travian
Но как мне из одного элемента (кнопки) передать значение пути и имени файла в этот самый ListBox1_KeyPress? »

Через обработчик нажатия keyPress
написать что-то типа или как-то так.
ListBox1.Text = FolderBrowserDialog1.FolderName
Visual Basic под руками нет, т.ч. за точность фразы не ручаюсь, но в целом так.

travian 29-03-2011 18:54 1646635

Цитата:

Цитата lxa85
GetShortPathName первые 5 ссылок должны дать исчерпывающий ответ. »

Если честно то они мне не дали почти никакого ответа, но всё же с укорачиванием имени я разобрался.
Цитата:

Цитата lxa85
Через обработчик нажатия keyPress
написать что-то типа или как-то так.
ListBox1.Text = FolderBrowserDialog1.FolderName »

А вот тут вот не понял. Куда это нужно прописать именно?
Я не знаю точно, но добавляю новые пункты в ListBox вот такой строчкой: ListBox1.Items.Add(strFileName)
И почему-то мне думается, что где-то в этой же строке и нужно дописывать значение этого strFileName. Нет?

Мне вот нужно сделать поле и кнопку. В поле я ввожу новое имя файла, нажимаю на кнопку для переименовывания.
Делаю это так: My.Computer.FileSystem.RenameFile("C:\Test.txt", "" & TextBox1.Text)
Как заменить "C:\Test.txt" на файл выбранный в ListBox-е? Хоть убейте не понимаю...


Время: 22:19.

Время: 22:19.
© OSzone.net 2001-