Aplicación variada de clase (Problemas)
Publicado por DavidS (1 intervención) el 09/01/2010 17:26:28
Buenas! Antes que nada presentarme ya que soy nuevo en el foro.
Veréis un amigo y yo tenemos un problema a la hora de hacer una sencilla aplicación en la que reservamos asientos de avión.
Tenemos 3 problemas que nos rondan la cabeza y que no sabemos solucionar.
---1º Botón Modificar.
Con este botón se puede cambiar algún registro de la persona que reserva, el caso esque no lo modifica, sino que añade un nuevo registro al ListBox.
Aquí el código:
If lstReserva.ListIndex = -1 Then
MsgBox "no tiene ningún elemento seleccionado", vbCritical + vbOKOnly, "Error"
Exit Sub
End If
frmDatos.Show
frmDatos.txtNombre = personas(lstReserva.ListIndex).Nombre
frmDatos.txtDireccion = personas(lstReserva.ListIndex).Direccion
frmDatos.txtTelf.Text = personas(lstReserva.ListIndex).Telefono
frmDatos.txtDNI.Text = personas(lstReserva.ListIndex).DNI
frmDatos.txtEmail.Text = personas(lstReserva.ListIndex).eMail
frmDatos.txtApellidos = personas(lstReserva.ListIndex).Apellidos
---2º Botón Ganancias Totales.
Veréis en un TextBox al darle al Botón "Recaudo Total" debe mostrarnos la suma del precio de todas las personas. En este botón no tengo código, ya que no se como hacerlo.
----3º Botones Abrir y Guardar.
Tenemos que poder abrir y guardar los datos de las personas que reservan (las del ListIndex) siempre que queramos. No sabemos si vamos bien o no:
'anulamos el contenido del filename
cdl1.FileName = ""
'los filtros van a pares separados por el tubo
'la primera partes es el mensaje y la segunda la extensión de los ficheros
cdl1.Filter = "Ficheros Texto|*.txt|Imágenes|*.bmp;*.jpg|Todos|*.*"
cdl1.ShowOpen
'vamos a mostrar el fichero electo en un mensaje
Infinitas gracias de antemano!!!! :)
Veréis un amigo y yo tenemos un problema a la hora de hacer una sencilla aplicación en la que reservamos asientos de avión.
Tenemos 3 problemas que nos rondan la cabeza y que no sabemos solucionar.
---1º Botón Modificar.
Con este botón se puede cambiar algún registro de la persona que reserva, el caso esque no lo modifica, sino que añade un nuevo registro al ListBox.
Aquí el código:
If lstReserva.ListIndex = -1 Then
MsgBox "no tiene ningún elemento seleccionado", vbCritical + vbOKOnly, "Error"
Exit Sub
End If
frmDatos.Show
frmDatos.txtNombre = personas(lstReserva.ListIndex).Nombre
frmDatos.txtDireccion = personas(lstReserva.ListIndex).Direccion
frmDatos.txtTelf.Text = personas(lstReserva.ListIndex).Telefono
frmDatos.txtDNI.Text = personas(lstReserva.ListIndex).DNI
frmDatos.txtEmail.Text = personas(lstReserva.ListIndex).eMail
frmDatos.txtApellidos = personas(lstReserva.ListIndex).Apellidos
---2º Botón Ganancias Totales.
Veréis en un TextBox al darle al Botón "Recaudo Total" debe mostrarnos la suma del precio de todas las personas. En este botón no tengo código, ya que no se como hacerlo.
----3º Botones Abrir y Guardar.
Tenemos que poder abrir y guardar los datos de las personas que reservan (las del ListIndex) siempre que queramos. No sabemos si vamos bien o no:
'anulamos el contenido del filename
cdl1.FileName = ""
'los filtros van a pares separados por el tubo
'la primera partes es el mensaje y la segunda la extensión de los ficheros
cdl1.Filter = "Ficheros Texto|*.txt|Imágenes|*.bmp;*.jpg|Todos|*.*"
cdl1.ShowOpen
'vamos a mostrar el fichero electo en un mensaje
Infinitas gracias de antemano!!!! :)
Valora esta pregunta
0