VB6- Image uitzoomen vanuit andere hoek.

Status
Niet open voor verdere reacties.
S

satriano17

Gebruiker
Lid geworden
30 sep 2012
Berichten
331
dag
Met onderstaande code kan ik een image uitzoomen.

Code: 
Dim dblstep As Double
Private Sub Form_Load()
Timer1.Interval = 10
    Me.ScaleMode = 3
    dblstep = -2 '10 pixels
End Sub


Private Sub Timer1_Timer()
With Image1
  .Move .Left, .Top, .Width + dblstep, .Height + dblstep
     If .Width = 1 Then
     'Timer1.Enabled = False
     Image1.Width = 65
    Image1.Height = 65
     End If
    End With
End Sub
Werkt goed. Maar het uitzoomen gebeurd altijd vanuit het linker-bovenste hoek (Left).
Ho kan ik veranderen zodat ook vanuit andere hoeken gebeurt?
Bv Vanuit het rechter-bovenste hoek?
dank u
 
Voor rechtsonder
Code: 
.Move .Left [COLOR="#FF0000"]+ dblstep[/COLOR], .Top [COLOR="#FF0000"]+ dblstep[/COLOR], .Width + dblstep, .Height + dblstep
 
Nee, nu vliegt de image weg. Ik bedoel het uitzoomen vanuit ander hoek beginnen.
 
Voor rechtsonder

Code: 
Private Sub Timer1_Timer()
    With Image1
        .Move .Left [COLOR="#FF0000"]- dblstep[/COLOR], .Top [COLOR="#FF0000"]- dblstep[/COLOR], .Width + dblstep, .Height + dblstep
        If .Width = 1 Then
            [COLOR="#FF0000"]Image1.Left = 0
            Image1.Top = 0[/COLOR]
            Image1.Width = 65
            Image1.Height = 65
        End If
    End With
End Sub

Bij het opstarten zal je 1 zoom loop zien met de orginele afmetingen van de afbeeldingen, daarna meerdere zoom loops met 65x65 afmetingen.
 
Laatst bewerkt:
Yess!!!
Het werkt !
Dat bedoelde ik !!
Bedankt
ps . Ik heb nu twee werkende zoom- hoeken (vanuit linker boven en vanuit rechter onder)

en kan ook voor vanuit rechter boven en vanuit linker onder?
dan zijn wij compleet

In elke geval ..bedankt. Het werkt.
 
Ja, dat kan.
Maar dat kan je echt goed zelf.
Gewoon bij .left of .top de "- dblstep" weg halen.
Kijk dan wat er gebeurt.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan