24. august 2004 - 10:15Der er
10 kommentarer og 1 løsning
hjælp til CommonDialog
har lige et problem.. kan ikke få den til at vælge flere filer kan kun åbne en afgangen... når jeg markere flere filer og åbner dem sker der ikke noget, vælger jeg en fil og åbner den så virker det fint
hvordan siger man at alt hva der står i CommonDialog1.FileTitle skal ned i en textbox eller listbox
f.eks hvis jeg skal åbne 4 sange så marker jeg dem og trykker åben så skal de listes i en listbox
håber i forstår hva jeg mener..
her er noget af koden hvis det hjælper
--------------------------------------------------- Dim strFilename As Variant
Det første spørgsmål: Du skal sætte de passende flag, for at du kan få lov at åbne flere filer. Læs om alle deflags du kan sætte her på eksperten, på msdn eller i hjælpen.
Det andet spørgsmål: list1.additem CommonDialog1.FileTitle
For at få dem ind i din listbox, når der er mere en 1 valgt:
Form3.List1.Clear For i = 1 To UBound(strFilename) Form3.List1.AddItem strFilename(0) & "\" & strFilename(i) Next
Og den første del skal nok se sådan ud:
strFilename = Split(CommonDialog1.FileName, Chr(0), -1, vbBinaryCompare) If UBound(strFilename) = 0 Then Text1.Text = CommonDialog1.FileName MediaPlayer.FileName = Text1.Text MediaPlayer.Play
'Image13.Visible = True 'Image4.Visible = False End If
Du har fejl i følgende linier:
strFilename = Split(cmd.FileName, Chr(0), -1, vbBinaryCompare), der er ikke nogen cmd Skal være: strFilename = Split(CommonDialog1.FileName, Chr(0), -1, vbBinaryCompare)
Har fået det til at virke... en lille fejl jeg havde lavet :D doh.. men rigtig mange gange tak for hjælpen
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
