CodeS-SourceS
Rechercher un code, un tuto, une réponse

Image resize, drag and drop

Soyez le premier à donner votre avis sur cette source.

Vue 10 076 fois - Téléchargée 1 531 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

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.