Springen naar inhoud


- - - - -
VB6 SOLVED

Een Mouse_Down Op Disabled Zetten



  • Log in a.u.b. om te beantwoorden
Er zijn 2 reacties in dit onderwerp

#1 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 100 berichten
    Laatst bezocht vandaag, 16:50

Geplaatst op 11 februari 2013 - 20:51


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

#2 Jenny

Jenny

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 555 berichten
    Laatst bezocht 14 dec 2014 11:23

Geplaatst op 11 februari 2013 - 22:35

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 ?
Stel niet uit tot morgen, wat je voor eeuwig kunt uitstellen

#3 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 100 berichten
    Laatst bezocht vandaag, 16:50

Geplaatst op 11 februari 2013 - 23:27

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





Ook met taq VB6 SOLVED voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VB6 SOLVED] Untitled 1

Met dank aan PascalBianca die tot op heden alles bijhoud sinds anno dec 2010)
Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
vbib.be - vbnet.be - vbdotnet.be - visualbasic.be