مشکل در مولتی پنل

[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

 

[پژمان نیکروان 6,055]

سلام

شما اومدید گفتید اگر v یک Label بود بیا یه لیبل تعریف کن بنام check و برابر با v قرار بده.

 If v Is Label Then
		 	Dim Check As Label = v
			Else
		End If	

و بعد پایین ترش اومدید بعد از End If شرط مورد نظر(بالا) از اون لیبل check استفاده کردید.

If Check.Tag="100"&GetTag Then

درصورتی که نباید اینطوری باشه، چون خارج از شرط قرار داره و هنوز ممکنه Label رو پیدا نکرده باشه و عملیات dim check as Label=v رو انجام نداده باشه.

 

باید همشو بذارید داخل شرط دیگه:

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
			 If Check.Tag="100"&GetTag Then
		   		Check.Text=Check.Text+1
		  		Check.Text=Check.Text.Replace(".0","")
	  		 End If
		End If	
	 
	 Next
End Sub