| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Westbeam
Anmeldungsdatum: 22.12.2009
Beiträge: 760
|
 Verfasst am: 05.10.2011, 22:04 Titel: Dateibrowser mit Fehlern |
 |
|
Hi
Ich habe einen kleinen Dateibrowser geschrieben:
http://www.freebasic-portal.de/porticula/dateibrowser-mit-fehlern-1370.html
Leider funktioniert er nicht ganz richtig, folgende Fehler sind bei mir aufgetreten:
-Icons werden falsch angezeigt, sollten eigentlich in Reihen angezeigt werden
-Wechsel ich in ein anderes Verzeichnis, werden alle Icons noch ganz anders angezeigt, als überhaupt schon
Der Part, in dem die Position der Icons festgelegt wird ist dieser:
| Code: | Sub AddFile()
anzfiles+=1
With Files(anzfiles)
.y=10
.x+=anzfiles*100-60
If .x>600 Then
.x=30
.y+=anzfiles*60-355
End If
End With
End Sub |
Weiß jemand Rat?  |
|
| Nach oben |
|
 |
Muttonhead
Anmeldungsdatum: 26.08.2008
Beiträge: 565
Wohnort: Jüterbog
|
| Verfasst am: 05.10.2011, 23:15 Titel: |
|
|
hiermit müßte die Erfassung der Verzeichnisse/Dateien funktionieren
| Code: | Sub ShowFiles()
anzfiles=0
foldername = dir("*",&H10 + &H01)
DO
if foldername<>"" then
AddFile()
Files(anzfiles).nam=foldername
Files(anzfiles).typ="Folder"
end if
foldername =dir
LOOP WHILE LEN(foldername)
filename = dir("*",&H00)
DO
if filename<>"" then
AddFile()
Files(anzfiles).nam=filename
Files(anzfiles).typ="File"
end if
filename = dir
LOOP WHILE LEN(filename)
End Sub |
in ähnlicher Weise hab ich das in meinem Filerequester gelöst, allerdings mit einem dynamischen Array...
siehe:
http://www.freebasic-portal.de/porticula/sgui-modifizierter-filerequester-mit-cd-button-1275.html
Allerdings ist die Darstellung in deinem Browser noch immer fehlerhaft |
|
| Nach oben |
|
|
ThePuppetMaster
Anmeldungsdatum: 18.02.2007
Beiträge: 1839
Wohnort: [JN58JR]
|
| Verfasst am: 06.10.2011, 01:03 Titel: |
|
|
| Code: | Sub AddFile()
anzfiles+=1 'dateianzahl + 1
With Files(anzfiles) 'item selectieren
.y = ((anzfiles - 1) \ 4) * 60 'y position = anzahl datein \ anzahl items pro spalte * itemhöhe
.x = ((anzfiles - 1) mod 4) * (600 \ 4) 'x position = rest von anzahl datein \ anzahl items pro spalte * bildschirmbreite \ anzahl items pro spalte
End With
End Sub
|
MfG
TPM
_________________
[ WebFBC ][ OPS ][ ToOFlo ][ Wiemann.TV ] |
|
| Nach oben |
|
|
Westbeam
Anmeldungsdatum: 22.12.2009
Beiträge: 760
|
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
