Er zijn 2 reacties in dit onderwerp

[houthalen]

Dag
Met deze code kan ik een drag & drop met een label doen.

Code:

Dim OudeX As Single, OudeY As Single
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Label1.ZOrder
OudeX = X
OudeY = Y
End If
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Call Label1.Move(Label1.Left + X - OudeX, Label1.Top + Y - OudeY)
End If
End Sub

Ik zou nu willen op disabled zetten dmv een button
en dan weer op enabled zetten dmv een ander button.

Dus als ik op disabled zet dan zal de drag&drop functie niet meer werken.
Als ik op enabled zet dan zal de drag&drop weer werken.
wat moet ik schrijven onder de twee buttons?
dank u
houthalen

[Jenny]

gebruik een checkbox
Visual Basic Code:

Dim OudeX As Single, OudeY As Single
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Check1 = vbChecked Then
	 If Button = vbLeftButton Then
		 Label1.ZOrder
		 OudeX = X
		 OudeY = Y
	 End If
End If
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Check1 = vbChecked Then
	 If Button = vbLeftButton Then
		 Label1.Move Label1.Left + X - OudeX, Label1.Top + Y - OudeY
	 End If
End If
End Sub

waarom gebruikt u de CALL syntax om een methode van een control aan te roepen ?
bekijk in de object browser eens de vbrun librarie,en dan vooral de globals en de constants
bv:
CheckBoxConstants , MouseButtonConstants,enz
vergeet u niet te checken of het label buiten het form komt ?

[houthalen]

dank u, jenny.
Ik heb uw  (fantastisch) idee een beetje  aangepast:
ik zet de check control op niet.visible. en onder 1 command button checked en onder een ander button op niet checked.

Zo kan ik op enabled of disabled zetten.

Een grote idee. Ik had eerste aan een boolean variabel gedacht, maar zonder succes.
dank u
houthalen