![]() |
| VB 4/6- und VBA-Forum - Beitragsübersicht - |
|
| Von |
Thomas |
| Datum |
24. Dezember 2014 um 14:40:30 |
| Frage |
Guten Tag und ein frohes Fest!
Obwohl heute "Heiligabend" ist, hoffe ich auf Hilfestellung.
Ich habe nun Urlaub und somit mächtig viel Zeit^^
Auf meiner Form habe ich ein Bild abgelegt (PictureBox1)
und möchte dieses Bild per Mouse innerhalb der Y-Achse verschieben.
Also auf gut Deutsch: Von oben nach unten und umgekehrt.
Nun habe ich hier bei Euch viel gelesen und im Internet dazu
auch Tipps gefunden. Per MouseMove, MouseDown usw. kann ich das Bild
nun bequem auf der Form hin- und herschieben. Alles funktioniert wunderbar.
Nun möchte ich das Ganze aber begrenzen.
Soll heißen, dass das Bild nur bis oben (PictureBox1.Top = 0) und
unten (PictureBox1.Top = 1000) verschoben werden soll.
Nur, wie mache ich dies?
Hier einmal mein bisheriger Code:Private Sub IMG1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
IMG1.Move IMG1.Left, y + (IMG1.Top - ypos)
End If
End Sub Wie mache ich dies nun geschickt, dass man nur im Bereich a-z verschieben kann?
Ich dachte da an "If IMG1.TOP = 0 Then" und an "IF IMG1.TOP = 2000 Then",
aber das brachte mir nichts. Bei beiden Varianten geht dann gar nichts mehr,
wenn dieser Bereich erreicht wurde.
Kann mir da eine Person auf die Sprünge helfen?
Vielen Dank
Thomas |
|
| [ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ] |
|
|
| Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|
Zum Seitenanfang