Проводник средствами контрола WebBrowser - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Проводник средствами контрола WebBrowser»

textual
Листинг программы
  1. Webbrowser1.GoBack

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.286 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут