domingo, 26 de junio de 2011

Modulo Gestion: Cancelar

Cuando estemos editando (var.estado=”Editando”) y pulsemos este boton, dejaremos de editar y borraremos los datos del formulario, sin que se cambien los valores de los registros.
PUBLIC SUB ButtonCancelar_Click()
'ponemos en blanco la propiedad .text de los texbox
PictureBoxFoto.Picture = Picture["icon:/96/gambas"]
TextBoxDNI.text = ""
TextBoxNombre.text = ""
TextBoxApellidos.text = ""
TextBoxEmpresa.text = ""
TextBoxPuesto.text = ""
TextBoxTelfEmpresa.text = ""
TextBoxTelfParticular.text = ""
TextBoxFax.text = ""
TextBoxMovilEmpresa.text = ""
TextBoxMovilParticular.text = ""
TextBoxWEB.text = ""
PictureBoxFoto.Picture = ""
TextBoxDireccion.text = ""
TextBoxObs.text = ""
TextBoxFecha.text = ""
TextBoxCorreo.text = ""
'escribimos en el gridviews el dato introducido
titulo.rellena()
'el setfocus lo ponemos justo al inicio de los datos
TextBoxDNI.SetFocus
'se da por compluido el estado de edicion
var.estado = ""
'hacemos de nuevo accesible el gridViewDatos
gridViewDatos.enabled = True
END







Como observareis mucho codigo se repite en varias zonas del programa, os propongo la optimizacion de este codigo atraves de subrutinas.




No hay comentarios:

Publicar un comentario en la entrada