Välja fil & progressbar.

- Henke -Medlem sedan jan. 200229 inlägg

Frågan21 sep. 2002 11:06#1

Hej!

Har två frågor.
Är ett blåbär på det här, så jag behöver lite hjälp att komma igång.

Skulle behöva en ruta till att skriva in en sökväg i (typ textbox), men intill den vill jag en annan ruta (CommandButton) med tre punkter i.
Trycker man på den knappen så öppnas ett fönster där man kan välja vilken fil man vill ha. Frågan är bara hur fasiken man lyckas med det =)

Nästa steg är att jag vill ha en progressbar under tiden den arbetar. Hur fungerar det?

Har sökt, men Visual Basic-delen på Webforum är inte så stor =)

vore tacksam för svar.

ViktorMedlem sedan aug. 20021 752 inlägg

21 sep. 2002 11:55#2

Här är den kod som jag har använt i ett gammal program. Den är inte testad men jag tror nog att den fungerar :)
Lägg det här högst upp i din kod fil (eller i en egen class eller modul fil)

Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long

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

Public Function BrowseFolders(ByVal Title As String, ByVal hWnd As Long) As String
    szTitle = Title
    With tBrowseInfo
        .hwndOwner = hWnd
        .lpszTitle = lstrcat(szTitle, "")
        .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
    End With
    lpIDList = SHBrowseForFolder(tBrowseInfo)
    If (lpIDList) Then
        sBuffer = Space(MAX_PATH)
        SHGetPathFromIDList lpIDList, sBuffer
        BrowseFolders = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
    End If
End Function

och när du ska visa denna box så skriver du

Dim Read as String
    Read = BrowseFolders("Select GP2 Location", Me.hWnd)
    If Read <> "" Then
    	'En fil eller katalog är vald
    End If

Om Read inte är tom så har användaren valt en katalog.

Här är en riktigt bra sida för API funktioner i VB, VB API.

/Viktor