Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > .NET Languages
You last visited: Today at 06:58

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement


Picbox bewegt sich mit einem delay zur Mouse Position

Discussion on Picbox bewegt sich mit einem delay zur Mouse Position within the .NET Languages forum part of the Coders Den category.

Closed Thread
 
Old   #1
 
elite*gold: 0
Join Date: Jan 2013
Posts: 128
Received Thanks: 11
Question Picbox bewegt sich mit einem delay zur Mouse Position

Guten tag ich wollte fragen wie ich das mache das meine picbox zur Mouse Position sich langsam hin bewegt

Ich hatte sonst klassisch immer mit Keypress gearbeitet und mit timer

p.left +=2

hat auch super funktioniert nun wollte ich mich auch in paar anderen Controlls
mich versuchen.

Nur hab ich nicht wirklich Ahnung wie ich das am besten hand haben könnte
Hab auch schon einiges versucht mit mouse move event und
Mouse Position X,Y aller dings hat das nicht so gut funktioniert
Jetzt bin ich etwas am Grübeln ^^"

wäre nett wen mir das mal einer dabei helfen könnte oder zeigen könnte

Code:
    Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
        If MousePosition.X < MousePosition.Y Then
            Player.Top += 2
        ElseIf MousePosition.Y < MousePosition.X Then
            Player.Top -= 2
        End If
    End Sub
End Class
bin schon etwas weiter gekommen aber mir fehlen noch die recht und links
eigenschafften bzw Axen das meine pic box sich nah rechts oder links bewegt je nah dem ob meine mouse nah links oder nah rechts geht , kann mir einer sagen wie ich die raus bekomme von der mouse ?

Hab schon mit einem Timer getestet und komme auf das ergebniss was ich haben will nur wie oben beschrieben fehlt mir die rechts und links axe

Code:
    Private Sub MM_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MM.Tick

        If MousePosition.X < MousePosition.Y Then
            Player.Top += 2
        ElseIf MousePosition.x > MousePosition.y Then
            Player.Top -= 2
        End If
    End Sub
mein nächster versuch der fast das bewirkt aber immer noch nicht ganz

Code:
    Private Sub MM_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MM.Tick

        If MousePosition.Y > Player.Location.X + Player.Location.Y Then
            Player.Top += 2
        ElseIf MousePosition.y < Player.Location.x + Player.Location.y Then
            Player.Top -= 2
        ElseIf MousePosition.X > Player.Location.x + Player.Location.X Then
            Player.Left -= 2
        ElseIf MousePosition.X > Player.Location.Y + Player.Location.X Then
            Player.Left += 2
        End If

    End Sub
Funktioniert nun aber sehr schwammig und ungenau ^^"

Code:
    Private Sub MM_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MM.Tick

        If MousePosition.Y > Player.Location.Y Then
            Player.Top += 2
            Me.Text = 1
        ElseIf MousePosition.Y < Player.Location.Y Then
            Player.Top -= 2
            Me.Text = 2
        End If
        If Player.Location.Y > MousePosition.X - Player.Location.Y Then
            Player.Left -= 2
            Me.Text = 3
        ElseIf Player.Location.Y < MousePosition.X + Player.Location.Y Then
            Player.Left += 2
            Me.Text = 4
        End If
    End Sub
Nun hab ich versucht die form Koordinaten zu verwenden um evt besseres Ergebnisse zu erzielen aber naja leider nicht viel besser geworden.

Code:
 Dim YM As Integer
    Dim XM As Integer

    Private Sub MM_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MM.Tick
        If YM = Player.Location.Y Then
        ElseIf xm = Player.Location.X Then
        Else
            If YM > Player.Location.Y Then
                Player.Top += 2
                Me.Text = 1
            ElseIf YM < Player.Location.Y Then
                Player.Top -= 2
                Me.Text = 2
            End If

            If Player.Location.Y > XM Then
                Player.Left -= 2
                Me.Text = 3
            ElseIf Player.Location.Y < XM Then
                Player.Left += 2
                Me.Text = 4
            End If
        End If

    End Sub
    Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
        YM = e.Y
        XM = e.X
    End Sub
hat sich herausgestellt das es doch nicht benötigt wird ...

Closed Quest
ProDielerNR(1) is offline  
Closed Thread

« Datenbank Fehler | - »

Similar Threads Similar Threads
[FRAGE] Eingefügtes CS Set bewegt sich nicht mit!
12/07/2016 - Flyff Private Server - 3 Replies
Hallo Leute, ich habe das Sora Set eingefügt und es sieht auch gut aus. Nun hab ich das Problem das das Set beim bewegen FEST ist, also es bewegt sich nicht mit. Als Beispiel, die Arme des Suits sind immer gestreckt! defineItem.h #define II_ARM_M_CHR_SORAHAT 2100 #define II_ARM_M_CHR_SORASUIT 2101 #define II_ARM_M_CHR_SORAHANDS 2102 #define II_ARM_M_CHR_SORASHOES 2103propItem.txt
hintergrund bewegt sich mit
12/11/2013 - Web Development - 3 Replies
hallo, ich habe einen blog in dem ich html und css benutzen kann, mein problem ist ich habe ein hintergrund und dieser bewegt sich beim scrollen mit. wie kann ich das einstellen das der hintergrund sich nicht mit bewegt und oben links zentriert ist? ich benutze derzeit diesen code: <body style="background: url(http://images2.alphacoders.com/172/172322.jpg) no-repeat left top;">
sie bewegt sich und ( bewegt sich nicht ) ( ruhe )
08/31/2012 - Off Topic - 9 Replies
meine frage : eine federtasche liegt auf den tisch. behauptung : sie bewegt sich und ( bewegt sich nicht ) ( ruhe ) Was ist die Lösung?
2.11.05 || Bot bewegt sich nicht mehr?!
11/15/2005 - Ragnarok Online - 1 Replies
Habe den Bot OpenKore (version 1.6.4) schon ca 2 Monate bis gestern immer alles super und ohne Probleme gelaufen ;) ( auf euro server ) Nur jetzt start ich den und der gewegt sich nicht mehr wenn der ein monster sieht killt es und setzt sich wieder hin (HP immer voll) also mein Problem der will nicht mehr auf der map rum laufen und monster suchen ?&#33; was kann ich machen ? Danke im vorraus



All times are GMT +2. The time now is 06:58.


Powered by vBulletin®
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2021 elitepvpers All Rights Reserved.