Visual Basic

Hey,

Ik ben bezig met een programma, en elke Windows heeft een eigen GUI. (kijk maar naar XP en dan 7). Maar dat is saai, ik heb dus de Windows GUI weg gehaalt en mijn eigen gemaakt, maar nu kun je niet verplaatsen. Hier was een code voor, maar ben ik vergeten (best lange code).

Edit: met verplaatsen bedoel ik slepen naar een andere plek in je scherm.

Alvast bedankt!

In VB? Ik heb ergens een sleepfunctie in een VBA (powerpoint) ding, ik zal ff voor je zoeken.

//---------

Const sprong = 20
Public grijp As Boolean

Private Sub Image1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As Long, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
Effect = fmDropEffectMove
End Sub

Private Sub Image1_Click()
Image1.Left = Image1.Left - 5

End Sub

Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

grijp = True
End Sub
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If grijp Then
Image1.Move Image1.Left + X, Image1.Top + Y
End If
End Sub

Private Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

grijp = False
End Sub

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Beep
End Sub

Private Sub image1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 37
Image1.Left = Image1.Left - sprong
Case 38
Image1.Top = Image1.Top - sprong
Case 39
Image1.Left = Image1.Left + sprong
Case 40
Image1.Top = Image1.Top + sprong
Case Else

End Select
End Sub

//-----------------

Ik hoop dat dit is wat je zoekt?

Fassdfds schreef:

In VB? Ik heb ergens een sleepfunctie in een VBA (powerpoint) ding, ik zal ff voor je zoeken.

Spoiler tonen

Const sprong = 20
Public grijp As Boolean

Private Sub Image1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As Long, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
  Effect = fmDropEffectMove
End Sub

Private Sub Image1_Click()
Image1.Left = Image1.Left - 5

End Sub

Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)


  grijp = True
End Sub
 Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)


  If grijp Then
    Image1.Move Image1.Left + X, Image1.Top + Y
  End If
End Sub

Private Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

  grijp = False
End Sub







Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  Beep
End Sub

Private Sub image1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   Select Case KeyCode
     Case 37
       Image1.Left = Image1.Left - sprong
     Case 38
       Image1.Top = Image1.Top - sprong
     Case 39
       Image1.Left = Image1.Left + sprong
     Case 40
       Image1.Top = Image1.Top + sprong
     Case Else
   
   End Select
End Sub

Ik hoop dat dit is wat je zoekt?

Ik zal het straks even testen, maar volgensmij is dit voor een plaatje? Ik kijk wel of ik het kan veranderen. Bedankt.

Verander Image1 door het object dat je wil verplaatsen?