Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Winziges Problemchen mit FolderBrowserDialog

Mitglied: nippon-tussi

nippon-tussi (Level 1) - Jetzt verbinden

04.10.2011, aktualisiert 07:13 Uhr, 4518 Aufrufe, 3 Kommentare

Ich möchte im Verzeichnisbaum ein Unterverzeichnis automatisch aufklappen lassen.

Nach Zuweisung eines Pfades an FolderBrowserDialog.SelectedPath zeigt der FolderBrowserDialog z.B.folgendes an:

03d79c7b5fbed98b694b2e18b02b2872 - Klicke auf das Bild, um es zu vergrößern

Wie man sieht, ist das vorher angegebene Verzeichnis korrekt selektiert (hier "B").

Ich möchte erreichen, dass der FolderBrowserDialog schon beim Aufruf von FolderBrowserDialog.ShowDialog(), also unmittelbar nach dem der FolderBrowserDialog auf dem Bildschirm angezeigt wird ohne Zutun des Benutzers (z.B. Cursor-rechts) auch die Unterverzeichnisse anzeigt.

Also so:

4eb4d1b745ee581b75290b6b3be8b2a9 - Klicke auf das Bild, um es zu vergrößern

Wie kann ich das erreichen?

Ein paar Google-Stichworte oder Codefetzen, egal in welcher Sprache, würden mir schon helfen.

Danke fürs lesen, Tussi
Mitglied: Logan000
04.10.2011 um 08:36 Uhr
Moin Moin

Nach kurzen drüberschaun, würde ich sagen das wird nichts.
Die Klasse gibt sowas nicht her.

Gruß L.
Bitte warten ..
Mitglied: colinardo
04.10.2011 um 10:29 Uhr
Du könntest den Dialog per SendKeys-Methode steuern.
Folgendes kannst du mit einer Form testen auf dem ein Button den FolderBrowserDialog aufruft.
Funktionsweise: Der Timer sucht nach dem Start nach einem Fenster mit dem Titel "Ordner suchen", falls er es findet, sendet er Tastaturanschläge an den Dialog um den Ordner aufzuklappen.
01.
   Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 
02.
    Private Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Integer 
03.
    Dim WithEvents t1 As New Timer 
04.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
05.
        Dim fd As New FolderBrowserDialog 
06.
        t1.Interval = 200 
07.
        With fd 
08.
            .SelectedPath = "C:\Windows" 
09.
            t1.Start() 
10.
            .ShowDialog() 
11.
            t1.Stop() 
12.
        End With 
13.
    End Sub 
14.
 
15.
    Sub SendKeysToApplication(ByVal AppTitle As String, ByVal key As String) 
16.
        Dim hWnd As Long = FindWindow(Nothing, AppTitle) 
17.
 
18.
        If hWnd <= 0 Then 
19.
            '*** TO DO *** Fenster existiert nicht 
20.
        Else 
21.
            SetForegroundWindow(hWnd) 
22.
            SendKeys.SendWait(key) 
23.
            t1.Stop() 
24.
        End If 
25.
 
26.
    End Sub 
27.
 
28.
    Private Sub t1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles t1.Tick 
29.
        SendKeysToApplication("Ordner suchen", "{TAB}{TAB}{right}") 
30.
    End Sub 
31.
 
32.
 
Bitte warten ..
Mitglied: nippon-tussi
04.10.2011 um 12:55 Uhr
Ja, mit Sendkeys geht es ganz gut. Nicht wirklich elegant, aber für meine Zwecke reicht es.

Da FolderBrowserDialog.Showdialog unmittelbar auf t1.Start folgt und somit der Dialog ohnehin den Fokus hat, habe ich auf SendKeystoApplication verzichtet und rufe Sendkeys.Sendwait direkt in t1_tick auf.

Danke für den Tipp!
Bitte warten ..
Ähnliche Inhalte
VB for Applications
WshShell.Run Problemchen
gelöst Frage von Batch-AlorVB for Applications5 Kommentare

Guten Tag zusammen, ich bin hier zwar nicht regelmäßig Gast, habe aber trotzdem ein kleines Problem bei dem mir ...

Visual Studio

FolderBrowserDialog - SelectedPath in sichtbaren Bereich anzeigen

gelöst Frage von Rene1976Visual Studio6 Kommentare

Hallo, Wir haben beim FolderBrowserDialog mit vb.net über SelectedPath einen Netzwerkpfad voreingestellt. Dieser ist leider nie im sichtbaren Bereich ...

Windows Server

DNS Server Problemchen

gelöst Frage von dobsmanWindows Server5 Kommentare

Hallo Administratoren! Ich bräuchte mal wieder eure Hilfe. 1stes Problemchen: Windows Server 2012 R2 Active Directory und natürlich DNS ...

Outlook & Mail

Problemchen bei Outlook Content

Frage von TechnoXOutlook & Mail2 Kommentare

Guten Morgen, es kommt gelegentlich vor das User sich melden, klagen das sie keine Anhänge in ihrem Outlook öffnen ...

Neue Wissensbeiträge
Humor (lol)
IoT-Gefahr: Smartes Aquarium leckt!
Information von Lochkartenstanzer vor 8 StundenHumor (lol)3 Kommentare

Moin, Die IoT-Manie hat weitere Opfer gefunden. Ein Casino-Leck durch ein smartes Aquarium: Allerdings haben sie kein Wasser, sondern ...

Router & Routing

Alte Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 17 StundenRouter & Routing3 Kommentare

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 1 TagSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 1 TagWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Heiß diskutierte Inhalte
Sicherheit
Verbindliche Zustellung per E-Mail?
Frage von ahussainSicherheit17 Kommentare

Hallo allerseits, ein Kunde von mir nutzt intensiv Fax. Hauptgrund: zusammen mit einer Empfangsbestätigung ist eine verbindliche Zustellung gewährleistet. ...

Sonstige Systeme
Wie Normenkataloge im Unternehmen bereit stellen?
Frage von MuzzepuckelSonstige Systeme14 Kommentare

Hallo Kollegen, ich lese schon lange hier mit, nun mein ersrer Beitrag, bzw. Frage. :-) Wir benötigen für unsere ...

SAN, NAS, DAS
Entscheidung SAN Dell oder HP
Frage von VincorSAN, NAS, DAS13 Kommentare

Hallo, wir wollen uns für unsere Hyper V Umgebung eine neue SAN Anschaffen. Es laufen 30 VM's darunter, DC; ...

Windows Installation
Kleines Büro - wie PCs einrichten? Domaincontroller sinnvoll?
Frage von Jonas42Windows Installation12 Kommentare

Hallo zusammen, ich überlege derzeit mal wieder, ob ich unsere IT ändern sollte. Es handelt sich um ein Ingenieurbüro ...