Sub Globals
Dim Button1 As Button
Dim Etext As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
HttpClient1.Initialize("HttpClient1")
End If
Activity.LoadLayout("layout1")
Etext.Initialize("")
End Sub
Sub HttpClient1_ResponseSuccess (Response As HttpResponse, TaskId As Int)
Log("ResponseSuccess")
ProgressDialogHide
Dim result As String
result = Response.GetString("UTF8") 'Convert the response to a string
Log(result) ' Shows fine
Log("1Etext.Text " & Etext.Text) ' Shows just "1Etext.text" but not actual Text..which should be just "test1"
Etext.Text = result
Log("2Etext.Text " & Etext.Text) ' now all is shown but nothing shows in actual EditText view
Etext.Invalidate ' needed?? yes, no??
Log("3Etext.Invalidate")
End Sub