Sub p_onStringoKResponse(Response As String)
Dim parser As JSONParser
parser.Initialize(Response)
Dim LstData As List
LstData.Initialize
LstData = parser.NextArray
For Each MapData As Map In LstData
Dim pl As Panel
pl.Initialize("pl")
sc(MapData.Get("idc")).Panel.AddView(pl,1%x,offsetY(MapData.Get("idc")),90%x,100%y)
offsetY(MapData.Get("idc")) = offsetY(MapData.Get("idc")) + 30%y
pl.LoadLayout("item")
Label1.Text=0
price.Text=MapData.Get("price")
pl.Tag = MapData.Get("id")
btn.Tag = MapData.Get("id")
btnt.Tag =MapData.Get("id")
btnt.Visible=False
Label1.Tag = 100&MapData.Get("id")
price.Tag=1000&MapData.Get("id")
Next
End Sub
Sub btn_Click
''''''Click Roye Dokme
Dim Mybtn As Button
Mybtn = Sender
GetTag = Mybtn.Tag
For Each v As View In Activity.GetAllViewsRecursive
If v Is Label Then
Dim Check As Label = v
Else
End If
If Check.Tag="100"&GetTag Then
Check.Text=Check.Text+1
Check.Text=Check.Text.Replace(".0","")
End If
Next
End Sub
سوال
pejman 24
سلام دوستان
مشکل دکمه btn چیه خطا میده موقع کلیک
Sub p_onStringoKResponse(Response As String) Dim parser As JSONParser parser.Initialize(Response) Dim LstData As List LstData.Initialize LstData = parser.NextArray For Each MapData As Map In LstData Dim pl As Panel pl.Initialize("pl") sc(MapData.Get("idc")).Panel.AddView(pl,1%x,offsetY(MapData.Get("idc")),90%x,100%y) offsetY(MapData.Get("idc")) = offsetY(MapData.Get("idc")) + 30%y pl.LoadLayout("item") Label1.Text=0 price.Text=MapData.Get("price") pl.Tag = MapData.Get("id") btn.Tag = MapData.Get("id") btnt.Tag =MapData.Get("id") btnt.Visible=False Label1.Tag = 100&MapData.Get("id") price.Tag=1000&MapData.Get("id") Next End Sub Sub btn_Click ''''''Click Roye Dokme Dim Mybtn As Button Mybtn = Sender GetTag = Mybtn.Tag For Each v As View In Activity.GetAllViewsRecursive If v Is Label Then Dim Check As Label = v Else End If If Check.Tag="100"&GetTag Then Check.Text=Check.Text+1 Check.Text=Check.Text.Replace(".0","") End If Next End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.