Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Rein-Sprung Marke machen ?!
Autor: Fummler
Datum: 25.02.03 20:12
Hi Leude, mit folgendem Code, ruft man einen Ordner Dialog box auf: Private Const MAX_PATH = 260 Private Type BrowseInfo hWndOwner As Long pIDLRoot As Long pszDisplayName As Long lpszTitle As Long ulFlags As Long lpfnCallback As Long lParam As Long iImage As Long End Type Private Const BIF_BROWSEFORCOMPUTER = &H1000 Private Const BIF_BROWSEFORPRINTER = &H2000 Private Const BIF_BROWSEINCLUDEFILES = &H4000 Private Const BIF_DONTGOBELOWDOMAIN = &H2 Private Const BIF_RETURNFSANCESTORS = &H8 Private Const BIF_RETURNONLYFSDIRS = &H1 Private Const BIF_STATUSTEXT = &H4 Private Declare Sub CoTaskMemFree Lib "ole32.dll" _ (ByVal hMem As Long) Private Declare Function lstrcat Lib "kernel32" Alias _ "lstrcatA" (ByVal lpString1 As String, _ ByVal lpString2 As String) As Long Private Declare Function GetActiveWindow Lib "user32" () _ As Long Private Declare Function SHGetPathFromIDList Lib "shell32" _ (ByVal pidList As Long, ByVal lpBuffer As String) As Long Private Declare Function SHBrowseForFolder Lib "shell32" _ (lpbi As BrowseInfo) As Long Public Function BrowseForFolder(Prompt As String) As String Dim n As Integer Dim IDList As Long Dim Result As Long Dim ThePath As String Dim BI As BrowseInfo With BI .hWndOwner = GetActiveWindow() .lpszTitle = lstrcat(Prompt, "") .ulFlage = BIF_BROWSEINCLUDEFILES End With IDList = SHBrowseForFolder(BI) If IDList Then ThePath = String$(MAX_PATH, 0) Result = SHGetPathFromIDList(IDList, ThePath) Call CoTaskMemFree(IDList) n = InStr(ThePath, vbNullChar) If n Then ThePath = Left$(ThePath, n - 1) End If BrowseForFolder = ThePath End Function Meine Frage: Beim Start der Dialogbox, spring der Cursor(Auswahl) Automatisch auf dem Desktop ! Wie aber kann ich es schaffen, das der Cursor z.B. auf "C:\TestOrdner" springt ? danke

Rein-Sprung Marke machen ?!	316	Fummler	25.02.03 20:12
Re: Rein-Sprung Marke machen ?!	351	michi-bib	25.02.03 20:52
Re: Rein-Sprung Marke machen ?!	66	Fummler	26.02.03 13:25

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