iOS Question when the app is killed textfield.text value is lost

[Baris Karadeniz]

When I write some values to the textfield, it holds the value at the foreground and background. But if app is killed and run again, the value is lost and textfield comes back empty. How can I provide textfield holds the value entered although app is killed?

 

[JanPRO]

Hi,

I recommend you the following:

1. Save the value in the Application_Background sub:

Private Sub Application_Background
    File.WriteMap(File.DirDocuments,"user",CreateMap("username":TextField1.Text))
End Sub

2. Read the value in the Start sub, and set it to the textfield:

Private Sub Application_Start (Nav As NavigationController)
    TextField1.Text = File.ReadMap(File.DirDocuments,"user").Get("username")
End Sub

Or have a look here

Jan

 

[Baris Karadeniz]

Thanks Jan. It is nice. When the app runs first time it will try to read map but there is nothing. What will be in this case?

 

[JanPRO]

Ohh, I have forgotten this case.
Check if the file "user" exists, before you try to read the information:

Private Sub Application_Start (Nav As NavigationController)
    If File.Exists(File.DirDocuments,"user") Then
            TextField1.Text = File.ReadMap(File.DirDocuments,"user").Get("username")
        Else
            TextField1.Text = "default value"
    End If
End Sub

Jan

 

[Baris Karadeniz]

Jan, thank you very much. It solved my problem. Thanks.

 

[Baris Karadeniz]

It is not related to this topic but may I ask another question about text field? If the entered value into the TextField includes characters, it will not be accepted. I wrote the codes below. I used AnyChr as Char, but there is a log. It says "Variable 'AnyChar' is never assigned any value. (warning#10) How can I solve this?

Dim AnyChr As Char
    If TextFieldimei.Text.Contains(AnyChr) Or TextFieldimei.Text.Length <> 15 Then
        Msgbox(warning2, warningtitle1)
        TextFieldimei.Text = ""
        Else
        File.WriteMap(File.DirDocuments,"user",CreateMap("userimei":TextFieldimei.Text))
    End If
End Sub

 

[JanPRO]

Hi,

you have to give AnyChr a value

Jan

 

[Baris Karadeniz]

But it can be any character. I can't write a specific character for this. Entered value should be 15 digit numeric value.

 

[JanPRO]

Ah, ok.
Use IsNumber:

    If Not(IsNumber(TextFieldimei.Text)) Or TextFieldimei.Text.Length <> 15 Then
        Msgbox(warning2, warningtitle1)
        TextFieldimei.Text = ""
        Else
        File.WriteMap(File.DirDocuments,"user",CreateMap("userimei":TextFieldimei.Text))
    End If

Jan

 

[Baris Karadeniz]

Second time Thanks.