XProfan

Français

Jac
de
Lad

allô, hab la fois ne Frage:

je peux avec XProfan 8.0 belle Bildbuttons erstellen. mais comment peux je cela Bild pour dem Erstellen verändern, alors ain nouveau Bildchen zuweisen? (So comment SetText neue Textes zuweist!)

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

06.11.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Peter
Mallow

allô habe là la fois quoi gebastelt:

Kompilieren Marque Séparation

Def @ALoadImage(6) !"User32","LoadImageA"

Proc BmpButton aus Présentation (c) Andreas Miethe - Genial DANKE!

    Paramètres Wnd&,s$,X%,Y%,SizeX%,SizeY%
    @BmpButton(%HWnd,"BEISPIEL3.BMP",PosX,PosY%,Horizontale Taille%,Vertikale Taille%)
    Déclarer h&,Ctrl&,Bmp#
    Faible bmp#,@Len($ S)+1
    String bmp#,0=s$
    h& = @ALoadImage(%HInstance,bmp#,0,SizeX%-2,SizeY%-2,$0050)
    Ctrl&=@Contrôle("Button",»,$50000080,X%,Y%,SizeX%,SizeY%,Wnd&,2000,%HInstance)
    @SendMessage(Ctrl&,$00F7,0,h&)
    Dispose bmp#
    Retour Ctrl&

ENDPROC

Proc SetButtonImg

    Paramètres Wnd&,s$,SizeX%,SizeY%
    Déclarer h&,Ctrl&,Bmp#
    Faible bmp#,@Len($ S)+1
    String bmp#,0=s$
    h& = @ALoadImage(%HInstance,bmp#,0,SizeX%-2,SizeY%-2,$0050)
    @SendMessage(Wnd&,$00F7,0,h&)
    Dispose bmp#

ENDPROC

Cls
Déclarer Button&
Button& = @BmpButton(%HWnd,"bild1.bmp",10,10,100,30)
WaitInput
SetButtonImg Button&,"bild2.bmp",100,30 Neues Bild wird gesetzt
qui taille des Bildes muss festgelegt volonté
WaitInput

WinXP Pro SP2, XProfan 9 + XPSE
AMD Athlon 64 X2 3800

08.11.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jac
de
Lad

merci, je probiers aus.

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

08.11.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jac
de
Lad

Funktioniert pas!

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

25.11.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

non, fonctionne bien...

Kompilieren Marque Séparation

Def @Aloadimage(6) !"User32","LoadImageA"

Proc Bmpbuttonaus Présentation (c) Andreas Miethe - Genial DANKE!

    Paramètres Wnd&,S$,X%,Y%,Sizex%,Sizey%
    @BmpButton(%HWnd,"BEISPIEL3.BMP",PosX,PosY%,Horizontale Taille%,Vertikale Taille%)
    Déclarer H&,Ctrl&,Bmp#
    Faible Bmp#,@Len(S$)+1
    String Bmp#,0=S$
    H& = @Aloadimage(%Hinstance,Bmp#,0,Sizex%-2,Sizey%-2,$0050)
    Ctrl&=@Contrôle("Button",»,$50000080,X%,Y%,Sizex%,Sizey%,Wnd&,2000,%Hinstance)
    @SendMessage(Ctrl&,$00F7,0,H&)
    Dispose Bmp#
    Retour Ctrl&

ENDPROC

Proc Setbuttonimg

    Paramètres Wnd&,S$,Sizex%,Sizey%
    Déclarer H&,Ctrl&,Bmp#
    Faible Bmp#,@Len(S$)+1
    String Bmp#,0=S$
    H& = @Aloadimage(%Hinstance,Bmp#,0,Sizex%-2,Sizey%-2,$0050)
    @SendMessage(Wnd&,$00F7,0,H&)
    Dispose Bmp#

ENDPROC

Cls
Déclarer Button&
CHDIR $WINPATH
Bmpbutton %Hwnd,@FINDFIRST$("*.BMP"),10,10,100,30
LET Button&=@&(0)
Waitinput
Beep
@Findfirst$("*.BMP")
Setbuttonimg Button&,@FindNext$("*.BMP"),100,30Neues Bild wird gesetzt
qui taille des Bildes muss festgelegt volonté

Tandis que 0=0

    Waitinput
    Beep
    Setbuttonimg Button&,@FindNext$(),100,30Neues Bild wird gesetzt

Wend