Excel Vba - Picture Viewer, Help Me :>

[Gon]

Witam,

ucze sie dopiero vba, ale chcialbym zrobic prosty program, zeby moc z excela przegladac pliki graficzne. Mam taki pomysl na formularz i zaczety kod, ale z tutoriali nie umiem tego dalej zrobic. moze ktos moglby mnie nakierowac, pokazac jak to trzeba zrobic?

 

Dim sciezka As String

 

Private Sub cmdD_Click()

ChDrive

End Sub

 

Private Sub ComE_Click()

frmGraf.Hide

End Sub

 

Private Sub comK_Click()

ChDir

End Sub

 

Private Sub ListBox1_Click()

sciezka =

img.Picture = LoadPicture(sciezka)

End Sub

 

Private Sub ListBox2_Click()

CurDir ([C])

GetAttr() As vbDirectory

End Sub

-chcialbym zeby przycisk comK cofal aktualna sciezke dostepu o katalog wyzej

-comD zeby zmienial naped (dysk)

-w wiekszym listboxie chialbym widziec katalogi i tylko pliki typu *.jpg,

-mniejszy listbox zawieralby sciezke dostepu (C:\)

-obrazki mialyby sie wyswietlac po ich zaznaczeniu w listboxie