Sub SaveSetting
Dim s As String
If EditText1.Text = "" Then
ToastMessageShow("Indirizzo abitazione/centro accoglienza obligatorio", False)
Return
End If
If EditText2.Text = "" Then
ToastMessageShow("Numero SMS Amico obligatorio", False)
Return
End If
If EditText3.Text = "" Then
ToastMessageShow("Numero telefono amico obligatorio", False)
Return
End If
If EditText4.Text = "" Then
ToastMessageShow("Numero soccorso obligatorio", False)
Return
End If
s = EditText1.Text & "|" & EditText2.Text & "|" & EditText3.Text & "|" & EditText4.Text & "|" & CheckBox1.Checked & "|" & CheckBox2.Checked & "|" & CheckBox3.Checked & "|" & CheckBox4.Checked & "|" & CheckBox5.Checked & "|" & EditText5.Text
SettingApp.SetString("SettingKey",s)
Setting.GetSettingKey
End Sub