Problemas con formulario MDI
Publicado por diogenes (41 intervenciones) el 15/10/2004 22:12:20
Tengo el siguiente codigo y tengo la duda de como agregar un nueva opcion al menu MDI
ya que no se como y con que trabaja trabaja la opcion .btnBoton(0) del formulario
ya que quice agregar la opcion 8 al igual a las anteriores y me dio el siguiente
error "el elemento "0" de la matriz de controles no existe", Luego quice
activar directamente la opcion como aparece en el case 8 o sea con .show
y si bien funciona y llama la opcion, cuando vuelve queda esta inhabilitada de
ejecuctar nuevamente como si al salir del programa no actualizara tal opcion en
el menu MDI
Select Case Index
Case 0
frmRegistroDeMovimientoDeProductos.btnBoton(0).Tag = Index
Case 1
frmRegistroDeUbicacionDeProductos.btnBoton(0).Tag = Index
Case 2
frmActualizacionDePickingManual.btnBoton(0).Tag = Index
Case 3
frmEtiquetasDeBultoPorOrdenDePicking.btnBoton(0).Tag = Index
Case 4
frmContinuidadDeProcesos.btnBoton(0).Tag = Index
Case 5
frmEliminacionColaPicking.btnBoton(0).Tag = Index
Case 6
frmVaciaUbicacion.btnBoton(0).Tag = Index
Case 7
frmImpresionDeEtiquetaDePrecioRipley.btnBoton(0).Tag = Index
Case 8
frmBloqueoProductos.Show
End Select
Muchas Gracias
ya que no se como y con que trabaja trabaja la opcion .btnBoton(0) del formulario
ya que quice agregar la opcion 8 al igual a las anteriores y me dio el siguiente
error "el elemento "0" de la matriz de controles no existe", Luego quice
activar directamente la opcion como aparece en el case 8 o sea con .show
y si bien funciona y llama la opcion, cuando vuelve queda esta inhabilitada de
ejecuctar nuevamente como si al salir del programa no actualizara tal opcion en
el menu MDI
Select Case Index
Case 0
frmRegistroDeMovimientoDeProductos.btnBoton(0).Tag = Index
Case 1
frmRegistroDeUbicacionDeProductos.btnBoton(0).Tag = Index
Case 2
frmActualizacionDePickingManual.btnBoton(0).Tag = Index
Case 3
frmEtiquetasDeBultoPorOrdenDePicking.btnBoton(0).Tag = Index
Case 4
frmContinuidadDeProcesos.btnBoton(0).Tag = Index
Case 5
frmEliminacionColaPicking.btnBoton(0).Tag = Index
Case 6
frmVaciaUbicacion.btnBoton(0).Tag = Index
Case 7
frmImpresionDeEtiquetaDePrecioRipley.btnBoton(0).Tag = Index
Case 8
frmBloqueoProductos.Show
End Select
Muchas Gracias
Valora esta pregunta


0