با استفاده از کد زیر اومدم و متن رو در label نشون دادم، حالا میخوام نرم افزار هر ثانیه چک کنه به محض اینکه متن mb تو دیتابیس تغییر کرد ، متن mb تو نرم افزار که همون label هست هم عوض بشه
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("end1")
downloader1.Initialize("dl1",Me)
downloader1.Download("http://www.xxxx.ir/xxx/show.php")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub JobDone(job1 As HttpJob)
If job1.Success Then
If job1.JobName = "dl1" Then
Dim parser As JSONParser
parser.Initialize(job1.GetString)
Dim lst As List
lst.Initialize
lst = parser.NextArray
For Each m As Map In lst
Dim p As Panel
p.Initialize("p")
p.Tag = m.Get("text")
mb.Text= m.Get("mb")
Next
End If
End If
End Sub
سوال
cloner01001 38
سلام خسته نباشید
با استفاده از کد زیر اومدم و متن رو در label نشون دادم، حالا میخوام نرم افزار هر ثانیه چک کنه به محض اینکه متن mb تو دیتابیس تغییر کرد ، متن mb تو نرم افزار که همون label هست هم عوض بشه
Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: Activity.LoadLayout("end1") downloader1.Initialize("dl1",Me) downloader1.Download("http://www.xxxx.ir/xxx/show.php") End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub JobDone(job1 As HttpJob) If job1.Success Then If job1.JobName = "dl1" Then Dim parser As JSONParser parser.Initialize(job1.GetString) Dim lst As List lst.Initialize lst = parser.NextArray For Each m As Map In lst Dim p As Panel p.Initialize("p") p.Tag = m.Get("text") mb.Text= m.Get("mb") Next End If End If End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
5 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.