Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Ordnerauswahl-Dialog
Autor: Martin01
Datum: 20.11.02 21:02
'Mein Versuch, geht es auch noch NETter? 'FolderBrowserDialog.vb: '-------------------------------- Imports System.ComponentModel Public Class FolderBrowserDialog 'Braucht folgenden Verweis in 'der .NET-Bibliothek: System.Design.dll ' Dim fb As New FolderBrowserDialog() ' ' fb.Description = "Verzeichnis mit den Quelldateien auswählen" ' If fb.ShowDialog() = DialogResult.OK Then ' Label1.Text = fb.ReturnPath ' Else ' Label1.Text = "Auswahl wurde abgebrochen ..." ' End If ' fb.Description = "Verzeichnis mit den Quelldateien auswählen" ' Dim result As DialogResult ' result = fb.ShowDialog() ' If result = DialogResult.OK Then ' Label1.Text = fb.ReturnPath ' Else ' Label1.Text = "Auswahl wurde abgebrochen ..." ' End If ' 'Rückgabe nach Aufruf: ' ShowDialog ReturnPath ExceptionMessage '---------------------------------------------- ' Abort <Fehlertext> ' Cancel ' OK <der Ordnerpfad> ' ' 'Standart: ' .StartLocation = eslStartLocation.MyComputer ' ist/wird zur Laufzeit nicht jeder Ordner... 'Evt. ... ansprechbar. 'Evt. ... zurückgegeben. Inherits Windows.Forms.Design.FolderNameEditor Private fb As New Windows.Forms.Design.FolderNameEditor.FolderBrowser() Private propReturnPath As String = "" Private propExceptionMessage As String = "" Private propDescription As String = "Verzeichnis mit den Quelldateien auswählen:" Public Enum eslStartLocation Desktop Favorites MyComputer MyDocuments MyPictures NetAndDialUpConnections NetworkNeighborhood Printers Recent SendTo StartMenu Templates End Enum Public fbStartLocation As eslStartLocation = eslStartLocation.MyComputer <Description("Start Ordner")> _ Public Property StartLocation() As eslStartLocation Get Return fbStartLocation End Get Set(ByVal Value As eslStartLocation) fbStartLocation = Value End Set End Property <Description("Infotext unter der Titelzeile")> _ Public Property Description() As String Get Return propDescription End Get Set(ByVal Value As String) propDescription = Value End Set End Property <Description("Ordnerpfad")> _ Public ReadOnly Property ReturnPath() As String Get Return propReturnPath End Get End Property <Description("Fehlertext bei Abbrechen ")> _ Public ReadOnly Property ExceptionMessage() As String Get Return propExceptionMessage End Get End Property <Description("Dialog zeigen")> _ Public Function ShowDialog() As DialogResult 'Zurück: 'Abort Der Rückgabewert des Dialogfelds ist Abort ' (wird üblicherweise von einer Schaltfläche mit der ' Bezeichnung Abbrechen gesendet). ' Hier bei Fehler beim Dialogzeigen / Ordner ermittlen... ' Z.B.: Für NET ist Pfad zu lang. ' ReturnPath = "" ' ' 'Cancel Der Rückgabewert des Dialogfelds ist Cancel ' (wird üblicherweise von einer Schaltfläche mit der ' Bezeichnung Abbrechen gesendet). ' ReturnPath = "" ' ' 'OK Der Rückgabewert des Dialogfelds ist OK ' (wird üblicherweise von einer Schaltfläche ' mit der Bezeichnung OK gesendet). ' ReturnPath = <der Ordner Pfad> Dim result As DialogResult propReturnPath = "" propExceptionMessage = "" Try With fb .Description = propDescription Try Select Case fbStartLocation Case eslStartLocation.Desktop .StartLocation = FolderBrowserFolder.Desktop Case eslStartLocation.Favorites .StartLocation = FolderBrowserFolder.Favorites Case eslStartLocation.MyComputer .StartLocation = FolderBrowserFolder.MyComputer Case eslStartLocation.MyPictures .StartLocation = FolderBrowserFolder.MyPictures Case eslStartLocation.NetAndDialUpConnections .StartLocation = FolderBrowserFolder.NetAndDialUpConnections Case eslStartLocation.NetworkNeighborhood .StartLocation = FolderBrowserFolder.NetworkNeighborhood Case eslStartLocation.Printers .StartLocation = FolderBrowserFolder.Printers Case eslStartLocation.Recent .StartLocation = FolderBrowserFolder.Recent Case eslStartLocation.SendTo .StartLocation = FolderBrowserFolder.SendTo Case eslStartLocation.StartMenu .StartLocation = FolderBrowserFolder.StartMenu Case eslStartLocation.Templates .StartLocation = FolderBrowserFolder.Templates End Select Catch ex As Exception .StartLocation = FolderBrowserFolder.MyComputer End Try result = .ShowDialog() If result = DialogResult.OK Then propReturnPath = .DirectoryPath End If End With Catch ex As Exception result = DialogResult.Abort propExceptionMessage = ex.Message() End Try Return result End Function End Class

Ordnerauswahl-Dialog	572	Santman	18.11.02 22:23
Re: Ordnerauswahl-Dialog	438	Dieter	18.11.02 22:54
Re: Ordnerauswahl-Dialog	441	Pele	19.11.02 09:49
Re: Ordnerauswahl-Dialog	199	Martin01	20.11.02 21:02
Für so ein triviales Ding ???	413	unbekannt	20.11.02 21:19
Lass mich raten @Lordchen	445	Vampire666	21.11.02 09:14

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen