Image resize, drag and drop

Soyez le premier à donner votre avis sur cette source.

Vue 10 429 fois - Téléchargée 1 589 fois

Description

Ce code charge une image jpeg en mémoire et fait une démonstration du drag and drop et du resize de l'image.

Source / Exemple :


Dim posX, posY
Private Sub cmdTN_Click()
    Image1.Stretch = False
    Image1.Left = 10
    Image1.Top = 10
End Sub
Private Sub cmdTR_Click()
    Image1.Height = 2400
    Image1.Width = 2400
    Image1.Stretch = True
End Sub
Private Sub Form_Load()
    Image1.Picture = LoadPicture("d:\vbtest\test.jpg")
    Image1.Height = 2400
    Image1.Width = 2400
    Image1.Left = (Form1.Width / 2) - (Image1.Width / 2)
    Image1.Top = 10
    Image1.Stretch = True
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    posX = X
    posY = Y
    lblXposYpos.Caption = X & "\" & Y
End Sub
Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
Dim newPosX, newPosY As Integer
newPosX = X - posX
newPosY = Y - posY
If newPosX + Image1.Width < Picture1.Width Then
    Image1.Left = X - posX
    Image1.Top = Y - posY
Else
    Image1.Left = Picture1.Width - Image1.Width - 70
    Image1.Top = newPosY
End If
End Sub
Private Sub Image1_DragDrop(Source As Control, X As Single, Y As Single)
    Dim newPosX, newPosY As Integer
    newPosX = (Image1.Left + X) - posX
    newPosY = (Image1.Top + Y) - posY
    If newPosX + Image1.Width < Picture1.Width Then
        Image1.Left = newPosX
        Image1.Top = newPosY
    End If
End Sub

Conclusion :


@+

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

asfilou
Messages postés
2
Date d'inscription
dimanche 29 décembre 2002
Statut
Membre
Dernière intervention
10 juin 2003
-
Tout simplement GENIAL, j ai réutiliser ce code pour une de mes applications, il y a juste un léger BUG qui a pour effet de faire sintiller le contrôle dans un cas précis, j ai fait la modif je peut te la transmettre si tu veux
zeb_zeb
Messages postés
2
Date d'inscription
dimanche 9 janvier 2005
Statut
Membre
Dernière intervention
4 mai 2011
-
Je pense que le ZIP est corrompu car il y a un problème de "flags" dans les entêtes lorsqu'on essaie de déziper

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.