bueno estoy practicando un poco con el columnview pues quiero mejorar el tanteador de tenis de mesa con una interfaz mas cómoda en la parte donde se agregan nombres de jugadores, ya encontré como guardar los datos del columnview en un
archivo de texto y queda así:
Joselo,Perez,679,22
Richard,Amaral,435,19
Marcelo,Sosa,350,25
hasta aquí llegue relativamente fácil, y me tranque con lo que seria el proceso al revés, alguna orientación por ahí?
' gambas class file
Public CantidadLista As Integer = 0
Public Sub _new()
End
Public Sub Form_Open()
ColumnView1.Columns.Count = 4
ColumnView1.Header = True
ColumnView1.Columns[0].Text = "Nombre"
ColumnView1.Columns[0].Alignment = 3
ColumnView1.Columns[0].Width = 260
ColumnView1.Columns[1].Text = "Apellido"
ColumnView1.Columns[1].Alignment = 3
ColumnView1.Columns[1].Width = 260
ColumnView1.Columns[2].Text = "Puntos"
ColumnView1.Columns[2].Alignment = 3
ColumnView1.Columns[3].Text = "Edad"
ColumnView1.Columns[3].Alignment = 3
txtNombre.SetFocus
End
Public Sub txtApellido_KeyPress()
End
Public Sub btnSalir_Click()
Me.close
End
Public Sub txtNombre_KeyPress()
End
Public Sub btnAgregar_Click()
If txtNombre.Text = Null Then Return
If txtApellido.Text = Null Then Return
If txtPuntos.Text = Null Then Return
If txtEdad.Text = Null Then Return
ColumnView1.Add(CantidadLista, CantidadLista)
ColumnView1[CantidadLista][0] = txtNombre.Text
ColumnView1[CantidadLista][1] = txtApellido.Text
ColumnView1[CantidadLista][2] = txtPuntos.Text
ColumnView1[CantidadLista][3] = txtEdad.Text
CantidadLista += 1
LabTotalList.Text = "Total en lista: " & CantidadLista
Print CantidadLista
txtNombre.Clear
txtApellido.Clear
txtPuntos.Clear
txtEdad.Clear
txtNombre.SetFocus
End
Public Sub ColumnView1_Click()
Dim JugadorSelecionado As Integer
JugadorSelecionado = ColumnView1.Current.Key
txtNombre.Text = ColumnView1[JugadorSelecionado][0]
txtApellido.Text = ColumnView1[JugadorSelecionado][1]
txtPuntos.Text = ColumnView1[JugadorSelecionado][2]
txtEdad.Text = ColumnView1[JugadorSelecionado][3]
End
Public Sub btnEliminar_Click()
Dim JugadorSelecionado As Integer
JugadorSelecionado = ColumnView1.Current.Key
ColumnView1.Remove(JugadorSelecionado)
CantidadLista -= 1
ColumnView1.MoveFirst
End
Public Sub btnModificar_Click()
Dim JugadorSelecionado As Integer
JugadorSelecionado = ColumnView1.Current.Key
ColumnView1[JugadorSelecionado][0] = txtNombre.Text
ColumnView1[JugadorSelecionado][1] = txtApellido.Text
ColumnView1[JugadorSelecionado][2] = txtPuntos.Text
ColumnView1[JugadorSelecionado][3] = txtEdad.Text
End
Public Sub MnuCargar_lista_Click()
Dim SepararDatos As String, Registros As Integer, leyendo As Integer
Dim nombre As String, apellido As String, puntos As String, edad1 As String
End
Public Sub MnuGuardar_lista_Click()
Dim UnirDatos As String, Registros As Integer, leyendo As Integer
Dim nombre As String, apellido As String, puntos As String, edad1 As String
Registros = ColumnView1.Count - 1
For leyendo = Registros To 0 Step -1
nombre = ColumnView1[leyendo][0]
apellido = ColumnView1[leyendo][1]
puntos = ColumnView1[leyendo][2]
edad1 = ColumnView1[leyendo][3]
UnirDatos = nombre & "," & apellido & "," & puntos & "," & edad1 & "\n"
TextArea1.Text &= UnirDatos
Next
Dialog.Filter = ["*.lst", "Lists", "*", "Todos los archivos"]
Dialog.Path = User.Home
If Dialog.SaveFile() Then Return
File.Save(Dialog.Path, TextArea1.Text)
Catch
Message.Info("No se pudo guardar la lista\n" & Dialog.Path & "\n" & Error.Text)
End
Public CantidadLista As Integer = 0
Public Sub _new()
End
Public Sub Form_Open()
ColumnView1.Columns.Count = 4
ColumnView1.Header = True
ColumnView1.Columns[0].Text = "Nombre"
ColumnView1.Columns[0].Alignment = 3
ColumnView1.Columns[0].Width = 260
ColumnView1.Columns[1].Text = "Apellido"
ColumnView1.Columns[1].Alignment = 3
ColumnView1.Columns[1].Width = 260
ColumnView1.Columns[2].Text = "Puntos"
ColumnView1.Columns[2].Alignment = 3
ColumnView1.Columns[3].Text = "Edad"
ColumnView1.Columns[3].Alignment = 3
txtNombre.SetFocus
End
Public Sub txtApellido_KeyPress()
End
Public Sub btnSalir_Click()
Me.close
End
Public Sub txtNombre_KeyPress()
End
Public Sub btnAgregar_Click()
If txtNombre.Text = Null Then Return
If txtApellido.Text = Null Then Return
If txtPuntos.Text = Null Then Return
If txtEdad.Text = Null Then Return
ColumnView1.Add(CantidadLista, CantidadLista)
ColumnView1[CantidadLista][0] = txtNombre.Text
ColumnView1[CantidadLista][1] = txtApellido.Text
ColumnView1[CantidadLista][2] = txtPuntos.Text
ColumnView1[CantidadLista][3] = txtEdad.Text
CantidadLista += 1
LabTotalList.Text = "Total en lista: " & CantidadLista
Print CantidadLista
txtNombre.Clear
txtApellido.Clear
txtPuntos.Clear
txtEdad.Clear
txtNombre.SetFocus
End
Public Sub ColumnView1_Click()
Dim JugadorSelecionado As Integer
JugadorSelecionado = ColumnView1.Current.Key
txtNombre.Text = ColumnView1[JugadorSelecionado][0]
txtApellido.Text = ColumnView1[JugadorSelecionado][1]
txtPuntos.Text = ColumnView1[JugadorSelecionado][2]
txtEdad.Text = ColumnView1[JugadorSelecionado][3]
End
Public Sub btnEliminar_Click()
Dim JugadorSelecionado As Integer
JugadorSelecionado = ColumnView1.Current.Key
ColumnView1.Remove(JugadorSelecionado)
CantidadLista -= 1
ColumnView1.MoveFirst
End
Public Sub btnModificar_Click()
Dim JugadorSelecionado As Integer
JugadorSelecionado = ColumnView1.Current.Key
ColumnView1[JugadorSelecionado][0] = txtNombre.Text
ColumnView1[JugadorSelecionado][1] = txtApellido.Text
ColumnView1[JugadorSelecionado][2] = txtPuntos.Text
ColumnView1[JugadorSelecionado][3] = txtEdad.Text
End
Public Sub MnuCargar_lista_Click()
Dim SepararDatos As String, Registros As Integer, leyendo As Integer
Dim nombre As String, apellido As String, puntos As String, edad1 As String
End
Public Sub MnuGuardar_lista_Click()
Dim UnirDatos As String, Registros As Integer, leyendo As Integer
Dim nombre As String, apellido As String, puntos As String, edad1 As String
Registros = ColumnView1.Count - 1
For leyendo = Registros To 0 Step -1
nombre = ColumnView1[leyendo][0]
apellido = ColumnView1[leyendo][1]
puntos = ColumnView1[leyendo][2]
edad1 = ColumnView1[leyendo][3]
UnirDatos = nombre & "," & apellido & "," & puntos & "," & edad1 & "\n"
TextArea1.Text &= UnirDatos
Next
Dialog.Filter = ["*.lst", "Lists", "*", "Todos los archivos"]
Dialog.Path = User.Home
If Dialog.SaveFile() Then Return
File.Save(Dialog.Path, TextArea1.Text)
Catch
Message.Info("No se pudo guardar la lista\n" & Dialog.Path & "\n" & Error.Text)
End
ListaJugadores-0.0.1.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | ListaJugadores-0.0.1.tar.gz | |
Tamaño: | 6.06 KB | |
Descargado: | 63 veces |
ListaJugadores-0.0.1.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | ListaJugadores-0.0.1.tar.gz | |
Tamaño: | 6.06 KB | |
Descargado: | 63 veces |
ListaJugadores-0.0.1.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | ListaJugadores-0.0.1.tar.gz | |
Tamaño: | 6.06 KB | |
Descargado: | 63 veces |