 |
Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Westbeam
Anmeldungsdatum: 22.12.2009
Beiträge: 760
|
 Verfasst am: 22.05.2010, 13:24 Titel: Einen Dateibrowser coden, wie? |
 |
|
Hi
Ich brauche für mein jetziges Projekt einen Dateibrowser. Nach einigen gescheiterten Versuchen, habe ich hier und auf freebasic.net nach einem Code gesucht, damit dieser mir vielleicht helfen kann. Gefunden habe ich ... nichts.
Meine kläglichen Versuche seht ihr hier:
| Code: | #Include "BB.bas"
Dim as integer y
Dim as any ptr folder,folder2,file
Graphics 640,480,32,0
folder=Loadimage("gfx/1.bmp")
folder2=Loadimage("gfx/2.bmp")
file=Loadimage("gfx/3.bmp")
Windowtitle " "&Dir("*",0)
y=20
Drawimage folder,10,y
Draw string(42,y+12)," "&Dir("*",16)
y=y+50
DO
DiM AS STRING filename = DIR("*",16)
IF filename = "" THEN EXIT DO
Drawimage folder,10,y
Draw string(42,y+12), ""&filename
y=y+50
'print " "
loop
Drawimage file,10,y
Draw string(42,y+12)," "&Dir("*",0)
y=y+50
DO
DiM AS STRING filename = DIR("",0)
IF filename = "" THEN EXIT DO
Drawimage file,10,y
Draw string(42,y+12), ""&filename
y=y+50
'print " "
loop
getkey
end |
Die "BB.bas" findet ihr hier: http://forum.qbasic.at/viewtopic.php?t=7124
Das Problem oben ist folgendes: Es wird nur ein Ordner angezeigt, aber gleich 10 mal. Dateien werden nicht angezeigt. Des weiteren wüsste ich auch nicht, wie ich es hinkriegen soll, einen Ordner bei Mausklick zu öffnen ...
Kennt jemand einen (Open Source-)Browser, der mit FB programmiert wurde?  |
|
| Nach oben |
|
 |
The_Muh
aka Mark Aroni
Anmeldungsdatum: 11.09.2006
Beiträge: 718
|
| Verfasst am: 22.05.2010, 13:42 Titel: |
|
|
http://tresax.de:3001/code?id=69
nicht der schönste Code - mittlerweile könnte ich das sauberer programmieren - aber er funktioniert. musst dir die Kram nur anpassen.
_________________
// nicht mehr aktiv // |
|
| Nach oben |
|
|
Westbeam
Anmeldungsdatum: 22.12.2009
Beiträge: 760
|
| Verfasst am: 22.05.2010, 13:48 Titel: |
|
|
Nicht ganz das was ich gesucht habe, aber das hilft mir schon mal weiter. Danke  |
|
| Nach oben |
|
|
MOD
Fleißiger Referenzredakteur
Anmeldungsdatum: 10.09.2007
Beiträge: 1003
|
|
| Nach oben |
|
|
Muttonhead
Anmeldungsdatum: 26.08.2008
Beiträge: 565
Wohnort: Jüterbog
|
| Verfasst am: 22.05.2010, 17:33 Titel: |
|
|
Oder meinst du mit einem DateiBrowser vielleicht ein Dateiauswahlfenster?
Mit der WinAPI lässt sich ein solcher "relativ" einfach programmieren...
Wenn mich nicht täuscht, hab ich das hier schon in 20 bis 30 Zeilen Code gesehen.
Da sind dann aber die WinAPI-Fachleute gefragt
Ansonsten könnte ich noch ein simples Dateiauswahlfenster aus meiner sGUI anbieten.
Dazu muss die GUI selbst nicht mal laufen!!!
Lediglich in der Farbgebung (des Hintergrundes) ist man etwas an die GUI gebunden. Aber auch dafür ist noch ein Trick möglich.
http://forum.qbasic.at/viewtopic.php?t=6007
ein ähnliches Beispiel ist auch im Downloadarchiv enthalten:
| Code: |
'folgende includes sind notwendig
#include "sGUI\sGUI.bas"
#include "sGUI\SimpleGadget.bas"
#include "sGUI\StringGadget.bas"
#include "sGUI\Arrows.bas"
#include "sGUI\Sliders.bas"
#include "sGUI\ListBox.bas"
#include "sGUI\FileRequester.bas"
screen 19,32 'ein Screen muss geöffnet sein
InitGFX 'ist leider ein Muss, definiert Farben und macht nen CLS
dim as string openfile
openfile=FileRequester(160,80,"Laden",curdir,"xyz.bas")'Aufruf des Dateiauswahlfensters
print openfile
sleep
end
|
|
|
| Nach oben |
|
|
Sebastian
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
|
|
| Nach oben |
|
|
Westbeam
Anmeldungsdatum: 22.12.2009
Beiträge: 760
|
| Verfasst am: 22.05.2010, 19:15 Titel: |
|
|
Ich habe aber kein Windows. Ich nutze Linux, MODs Beispiel ist aber ganz okay(nach einigen Änderungen, damit es unter Linux läuft). 
Einen Filerequester meine ich eigentlich nicht, einen einfachen Dateibrowser, so etwas wie Dolphin(KDE) oder mc(Terminal).  |
|
| Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
