Miniaturansicht im öffnen dialog

[enricohofmann]

hallo

ich habe folgendes problem, und zwar möchte ich das im datei öffnen dialog die dateien in miniaturansicht geöffnet werden, das hat einfach den vorteil das ich dann gleich ein vorschaubild habe und dies nicht umgehen muss.

alternativ wäre es für mich auch sehr hilfreich wenn mir jemand sagen kann wie ich in dem öffnen dialog eventuel eine vorschaue eines bildes bekommen könnte.

vielen dank im voraus

mfg gigo

 

[Shakie]

Also normalerweise kann doch der User selber auf die Idee kommen, mittels Rechtsklick und dann im Menü "Ansicht"-->"Miniaturansicht" auswählen. Wie diese Einstellung aber schon per Code eingestellt wird weiß ich leider nicht.

 

[motoys]

am besten bastelst du dir selbst einen Öffnen-Dialog

Private Sub Command1_Click()

    'Hier einfach reinproggen, dass file1.path, file1.filename u.s.w. ihre info an die
    'entsprechenden Variablen weitergeben

End Sub

Private Sub Dir1_Change()

    File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

    Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()

    If Right(File1.FileName, 3) = "jpg" Or Right(File1.FileName, 3) = "bmp" Or Right(File1.FileName, 3) = "gif" Then
    
        If Right(File1.Path, 1) <> "\" Then
    
            boxi.picture = LoadPicture(File1.Path + "\" + File1.FileName)
            
        Else
        
            boxi.picture = LoadPicture(File1.Path + File1.FileName)
            
        End If
        
    End If

End Sub