Ver Mensaje Individual
  #1 (permalink)  
Antiguo 18/10/2011, 12:58
truskyvb
 
Fecha de Ingreso: octubre-2008
Mensajes: 188
Antigüedad: 16 años, 2 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