hejsan... Har ett enkelt exempel för att lösa det. Tyvärr inte alltid 100% avmarkering. Eftersom vb saknar mose exit event är det svårt att få till en bra avmarkeringen. Kan lösa det så att man lägger en timer som kontrollerar om musen lämnat aktuell label eller subclassa. Men detta exempel duger om det inte är så petnoga. Krångla inte till det så mycket... Eftersom det rör sig om labels i detta fallet så kan man inte tillämpa denna principen. Men tack för ditt bidrag.MouseMove
om jag har tre labels som heter lbl(0),lbl(1),lbl(2). om jag nu vill att den lbl som har musen över sig ska bli färgad hur gör jag då?
har testat med mousemove och det funkar ju men hur får jag dom andra att bli ofärgade sen när jag tar bort musen från dom?Sv: MouseMove
<code>
Option Explicit
Sub SetSel(Index As Integer)
Dim Label As Label
For Each Label In lbl
If Label.Index = Index Then
Label.BackColor = vbHighlight
Label.ForeColor = vbHighlightText
Else
Label.BackColor = vbButtonFace
Label.ForeColor = vbButtonText
End If
Next
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
SetSel -1
End Sub
Private Sub lbl_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
SetSel Index
End Sub
</code>Sv: MouseMove
http://www.devx.com/free/articles/vb2themax/10tips/fb0201-3.asp
gör så..Sv: MouseMove