domingo, 26 de junio de 2011

Botón Aceptar: evento .add()

Al hacer click en el botón aceptar, entonces es cuando realmente tenemos que añadir la información al array. Eso lo realizamos con el evento .add():



PUBLIC SUB ButtonAceptar_Click()
'añadimos a la matriz los datos
var.id.add("Id" & Str$(Now))
var.dni.add(TextBoxDNI.text)
var.nombre.add(TextBoxNombre.Text)
var.apellidos.add(TextBoxApellidos.Text)
var.empresa.add(TextBoxEmpresa.Text)
var.puesto.add(TextBoxPuesto.Text)
var.telf_empresa.add(TextBoxTelfEmpresa.Text)
var.telf_parti.add(TextBoxTelfParticular.text)
var.fax.add(TextBoxFax.Text)
var.movil_empresa.add(TextBoxMovilEmpresa.Text)
var.movil_parti.add(TextBoxMovilParticular.Text)
var.pag.add(TextBoxWEB.Text)
'en foto guardo la ruta donde esta la imagen
var.foto.add(var.rutaimagen)
var.direccion.add(TextBoxDireccion.Text)
var.observaciones.add(TextBoxObs.Text)
var.fecha_datos.add(TextBoxFecha.Text)
var.correo.Add(TextBoxCorreo.Text)


'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 una vez que hemos pulsado el boton Aceptar
TextBoxDNI.SetFocus
END
Y para rellenar el dato introducido en nuestro gridviews, vamos a llamar a una subrutina que esta en el módulo titulo: rellena
PUBLIC SUB rellena()
DIM a AS Integer
FMain.GridViewDatos.Rows.COUNT = var.id.COUNT
FOR a = 0 TO var.id.COUNT - 1
WITH FMain
.GridViewDatos[a, 0].Picture = Picture[var.foto[a]]
.GridViewDatos[a, 1].text = var.nombre[a]
.GridViewDatos[a, 2].text = var.apellidos[a]
.GridViewDatos[a, 3].text = var.dni[a]
.GridViewDatos[a, 4].text = var.empresa[a]
.GridViewDatos[a, 5].text = var.puesto[a]
.GridViewDatos[a, 6].text = var.telf_empresa[a]
.GridViewDatos[a, 7].text = var.movil_empresa[a]
.GridViewDatos[a, 8].text = var.telf_parti[a]
.GridViewDatos[a, 9].text = var.movil_parti[a]
.GridViewDatos[a, 10].text = var.fax[a]
.GridViewDatos[a, 11].text = var.correo[a]
.GridViewDatos[a, 12].text = var.pag[a]
.GridViewDatos[a, 13].text = var.direccion[a]
.GridViewDatos[a, 14].text = var.observaciones[a]
.GridViewDatos[a, 15].text = var.fecha_datos[a]
END WITH
NEXT
FMain.GridViewDatos.Refresh
END



Notas sobre este codigo:
1) Tenemos que definir una variable “a” que es al responsable de ir aumentando en el For-Next
para ello utilizamos
Dim a as integer
    2. El numero de filas sera igual al numero de datos Existentes.
FMain.GridViewDatos.Rows.COUNT = var.id.COUNT
    3. For – Next: como empezamos de “0” el .COUNT lo reducimos en uno
FOR a = 0 TO var.id.COUNT - 1
De este modo rellena tantas filas como numero de datos haya (propiedad .COUNT)
4. WITH – END WITH: nos ahorramos de escribir varias veces fmain
5. Hay que tambien refrescar los dados del gridviewDatos, una vez definido, normalmente lo hace, pero no siembre, por lo tanto mejor forzarlo a que refresque:
Fmain.GridViewDatos.Refresh


No hay comentarios:

Publicar un comentario en la entrada