DESSINER AVEC LA METHODE "DRAWIMAGE"

'code a copier ou vous le souhaitez (bien placé tout de meme ^^)

    Private Sub afficher_une_image(ByRef emplacement As String, ByRef X As Integer, ByRef Y As Integer, ByRef largeur As Integer, ByRef hauteur As Integer)

        Dim image1 As System.Drawing.Image
        image1 = System.Drawing.Image.FromFile(emplacement)
        'PictureBox1.PaintPicture(image1, souris_X, souris_Y, 1500, 1000) '=> cette methode, présenté sur de nombreux site, ne parait pas etre compatible avec VB2005
        'apres recherche, son equivalant direct est "drawimage"
        'lien msdn direct : http://msdn.microsoft.com/fr-fr/library/dbsak4dc.aspx

        If largeur = 0 Then largeur = image1.Width
        If hauteur = 0 Then hauteur = image1.Height

        Dim g As Graphics
        g = Me.CreateGraphics    'Pour une form
        g.DrawImage(image1, X, Y, largeur, hauteur)

    End Sub


'exemple pour appeler la fonction d'ou vous voulez.
'pour afficher "c:/image.jpg", à l'emplacement 100,100 sur la form, de taille 200 * 200

'avant : [VB6]
'dim image1 as picture
'set image1 = loadpicture("c:/image.jpg")
'form1.PaintPicture(image1, 100, 100, 200, 200)

'maintenant : [VB.net]
afficher_une_image("C:/image.jpg", 100, 100, 200, 200)





'pour l'exemple, voici un programme complet !
'vous pouvez dans une form vierge copier le code suivant : (il contient deux fonction plus celle cité au dessus. N'OUBLIEZ PAS DE CHANGER LA VARIABLE IMAGEPERSO !!!!) 


Friend Class Form1

    Inherits System.Windows.Forms.Form

    'les variables programme
    Dim souris_X As Short 'la position X de la souris en temps reel
    Dim souris_Y As Short 'la position Y de la souris en temps reel
    Dim imageperso as string = "c:/image.jpg" 'REMPLACEZ PAR CE QUE VOUS VOULEZ !!!!

    Private Sub Form1_MouseMove(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        '------------------------------------------------------
        ' position de la souris
        '------------------------------------------------------

        souris_X = eventArgs.X
        souris_Y = eventArgs.Y


            Me.Text = "essais de DrawImage. double clic pour voir !" & "      " & "[" & eventArgs.X & ";" & eventArgs.Y & "]" 'on ajoute alors au titre X et Y


    End Sub

    Private Sub Form1_DoubleClick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.DoubleClick

        '------------------------------------------------------
        ' interaction utilisateur ( = double clic souris)
        '------------------------------------------------------

        afficher_une_image(imageperso, souris_X, souris_Y, 200, 200)


    End Sub

    Private Sub afficher_une_image(ByRef emplacement As String, ByRef X As Integer, ByRef Y As Integer, ByRef largeur As Integer, ByRef hauteur As Integer)

        Dim image1 As System.Drawing.Image
        image1 = System.Drawing.Image.FromFile(emplacement)
        'PictureBox1.PaintPicture(image1, souris_X, souris_Y, 1500, 1000) '=> cette methode, présenté sur de nombreux site, ne parait pas etre compatible avec VB2005
        'apres recherche, son equivalant direct est "drawimage"
        'lien msdn direct : http://msdn.microsoft.com/fr-fr/library/dbsak4dc.aspx

        If largeur = 0 Then largeur = image1.Width
        If hauteur = 0 Then hauteur = image1.Height

        Dim g As Graphics
        g = Me.CreateGraphics    'Pour une form
        g.DrawImage(image1, X, Y, largeur, hauteur)

    End Sub

End Class

04 mai 2008 03:29:23 :

5 minutes apres : mise en forme plus clair du texte :s et ajout d'un exemple complet a copier / coller. enjoy !

04 mai 2008 03:31:15 :

encore des modif de mise en page.