Har gjort en Select Case, det är bara tre knappar, då blev det inte så mycket kod för att det ska fungera. Knapparna sitter i hop kommer inte åt formen. Frågan är om den här koden är den bästa om man vill ha mer knappar, mycket skriva blir det då.
Kan man skriva på något annat sätt? Kanske skriva en funktion, ungefär som "Call FetStil"
Har tittat i forum, tips&tricks men såg inget som passade.
:-) SJ
Private Sub Cmd_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As String
Select Case Index
Case 0
Cmd(0).FontItalic = 1
Cmd(1).FontItalic = 0
Cmd(2).FontItalic = 0
Case 1
Cmd(1).FontItalic = 1
Cmd(0).FontItalic = 0
Cmd(2).FontItalic = 0
Case 2
Cmd(2).FontItalic = 1
Cmd(0).FontItalic = 0
Cmd(1).FontItalic = 0

End Select


End Sub

Fungerar detta för ditt ändamål?

For i = 0 To 2
Command1(i).FontItalic = False
Next
Command1(Index).FontItalic = True


/Janne

Mitt förslag:

Private Sub Cmd_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim I As Integer
For I = cmd.LBound To cmd.UBound
cmd(I).FontItalic = (I = Index)
Next
End Sub

Tack. Det fungerar med tredje alternativet också. :-) SJ

Kanske ett bättre alternativ. Klarar att indexvärdena inte är konsekventa. T.Ex om man skulle hoppa över några...

Private Sub Cmd_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim cmdbtn As CommandButton
For Each cmdbtn In cmd
cmdbtn.FontItalic = (cmdbtn.Index = Index)
Next
End Sub