Hi.
Ohne jetzt hier Ideen klauen zu wollen, war ich trotzdem mal so frei und habe den Quellcode von Koopa manuell übersetzt nach VB.NET (der war ja in C#). Zudem habe ich eine kleine Änderung an der Form vorgenommen, damit die von Koopa abgefragte Zone (X<100)
sichtbar wird.
Den Code kannst du (Felix) nun einfach in dein VB in ein neues Projekt einbauen und austesten. Auch die bei Koopas Beispiel benötigte Picturebox habe ich im Code eingebettet. Brauchst also nichts hinzufügen im Designer.
Hoffe das hilft dir jetzt etwas besser. :-)
LG, Dennis.
Public Class Form1
Private Picturebox1 As PictureBox = New PictureBox
Private _capturingMoves As Boolean = False
Private p As Point = New Point
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Bounds = New Rectangle(10, 10, 800, 600)
Me.Controls.Add(Picturebox1)
With PictureBox1
.BackColor = Color.Navy
.BorderStyle = BorderStyle.FixedSingle
.Bounds = New Rectangle(Me.Width \ 2 - 50, Me.Height \ 2 - 30, 100, 60)
End With
End Sub
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
End Sub
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaint(e)
e.Graphics.DrawLine(Pens.Black, 100, 0, 100, Me.Height)
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If Not _capturingMoves Then Exit Sub
PictureBox1.Location = New Point(e.X - p.X + PictureBox1.Location.X, e.Y - p.Y + PictureBox1.Location.Y)
p = e.Location
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
If _capturingMoves Then
_capturingMoves = False
'Do any final placement
If CheckIsInArea() Then MsgBox("Entriegelt")
End If
End Sub
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If e.Button = MouseButtons.Left Then
p = New Point(e.X + Picturebox1.Location.X, e.Y + Picturebox1.Location.Y)
_capturingMoves = True
End If
End Sub
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If Not _capturingMoves Then Exit Sub
Dim t As Point = New Point(e.X + Picturebox1.Location.X, e.Y + Picturebox1.Location.Y)
Picturebox1.Location = New Point(t.X - p.X + Picturebox1.Location.X, t.Y - p.Y + Picturebox1.Location.Y)
p = t
End Sub
Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
_capturingMoves = False
If (CheckIsInArea()) Then MsgBox("Entriegelt")
End Sub
Public Function CheckIsInArea() As Boolean
Return PictureBox1.Location.X < 100 ' //Bild muss nach ganz links geschoben werden
End Function
End Class
Button verschieben?
Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „Entwickler helfen Entwickler“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.
