Newsgroup: it.comp.lang.visual-basic
Titolo: MouseMove Help

salve, con questo breve codice la label in cui viene mosso il mouse
cambia colore, ma vorrei fare che quando il mouse esce dalla label
torni del colore originario, non mi viene in mente come fare :)
il mio codice e' semplicemente questo:
Private Sub Lab_alchimia_MouseMove(Button As Integer, Shift As
Integer, X As Single, Y As Single)
Lab_alchimia.BackColor = &H1120A4
End Sub

 ha scritto nel messaggio
news:5313a15.02121...@posting.google.com...

cosě di getto.....
la label non č sospesa nel nulla.....pensaci ....č dentro un form....e anche
il form ha MouseMove....ora se in questa metto il colore che hanno gli altri
controlli quando son sul form e non nel controllo......
:-)

 ha scritto nel messaggio
news:CI3M9.1896$Q%4.4...@news1.tin.it...

Non mi ha mai soddisfatto questo metodo :(

 Non mi ha mai soddisfatto questo metodo :(
neanche a me, ma non ne ho mai trovati altri.
anzi, il rischio e' che se ci sono p.e. due label molto vicine, win si
perde il passaggio sul form.

 neanche a me, ma non ne ho mai trovati altri.
http://groups.google.com/groups?selm=78f4co$sqa$1...@nslave1.tin.it
Un Paperino di ritorno :-)

...

le label sono una ventina... deve resettare il colore ogni volta che
sono sul form... solo che il mouse da una label si puo' spostare
direttamente ad un altra senza passsare per il form.. e' troppo lungo
settare il colore di base su tutte le altre label quando sono su una
label...
idee ?

 idee ?
usa una matrice.
non sfarfalla troppo
Option Explicit
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
    Dim j As Integer
    For j = 0 To 5
            Label1(j).BorderStyle = 0
            Label1(j).BackColor = vbYellow
            Label1(j).ForeColor = vbBlack
            Label1(j) = "label1"
            Text1(j).BorderStyle = 0
            Text1(j).BackColor = vbYellow
            Text1(j).ForeColor = vbRed
            Text1(j) = "text1"
    Next
End Sub
Private Sub Label1_MouseMove(Index As Integer, Button As Integer,
Shift As Integer, X As Single, Y As Single)
    Dim j As Integer
    For j = 0 To 5
        If j = Index Then
            Label1(j).BorderStyle = 1
            Label1(j).BackColor = vbBlack
            Label1(j).ForeColor = vbYellow
            Label1(j) = "IN EVIDENZA"
        Else
            Label1(j).BorderStyle = 0
            Label1(j).BackColor = vbYellow
            Label1(j).ForeColor = vbBlack
            Label1(j) = "label1"
        End If
    Next
End Sub
Private Sub Text1_MouseMove(Index As Integer, Button As Integer, Shift
As Integer, X As Single, Y As Single)
    Dim j As Integer
    For j = 0 To 5
        If j = Index Then
            Text1(j).BorderStyle = 1
            Text1(j).BackColor = vbRed
            Text1(j).ForeColor = vbYellow
            Text1(j) = "IN EVIDENZA"
        Else
            Text1(j).BorderStyle = 0
            Text1(j).BackColor = vbYellow
            Text1(j).ForeColor = vbRed
            Text1(j) = "text1"
        End If
    Next
End Sub

anche un altra cosa che mi sono dimenticato... non trovo per poter
mettere il puntatore del mouse a forma di manina, ho visto come
cambiare puntatore quando se isopra alla label, ma la manina non
c'e'... :(

ultraK ha scritto:

MousePointer=99 (Custom) e agisci su MouseIcon