Neiva, Huila, Rep. de Colombia
Tengo esta pequeña aplicación, un tableView que almacena unos datos mientras esta activa la aplicación, pero si se cierra el ejecutable, se pierden los datos. Como hago que por defecto me guarde automáticamente sin tener que usar un path para guardar el archivo cada vez que se agregan los datos?
Gracias.
' gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
'Cantidad de columnas a usar
TableView1.Columns.Count = 3
TableView1.Columns[0].Text = "Nombre"
TableView1.Columns[0].Width = 120
TableView1.Columns[1].Text = "Dirección"
TableView1.Columns[1].Width = 150
TableView1.Columns[2].Text = "Telefono"
TableView1.Columns[2].Width = 150
END
'Subrutina para limpiar los textbox
PRIVATE SUB clear_text()
txt_Direccion.Clear
txt_Nombre.Clear
txt_Telefono.Clear
END
PUBLIC SUB btn_agregar_Click()
'Guardar la cantidad de filas que existen
DIM row AS Integer = TableView1.Rows.Count
'Comparo si los 3 textbox están vacíos o no
IF txt_Nombre.Text <> "" AND txt_Direccion.Text <> "" AND txt_Telefono.Text <> "" THEN
'Agrego una nueva fila si los 3 textbox contiene información
TableView1.Rows.Count += 1
'Agrego el nombre, ocupación,dirección a la fila
TableView1[row, 0].Text = txt_Nombre.Text
TableView1[row, 1].Text = txt_Direccion.Text
TableView1[row, 2].Text = txt_Telefono.Text
'clear_text() 'Subrutina para eliminar los datos escritos en el TextBox
ELSE 'Si los textbox están vacíos mandara el siguiente mensaje
Message.Info("llene los datos")
ENDIF
END
PUBLIC SUB Button1_Click()
ME.Close
END
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
'Cantidad de columnas a usar
TableView1.Columns.Count = 3
TableView1.Columns[0].Text = "Nombre"
TableView1.Columns[0].Width = 120
TableView1.Columns[1].Text = "Dirección"
TableView1.Columns[1].Width = 150
TableView1.Columns[2].Text = "Telefono"
TableView1.Columns[2].Width = 150
END
'Subrutina para limpiar los textbox
PRIVATE SUB clear_text()
txt_Direccion.Clear
txt_Nombre.Clear
txt_Telefono.Clear
END
PUBLIC SUB btn_agregar_Click()
'Guardar la cantidad de filas que existen
DIM row AS Integer = TableView1.Rows.Count
'Comparo si los 3 textbox están vacíos o no
IF txt_Nombre.Text <> "" AND txt_Direccion.Text <> "" AND txt_Telefono.Text <> "" THEN
'Agrego una nueva fila si los 3 textbox contiene información
TableView1.Rows.Count += 1
'Agrego el nombre, ocupación,dirección a la fila
TableView1[row, 0].Text = txt_Nombre.Text
TableView1[row, 1].Text = txt_Direccion.Text
TableView1[row, 2].Text = txt_Telefono.Text
'clear_text() 'Subrutina para eliminar los datos escritos en el TextBox
ELSE 'Si los textbox están vacíos mandara el siguiente mensaje
Message.Info("llene los datos")
ENDIF
END
PUBLIC SUB Button1_Click()
ME.Close
END
Tenochtitlan
