Image resize, drag and drop

Télécharger le projet
Commenter

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 :


@+
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (VicoLaChips2)