Understregning på labels ved mouse-over

tag et lille kik på den her:
http://hjem.get2net.dk/sjh/eksperten/frmLinks.frm

Det ser godt ud, men kan du lave et hurtigt eksempel der inkludere flere forskellige labels? Har svært ved at se hvad jeg skal ændre!

Hvis det er simpelt kan du nøjes med at sige hvilket steder der skal ændres/tilføjes!

du kan bare copy/paste lblLinks da det er lavet i array :-)

Ahh, det virker vidst ikke hvis en labels er oven på en PictureBox ser det ud til. Sorry, burde ha' nævnt det i spørgsmålet!

og så kan du bare ændre navnet (http://..) i caption, så skulle den være hjemme

ok så lav den sådan:


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Call ClsColor
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Call ClsColor
End Sub

Public Sub ClsColor()
Dim objlblLinks As Label
  If blblLinks = True Then
    For Each objlblLinks In lblLinks
      If objlblLinks.Name = "lblLinks" Then
        objlblLinks.FontUnderline = False
        objlblLinks.ForeColor = &HFF0000 'Blå
      End If
    Next
    blblLinks = False
  End If
End Sub

Men ved du hvad? Du får point alligevel, for dit gode arbejde. Du kan jo ikke gøre for jeg ikke nævnte det i spørgsmålet. Jeg prøver mig andre steder, MED detaljer :)

Og hvis der er flere links, kan jeg så bruge:

If objlblLinks.Name = "Første Link" Or objlblLinks.Name = "Andet Link" Then

?

om du så laver 10.000 links skal du ikke ændre noget bare de er på samme form.

det er derfor jeg har lavet lblLinks i en array (index = 0)

...lblLinks i en array (index = 0) = lblLinks i et array (index = 0)

du skal bare ændre navnet (http://..) i caption på array index

og nej du kan ikke bruge ...Or objlblLinks.Name = "Andet Link" Then

Når jeg kører programmet siger den: Variable not found, og highlighter den:

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

For Each objlblLinks In lblLinks (highlighter kun lblLinks

Som du sikkert nok har opdaget er jeg nybegynder til VB6.

Du får 100 point hvis du laver en form til mig, som indeholder forskellige links(mine er ikke til websider, men skal virke som TabStrips), og som ligger oven på en picturebox!

ok så prøv den her...
http://hjem.get2net.dk/sjh/eksperten/Links.zip

og du behøver ikke at give flere point for det.. :-)

Jeg finder dog den her metode langt lettere... fandt den lige idag!

Private Sub lbl1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lbl1.FontUnderline = True
End Sub

Private Sub pic2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lbl1.FontUnderline = False
End Sub