[Visual Basic] Hyperlink effect voor labels

[Verwijderd]

Ik wil mijn labeltje met een effect van een hyperlink (dus onderstrepen bij mouseover)
da's nu geen prob (door mouseUP), maar een mouseLeave bestaat niet...

via googlegroups vind ik alleen 'oplossingen' door gebruik te maken van Drag & Drop, maar hier krijg ik een ongewenst kadertje erbij (rond de label)

kan het anders
of kan ik zorgen dat dit kadertje niet verschijnt

[Sponge]

Hmm, volgens mij moet je je in de SetCapture en GetCapture API gaan verdiepen om dit te doen op een bepaald forum heb ik hier code voor gezien, echter is de zoekfunctie nu pleite...

Overigens kun je ook kijken bij MouseMove van de Form, of dmv. GetcursorPos API:

code:

If X < label.left and x > label.left+label.width  Then
 if Y < label.top and y > Label.top + label.height Then
  '//muis is nie boven de label
 end if
end if

[OZ-Gump]

Volgens mij moet het ook kunnen lukken als je niet de leave van je label gebruikt, maar de OnMouseOver (sorry, Delphi-minded ) van je form om hem weer terug te zetten. Zoiets als

code:

if (label1.font.style = italic) then label1.font.style = normal

Ofzo?

edit:
tag vergeten

[ Voor 7% gewijzigd door OZ-Gump op 29-11-2002 15:19 ]

[Verwijderd]

Zo werkt het:

'grootte van label was w: 495 , h: 255
' links weinig gevoelig, daarom voldoende ruimte nemen

Private Sub lblnaam_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
If (x > 10 And x < 490) And (Y > 5 And Y < 200) Then
lblnaam.Font.Underline = True
Else
lblnaam.Font.Underline = False
End If
End Sub


het zal wel beter kunnen, maar dit werkt
thnx

[Sponge]

Verwijderd schreef op 29 November 2002 @ 15:32:
Zo werkt het:

'grootte van label was w: 495 , h: 255
' links weinig gevoelig, daarom voldoende ruimte nemen

Private Sub lblnaam_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
If (x > 10 And x < 490) And (Y > 5 And Y < 200) Then
lblnaam.Font.Underline = True
Else
lblnaam.Font.Underline = False
End If
End Sub


het zal wel beter kunnen, maar dit werkt
thnx

Dat is uiteraard ook een oplossing . Had ik ook aan kunnen denken

[CyberSnooP]

Het kan beter Met behulp van de API-Calls SetCapture en ReleaseCaputre kun je zorgen dat alle mousemove events bij een control terecht komen na een SetCapture totdat je weer ReleaseCapture doet. Als je dan controleert of de coördinaten binnen je veld liggen zit je goed.

Zoeken op MouseLeave en Visual Basic moet je genoeg resultaat geven, kijk anders eens op VBAccelerator.

_{Sorry, ik zie nou pas dat ik door slecht lezen 41.6C.6D.61.72 napraat}

[ Voor 10% gewijzigd door CyberSnooP op 30-11-2002 00:56 ]

[johnwoo]

Of je downloadt deze zip, waarin een hyperlink control en flat button control van mijn hand staan
De hyperlink control tekent standaard een focus rectangle (alleen als ie de focus heeft natuurlijk ), maar dat kun je uitzetten (DrawFocus property).
Beide controls gebruiken overigens SetCapture/ReleaseCapture.

[ Voor 11% gewijzigd door johnwoo op 30-11-2002 18:14 ]