Help me! problème avec une image!

Question

Salut tout le monde!



Voila j'ai un petit probl&#232;me, je voudrais pouvoir redimensionner une
image a une taille bien d&#233;termin&#233;e... quand cette image d&#233;passe 850px
en largeur ET 700px en hauteur je voudrais  qu'elle soit
automatiquement r&#233;duite a  850 par 700 px. mais ceci sans perdre
des morceaux de l'image.



voici mon code pour charger les nouvelles images



Private Sub NI_Click() 

CommonDialog1.DialogTitle = "Choissisez un fichier"

CommonDialog1.CancelError = True

CommonDialog1.Filter = "(*.jpg) (*.bmp) (*gif)"

CommonDialog1.InitDir = "C:"

On Error GoTo Annuler

CommonDialog1.ShowOpen

cheminimage = CommonDialog1.FileName



Picture1.Picture = LoadPicture(cheminimage)





Annuler: cheminimage = ""

Suite:



End Sub



Moi j'ai d&#233;ja tester un bloc if ou j'incr&#233;mentais de - 1 les
valeurs Height et Width jusqu'a ce qu'elle ateigne la taille voulue...
mais je perd des morceaux d'image.. donc c pas g&#233;nial!

Avec paintpicture ca marchais  il me mettais une image correctement redimensionner, mais

derri&#232;re une image qui ne l'&#233;tait pas....



Merci pour le coup de main je suis d&#233;butant en VB!

bonne prog :-)

(a si possible &#233;viter moi les API ou je ne comprendrais pas la moiti&#233;
du code... le but c'est quand m&#234;me que je comprenne ce que ca fait ! )



Bonne Prog &#224; tous!

cs_DARKSIDIOUS · Answer

C'est bien la fonction PaintPicture (ou l'API StretchBlt qu'il faut
utiliser). Je te conseille d'utiliser 2 Picturebox : l'un contenant ton
image non redimensionn&#233;e non visible, et un deuxi&#232;me affichant l'image
redimensionn&#233; (et donc visible).

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

Help me! problème avec une image!

1 réponse

Discussions similaires