Problemas con un OCX - VB-MUNDO

MarcoArzapalo · #1 (**permalink**) 20-07-2008, 21:43:46

BUENAS TARDES, EN PRINCIPIO QUIERO AGRADECERTE POR TOMAR INTERES EN LA PREGUNTA; LO QUE PRETENDO ES HACER EL CODIGO DEL FARMULARIO SEA LO MAS SIMPLE POSIBLE, LA IDEA ES QUE LOS CODIGOS DE MIS CONTROLES (NUEVO, MODIFICAR, GRABAR, CANCELAR, BUSCAR, ELIMINAR, SALIR) NO SE REPITAN EN TODOS MIS FORMULARIOS, APARENTEMENTE CON MODULO NO SE PODRIA PORQUE NECESARIAMENTE TENGO Q UBICAR EN UN FORMULARIO, SI HAY ALGUN METODO DE HACERLO AGRADECERIA EN DECIRMELO; CREO Q ESTE PROCESO EN TODO CASO SE DEBERIA HACER MEDIANTE UN ARCHIVO OCX, PERO NO SÉ COMO DECLARAR LAS VARIABLES EN EL OCX Y NI COMO LLAMARLOS DESDE EL FORMULARIO.
ESTE ES EL CODIGO QUE DESEO LLAMAR A TODOS MIS FORMULARIOS, YO SE Q HAY UNA SOLUCION PARA ESTO, AGRADECERIA MUCHO DARME UNA IDEA

Código:

Private Sub BloquearCmdNuevo()
cmdgraba.Enabled = True
cmdcancela.Enabled = True
cmdnuevo.Enabled = False
cmdmodifica.Enabled = False
cmdelimina.Enabled = False
cmdbusca.Enabled = False
Cmdsalir.Enabled = False
End Sub
Private Sub BloquearCmdModifica()
cmdgraba.Enabled = True
cmdcancela.Enabled = True
cmdnuevo.Enabled = False
cmdmodifica.Enabled = False
cmdelimina.Enabled = False
cmdbusca.Enabled = False
Cmdsalir.Enabled = False
End Sub
Private Sub BloquearCmdGraba()
cmdnuevo.Enabled = True
cmdmodifica.Enabled = True
cmdelimina.Enabled = True
cmdbusca.Enabled = True
Cmdsalir.Enabled = True
cmdgraba.Enabled = False
cmdcancela.Enabled = False
End Sub
Private Sub BloquearCmdCancela()
cmdgraba.Enabled = False
cmdcancela.Enabled = False
cmdnuevo.Enabled = True
cmdmodifica.Enabled = False
cmdelimina.Enabled = False
cmdbusca.Enabled = True
Cmdsalir.Enabled = True
End Sub
Private Sub BloquearCmdElimina()
cmdnuevo.Enabled = True
cmdbusca.Enabled = True
Cmdsalir.Enabled = True
cmdgraba.Enabled = False
cmdmodifica.Enabled = False
cmdelimina.Enabled = False
cmdcancela.Enabled = False
End Sub
Private Sub BloquearCmdBuscar()
cmdnuevo.Enabled = True
cmdgraba.Enabled = False
cmdbusca.Enabled = True
Cmdsalir.Enabled = True
cmdmodifica.Enabled = True
cmdelimina.Enabled = True
cmdcancela.Enabled = False
End Sub
Private Sub BloquearBotones()
cmdnuevo.Enabled = True
cmdmodifica.Enabled = False
cmdgraba.Enabled = False
cmdcancela.Enabled = False
cmdelimina.Enabled = False
cmdbusca.Enabled = True
Cmdsalir.Enabled = True
End Sub

SALUDOS.
ATTE.
MARCO.

seba123neo · #2 (**permalink**) 20-07-2008, 23:17:09

Hola,uuuu que de codigo

,es facil mira priemro que nada create una matriz de controles de botones,y despues con 3 lineas de codigos los bloqueas o los desbloqueas cuando quieras...usando un bucle For que recorra todos los botones de la matriz de control...trata de hacerlo,si no podes postea.

saludos.