Проводник средствами контрола WebBrowser - Visual Basic .NET
Формулировка задачи:
Если в VB6 были контролы FileListBox, DirListBox, DriveList, с помощью которых можно было бродить по содержимому дискового пространства компьютера, то в vb.net их net.
В качестве альтернативы MSDN предлагает программное заполнение Listbox и ListView содержимым файловой системы компьютера. Однако, на деле это очень громоздко, медленно и хлопотно. И результат получается некрасивый.
С помощью WebBrowser тоже можно ходить по дискам, если добавить, до кучи, пару кнопок для "обслуживания": Назад и Вперед
Стартовать контрол может с любой удобной папки, например "Мои документы"
для удобства можно добавить кнопку Вверх, с примерно таким кодом:
в конструкции My.Computer.FileSystem.SpecialDirectories имеется ряд других папок, с которых можно начать навигацию. Но нет такой, по которой WebBrowser показал бы такой набор:
с этой картинки было бы наиболее удобно начинать.
Я знаю, есть какое-то магическое слово, чтобы WebBrowser открыл это, но не могу найти. Часа четыре убил.
---
обратный слэш - сайт, почему-то, удаляет этот символ '\, когда он в кавычках
Листинг программы
- CurrPath=My.Computer.FileSystem.SpecialDirectories.MyDocuments
- WebBrowser1.Navigate(CurrPath)
Листинг программы
- Dim Nm As Integer=-1
- Dim Pth As String=WebBrowser1.Url.ToString().Remove(0,8).Replace("/","[I]обратный слэш[/I]") 'первые 8 символов, это "///file:", замена слэшей для других целей (использую, вкупе старый FileListBox)
- If Pth.EndsWith("обратный слэш")=True Then Exit Sub
- Nm=Pth.LastIndexOf("обратный слэш"): If Nm<0 Then Exit sub
- Pth=Pth.Remove(Nm)
- If Pth.Contains("обратный слэш")=false Then Pth=Pth &"" 'это на случай, если окажемся в корне диска, типа C:\ и предыдущая команда отрубит слэш
- Explorer.Navigate(Pth)
Решение задачи: «Проводник средствами контрола WebBrowser»
textual
Листинг программы
- Webbrowser1.GoBack
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д