Willkommen ~Gast!
Registrieren || Einloggen || Hilfe/FAQ || Staff
Probleme mit der Registrierung im Forum? Melde dich unter registerEin Bild.
Autor Beitrag
000
14.04.2002, 21:24
DD



Hallo!
Wie funktioniert Fileincluding mit Visual Basic? Z.B. für eine Art Setup Programm. Oder um abwechselnd verschiedene Bilder in
einer ImageBox anzeigen zu lassen ohne sie dabei extern aufrufen zu müssen.

THX schon mal!
DD

--

DD

zum Seitenanfang zum Seitenende Profil || Suche
001
15.04.2002, 19:53
TheTinySteini



Äh? Kannst du das mal genauer beschreiben?
Verschiedene Bilder in einer ImageBox machste aber am besten, in dem du die Bilder nachlädst und als externe Dateien speicherst. Weil als Ressourcen und so machen die dir nur die .exe groß, sonst nix.

[edit]
Ah... ich glaub, jetzt weiß ich, was du meinst. Eine einzige exe-Datei, die beim Starten den ganzen Rest entpackt, also self-extracting Executable. Dürfte mit VBasic nicht gehen, weil VB immer noch einige Runtimes benötigt, die du auf jeden Fall mitliefern musst, und zwar als eigene Dateien.

--

TheTinySteini
Coder Poke646
"Don't Panic" - Hitchhiker's Guide to the Galaxy


Dieser Beitrag wurde am 15.04.2002 um 19:55 von TheTinySteini bearbeitet.
zum Seitenanfang zum Seitenende Profil || Suche
002
16.04.2002, 14:55
hausi



Ansonsten einfach in den Ressource-Editor (glaubs, der ist unter AddIns) packen und dann in der Hilfe nachschauen, wie man das wieder lädt... (Glaubs GetRessource(...))

--

zum Seitenanfang zum Seitenende Profil || Suche
003
16.04.2002, 17:13
Ferdi



Bilder:
Quellcode:
    LoadResPicture ( <nummer> , <typ> )

(typ ist z.B. vbResBitmap oder vbResIcon )

Text aus der Zeichenkettentabelle (max 255 Zeichen):
Quellcode:
    LoadResString ( <nummer> )

längere Texte müssen als per textdatei als Binärdateiressource eingefügt
werden
Quellcode:
    GetTextRessource( <nummer> , <rectyp> )

    Function GetTextRessource ( iID as Integer , sName as String ) as String
        Dim TextBlock()  as Byte
        Dim sBuffer        as String
        Dim iCount        as Integer

        TextBlock = LoadResData ( iID , sName )

        For iCount = LBound(TextBlock) To UBound(TextBlock)
            sBuffer = sBuffer & Chr(TextBlock(iCount))
        Next

        GetTextRessource = sBuffer

    End Function

(rectyp ist frei wählbar)

--


Dieser Beitrag wurde am 16.04.2002 um 19:50 von Ferdi bearbeitet.
zum Seitenanfang zum Seitenende Profil || Suche
004
19.04.2002, 19:23
DD



HALLO!
Klar gabs das schon mal!
aber ich wusste nicht dass mir zwischenzeitlich jemand geantwortet hat!
sorry! kann doch mal passieren! oder?

DD

--

DD

zum Seitenanfang zum Seitenende Profil || Suche
005
20.04.2002, 15:37
m0rgu3



Also ich kann kein VB, aber vom Prinzip... Alles, was du an eine ex ranhängst, wir ignoriert von windows, weils das ned gibt (laut dem exe-header) Also merkst du dir einfach die größe von deiner exe, schreibst die daten BINÄR!! hinten dran, und dann nomal die original größe der exe. Die variable mit der original größe is sagen wir mal 4 Byte, dann lädst du die letzten 4 byte, liest den wert aus, dann tust du von dem inhalt der variable bis ende - 4 byte das auslese, in eine temporäre datei rein und du hast es extrahiert...

--

Man brauchte drei C64 um zum Mond zu fliegen. Win2k braucht mindestens einen PII 350. Irgendwas stimmt doch da nicht!

zum Seitenanfang zum Seitenende Profil || Suche