XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Bitmaps: *.JPG y *.GIF (auch animierte GIFs) con el ATL.DLL Mostrar
de Michael Wodrich
-------------------- para el HTML-Control
 $H Windows.ph
Def Atlaxwininit(0) !atl.dll,AtlAxWinInit
Def Atlaxcreatecontrol(4) !atl.dll,AtlAxCreateControl
Declarar Atl&
Atl&=UseDLL(atl.dll)
Atlaxwininit()
--------------------
mehrere Parámetro zurückgeben: va über una Struktur al Besten
el vorderen Felder son el Parámetro, el letzten beiden son el Rückgabewerte
Struct PictBoxStru = hWnd&, X&,Y&,Width&,Height&, DlgID&, BildPfad$(260), Box&, Web&
hier el Procedimiento

Proc CreatePictureBox

    Parámetros PictBoxParms&
    Declarar WebPfad$
    para v7.0 es una kleiner Trick erforderlich,
    como el Bereiche sonst no strukturiert ansprechbar son
    Declarar PictBoxParms#,Save&
    Dim PictBoxParms#, PictBoxStru  Zona con Struktur einrichten (Zeiger en strukturierte Daten)
    Save& = PictBoxParms#      esta Zeiger sichern
    PictBoxParms# = PictBoxParms&  el übergebenen Zeiger (en Box1# y Box2#) con el Struktur versehen
    hier kann Yo ahora en el übergebenen Daten zugreifen

    With PictBoxParms#

        .Box& = Control(STATIC,,$50000000,.X&,.Y&,.Width&,.Height&,.hWnd&,.DlgID&,%hInstance,$200)
        WebPfad$ = file:/// + .BildPfad$
        .Web& = Control(AtlAxWin,WebPfad$,$50300000,0,0,Width(.Box&),Height(.Box&),.Box&,0,0)-HTML-Contol invertir

    EndWith

    PictBoxParms# = Save&  Original-Zona wiederherstellen
    Disponer PictBoxParms#  y de el Speicher entfernen

ENDPROC

-- Hauptprogramm --
Ventana 0,0-800,600 640,480
Ventana 0,0-640,480 640,480
Usermessages 16
2 Bereiche para el Parámetro y Rückgabewerte einrichten
Declarar Box1#, Box2#
Dim Box1#, PictBoxStru
Dim Box2#, PictBoxStru
el Bereiche füllen

With Box1#

    .hWnd&  = %hWnd
    .X&    = 10
    .Y&    = 10
    .Width&  = 200
    .Height& = 200
    .DlgID&  = 2000
    .BildPfad$ = LoadFile$ (Bild invitar!,Bilddateien (JPG,JPEG,GIF)|*.JPG;*.JPEG;*.GIF)
    .Box& - se en el CreatePictureBox zugewiesen (el STATIC-Rahmen)
    .Web& - se en el CreatePictureBox zugewiesen (el HTML-Control)

EndWith

With Box2#

    .hWnd&  = %hWnd
    .X&    = 220
    .Y&    = 10
    .Width&  = 200
    .Height& = 200
    .DlgID&  = 2001
    .BildPfad$ = LoadFile$ (Bild invitar!,Bilddateien (JPG,JPEG,GIF)|*.JPG;*.JPEG;*.GIF)
    .Box& - se en el CreatePictureBox zugewiesen (el STATIC-Rahmen)
    .Web& - se en el CreatePictureBox zugewiesen (el HTML-Control)

EndWith

aufrufen el Procedimiento
CreatePictureBox Box1#
CreatePictureBox Box2#
Hauptschleife

Mientras que 1

    Waitinput
    Case %Umessage=16:Romper

Endwhile

Freigabe el beiden Controls je Aufruf
Destroywindow(Box1#.Web&)
Destroywindow(Box1#.Box&)
Destroywindow(Box2#.Web&)
Destroywindow(Box2#.Box&)
el Bereiche no vergessen
Disponer Box1#
Disponer Box2#
el DLL otra vez entladen
FreeDLL Atl&
End