Moving Button: code

• Alles gebeurt in de MouseMove gebeurtenis, die x en y als parameter heeft. X is de horizontale positie, Y is de verticale positie. van de muis
  
  If X < Command1.Width / 2 Then 'de muis komt van links
  Command1.Left = Command1.Left + 100
  'GaNaarLinks (-100) [doen we straks]
  End If
  
  If X > Command1.Width / 2 Then 'de muis komt van rechts
  Command1.Left = Command1.Left - 100
  'GaNaarLinks (100)  [doen we straks]
  End If
  
  If Y < Command1.Height / 2 Then 'de muis komt van boven
  Command1.Top = Command1.Top + 100
  'GaNaarBeneden (100) [doen we straks]
  End If
  
  If Y > Command1.Height / 2 Then 'de muis komt van onder
  Debug.Print "onderaan"
  Command1.Top = Command1.Top - 100
  'GaNaarBeneden (-100)  [doen we straks]
  End If
  
• Toch is het dat niet helemaal: de knop kan van het scherm verdwijnen. En bovendien moeten we de verplaatsingen dikwijls oproepen, dus kunnen we er procedures van maken:
  
  Sub GaNaarBeneden(twips As Integer)
  Dim NieuweTop As Integer
  NieuweTop = Command1.Top + twips
  If NieuweTop > Form1.Height Then NieuweTop = 0 'terug bovenaan indien onderaan van scherm
  If NieuweTop < 0 Then NieuweTop = Form1.Height - Command1.Height 'terug onderaab indien bovenaan van scherm
  Command1.Top = NieuweTop
  End Sub
  Sub GaNaarLinks(twips As Integer)
  Dim NieuweLeft As Integer
  NieuweLeft = Command1.Left + twips
  If NieuweLeft > Form1.Width Then NieuweLeft = 0
  If NieuweLeft < 0 Then NieuweLeft = Form1.Width - Command1.Width
  Command1.Left = Command1.Left + twips
  End Sub
  

[VB Web] - [hlrnet] - [copyright]