18/10/2011, 12:58
|
| | | Fecha de Ingreso: octubre-2008
Mensajes: 188
Antigüedad: 15 años, 6 meses Puntos: 3 | |
| Reducir código
Hola a todos. El tema es que estoy trabajando con imágenes indexadas y al pasar por encima deben cambiar de intensidad.
El código es el que pongo más abajo, pero ¿hay alguna otra manera de plantearlo y que sea más reducido?
Gracias de antemano.
Private Sub aicAlphaImage13_MouseEnter(Index As Integer)
If Index = 0 Then
aicAlphaImage13(0).IntensityOffset = 20
ElseIf Index = 1 Then
aicAlphaImage13(1).IntensityOffset = 20
ElseIf Index = 2 Then
aicAlphaImage13(2).IntensityOffset = 20
ElseIf Index = 3 Then
aicAlphaImage13(3).IntensityOffset = 20
ElseIf Index = 4 Then
aicAlphaImage13(4).IntensityOffset = 20
ElseIf Index = 5 Then
aicAlphaImage13(5).IntensityOffset = 20
ElseIf Index = 6 Then
aicAlphaImage13(6).IntensityOffset = 20
ElseIf Index = 7 Then
aicAlphaImage13(7).IntensityOffset = 20
ElseIf Index = 8 Then
aicAlphaImage13(8).IntensityOffset = 20
ElseIf Index = 9 Then
aicAlphaImage13(9).IntensityOffset = 20
ElseIf Index = 10 Then
aicAlphaImage13(10).IntensityOffset = 20
ElseIf Index = 11 Then
aicAlphaImage13(11).IntensityOffset = 20
ElseIf Index = 12 Then
aicAlphaImage13(12).IntensityOffset = 20
ElseIf Index = 13 Then
aicAlphaImage13(13).IntensityOffset = 20
End If
End Sub |