[resolu]Probleme à la con sur Resize image

[Ar-S]

Salut,

ça fait plus d'une demi heure que je coince sur un truc tout con. J'ai honte..
J'ai une interface avec 2 Strings et un bouton.

#hauteur et #largeur, les 2 avec l'option #PB_String_Numeric

les 2 valeurs sont à 100 et 100 par defaut.

Je fais une procédure Resize qui me permettrait de redimensionner une image chargée après avoir cliqué sur un bouton.

Code : Tout sélectionner

Procedure ResiZe()
  L=getgadgettext(#largeur) ; là ça créé pas une valeur donc ça chie
  H=getgadgettext(#hauteur) ; là ça créé pas une valeur donc ça chie

  If L<5 Or L>5000 And H<5 Or H>5000
    MessageRequester("Erreur","Attention, les dimensions ne doivent pas être inférieur à 5x5 ni supérieur à 5000x5000",#MB_OK)
  Else
    FichierParDefaut$="c:\"
    Filtre$ = "Image (*.jpg - *.png)|*.jpg;*.png"
    Filtre  = 0 
    FichierImage$=OpenFileRequester("Selectionner l'image",FichierParDefaut$, Filtre$, Filtre)
    NomFichier$=GetFilePart(FichierImage$)
    NomNew$="_"+NomFichier$
    ext$=GetFileType(NomFichier$)
    If ext$="jpg" Or ext$="JPG"
        Type$="#PB_ImagePlugin_JPEG"
     Else
        Type$="#PB_ImagePlugin_PNG"
     EndIf    
    If FichierImage$
      LoadImage(#Image, FichierImage$)
      ResizeImage(#Image,L,H,#PB_Image_Smooth)
      
    ;  SaveImage(#Image,NomNew$,Type$)
    EndIf
  EndIf
EndProcedure

Comment récupéré en valeur numérique ce que l'utilisateur entre dans #hauteur et #largeur

car L=getgadgettext(#largeur) et H=getgadgettext(#hauteur) ne marchent pas.

D'avance merci

[Chris]

L = Val(GetGadgetText(#Largeur))

[Ar-S]

L = Val(GetGadgetText(#Largeur))

ah Chris !