VB.Net/GUI/Dialog Folder Browser

Материал из VB Эксперт
Версия от 15:44, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Folder Browser Dialog: print Selected Folder

<source lang="vbnet"> Imports System Imports System.Collections Imports System.ruponentModel Imports System.Windows.Forms Imports System.Data Imports System.Configuration Imports System.Resources Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.IO Imports System.Drawing.Printing

Public Class MainClass

   Shared Sub Main()
       "Declare a FolderBrowserDialog object
       Dim objFolderBrowserDialog As New FolderBrowserDialog
       "Set the FolderBrowserDialog control properties
       objFolderBrowserDialog.Description = "Select your favorite folder:"
       objFolderBrowserDialog.RootFolder = Environment.SpecialFolder.Personal
       objFolderBrowserDialog.ShowNewFolderButton = True
       "Show the Browse For Folder dialog
       If objFolderBrowserDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
           "Display the selected folder
           System.Console.WriteLine(objFolderBrowserDialog.SelectedPath)
       End If
       "Clean up
       objFolderBrowserDialog.Dispose()
       objFolderBrowserDialog = Nothing
   End Sub

End Class

      </source>


Folder Browser Dialog: set Description

<source lang="vbnet"> Imports System Imports System.Data Imports System.Windows.Forms Imports System.Drawing Public Class MainClass

   Shared Sub Main()
       Dim dlgFolder As System.Windows.Forms.FolderBrowserDialog
       dlgFolder = New System.Windows.Forms.FolderBrowserDialog
       dlgFolder.Description = "Select the folder that contains the XML files."
       If dlgFolder.ShowDialog() = DialogResult.OK Then
           Console.WriteLine( dlgFolder.SelectedPath)
       End If
   End Sub

End Class

      </source>


Folder Browser Dialog: set selected folder

<source lang="vbnet"> Imports System Imports System.Data Imports System.Windows.Forms Imports System.Drawing Public Class MainClass

   Shared Sub Main()
       Dim dlgFolder As System.Windows.Forms.FolderBrowserDialog
       dlgFolder = New System.Windows.Forms.FolderBrowserDialog
       dlgFolder.SelectedPath = "C:\"
       If dlgFolder.ShowDialog() = DialogResult.OK Then
           Console.WriteLine( dlgFolder.SelectedPath)
       End If
   End Sub

End Class

      </source>