Visual Basic Forum

DFJ · Tutorial Leser Anmeldedatum: 01.05.2008 Beiträge: 39

Hallo, wie beschränke ich eine maus auf eine picerbox bzw. wie könnte man diesen code besser machen er ist zwar schon gut aber es gibt ein bug
wenn man die maus über die picerbox zieht dann verwischt die picerbox werbungs bild .

Option Explicit

Private XPos As Single
Private YPos As Single

Private Sub werbungsbild_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)

If Button = vbLeftButton Then
werbungsbild.Move werbungsbild.Left + X - XPos, werbungsbild.Top + Y - YPos

prüfer.Enabled = True
If werbungsbild.Top < "0" Then
werbungsbild.Top = "1"
End If

If werbungsbild.Left < "0" Then
werbungsbild.Left = "1"
End If
If werbungsbild.Top > "4560" Then
werbungsbild.Top = "4559"
End If
If werbungsbild.Left > "2760" Then
werbungsbild.Left = "2759"

End If
End If

End Sub

Private Sub werbungsbild_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)

XPos = X
YPos = Y
End Sub

Danke für dioe hilfe
_________________

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 536

hi
musst den code aus diesem beispiel von schmitti mal durchkrempeln
der hat nämlich einen code für eine mausbegrenzung drin

Mausroutinen

lg