مشکل در دریافت اطلاعات ارسال شده به باتن از طریقTag

[iavaduu 38]

باسلام،بنده داخل یک ساب یک سری مقدارو رو دریافت میکنم واین مقادیر رو به صورت استرینگ به این صورت به تگ باتنم ارسال میکنم:

Button.Tag = info

بعد داخل ساب باتن هم به این صورت مقادیر ارسال شده به تگ رو دریافت میکنم:

Sub Button_Click
	Button=Sender
	Dim ide1() As String = Button.Tag
	ToastMessageShow(ide1 , True)
End Sub

اما مقدار هارو دریافت نمیکنه به درستی!

[softir 459]

Sub Button_Click
	Button=Sender
	Dim ide1() As String = Button.Tag
	ToastMessageShow(ide1 , True)
End Sub

Dim ide1() As String = Button.Tag

این شکلی اشتباه باید این شکلی بنویسی

Dim ide1(1) As String  
ide1(0) = Button.Tag

بعد این شکلی فرا خوانی کنی

ToastMessageShow(ide1(0) , True)

 

[iavaduu 38]

در 30 دقیقه قبل، softir گفته است :

Sub Button_Click
	Button=Sender
	Dim ide1() As String = Button.Tag
	ToastMessageShow(ide1 , True)
End Sub

Dim ide1() As String = Button.Tag

این شکلی اشتباه باید این شکلی بنویسی

Dim ide1(1) As String  
ide1(0) = Button.Tag

بعد این شکلی فرا خوانی کنی

ToastMessageShow(ide1(0) , True)

 

به این شکل هم نوشتم ولی هیچ تاثیری نداشت!:

Sub Button_Click
Dim ide1(1) As String  
ide1(0) = Button.Tag
ToastMessageShow(ide1(0) , True)
End Sub

 

[Mehdi.s 173]

درود

در ساب اصلی مقدار تگ باتون1 رو تعریف کن

شکل صحیح استفاده:

Sub Button1_Click
    Dim btn As Button
    btn=Sender
    ToastMessageShow(btn.Tag,False)
End Sub

موفق باشی