Ola bom dia
Eu fiz um pequeno programa para teste
Mais se usar o código do Button Ler texto no incio do programa ele da error
Preciso só salvar o texto. Mais quando eu clicar no aplicativo o texto já venha na caixa de texto
Aqui esta o programa
Obrigado
Eu fiz um pequeno programa para teste
Mais se usar o código do Button Ler texto no incio do programa ele da error
Preciso só salvar o texto. Mais quando eu clicar no aplicativo o texto já venha na caixa de texto
Aqui esta o programa
Obrigado
B4X:
Dim Button1 As Button
Dim Button2 As Button
Dim EditText1 As EditText
Dim EditText2 As EditText
Dim EditText3 As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("Layout")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
Tex.Clear
Tex.Put("EditText1", EditText1.Text)
Tex .Put("EditText2", EditText2.Text)
sets.Put("EditText3", EditText3.Text)
File.WriteMap(File.DirInternal,"btnset.set", sets)
ToastMessageShow("Texto Salvos", False)
End Sub
Sub Button2_Click
sets = File.ReadMap(File.DirInternal,"btnset.set")
EditText1.Text = sets.Get("EditText1")
EditText2.Text = sets.Get("EditText2")
EditText3.Text = sets.Get("EditText3")
End Sub