jose
17 de Marzo del 2004

Hola a todos. mi problema se produce con el siguiente c贸digo

Private Sub chk_modificar_Click(Index As Integer)

If chk_modificar(Index).Value = 1 Then
cbx_habitos(Index).Enabled = True
Else
cbx_habitos(i).Enabled = False
End If
End Sub

Utilizo una matriz de controles(checkbox), al hacer clic sobre un elemento de la matriz obtengo el indice de la matriz lo que es lo mismo el elemento dode hice clic. Con este indice establesco propiedades a otra matriz de controles (combobox) que contine la misma cantidad de elementos. Todo funciona correctamente, pero cuando trato de generar el ejecutable me sale un error de compilacion "Numero de argumento no valido o asignacion de propiedad no valida" en la linea chk_modificar(Index).Value = 1 creo que es porque no indico un numero donde esta la variable Index, utilizo matriz de controles que es generada en tiempo de ejecuci贸n, porque desconosco cuantos controles necesito, la cantidad la obtengo de una base de datos, de lo contrario efectuaria esto haci "chk_modificar(#).Value = 1"

Que puedo hacer.....

Saludos desde Panam谩
Muchas gracias por su tiempo

Jose Oscar
17 de Marzo del 2004

Hola jose .. otro jose te responde

Private Sub chk_modificar_Click(Index As Integer)

If chk_modificar(Index).Value = VbChecked Then
cbx_habitos(Index).Enabled = True
Else
cbx_habitos(i).Enabled = False
End If
End Sub

fijate que la linea despues del elese tiene por index un i
Else
cbx_habitos(i).Enabled = False

no deberia ser indesdx???? bueno tu sabras

un saludo tocayo :-D
Jose Oscar

jose
17 de Marzo del 2004

disculpen mi codigo es el sguiente gracias Jose Oscar

Private Sub chk_modificar_Click(Index As Integer)

If chk_modificar(Index).Value = VbChecked Then
cbx_habitos(Index).Enabled = True
Else
cbx_habitos(index).Enabled = False
End If
End Sub

es que intenete utiliza otra variable y como no me funciono lo deje como lo tenia pero se me olvido remplazar la (i) por (Index)

WILMAN
17 de Marzo del 2004

Bueno Jose mira por casualidad tengo un sub que hace lo mismo .. pero no me presenta problemas... mirando tu codigo la diferencia que encuentra es que no haces referencia al Item ... no se si podria ser eso.. de todas maneras pruebalo


Private Sub chk_modificar_Click(Index As Integer)

If chk_modificar.Item(Index).Value = Checked Then
cbx_habitos.Item(Index).Enabled = True
Else
cbx_habitos.Item(index).Enabled = False
End If
End Sub

Colombia