دوست عزیز من هم این مشکل رو دارم آیا کسی هست کمک کنه ؟؟
من میخوام یک لیست ویو بسازم که توی هر ایتمش عکس بکگراند تذهیبی بگذارم تا کمی خوشگل بشهاومدم از اسکرول ویو استفاده کردم و داخل اسکرول ویو ارایه ای از باتن را فراخوانی کردمولی هر چی روی دکمه ها کلیک میکنم کار نمیکننالان کد ها رو خدمتتون کپی میکنم اگر محبت کنید راهنماییم کنید ممنونممیخوام روی هر دکمه کلیک میکنم لایوت مربوط به اون دکمه باز بشه که نمیشهدر واقع توی باتن کلیک نمیتونه فراخوانی کنه و خطا میدهاگر راه حلی هست کمکم کنید مرسی
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
'Dim ImageView1 As ImageView
Dim Panel1 As Panel
Dim ScrollView1 As ScrollView
Dim Button1 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("sv1")
Dim stop As Int
Dim p1 As Panel
stop = 0
Dim a1(8) As String
a1 = Array As String("دیابت نوع 2", "سرطان ریه", "سرطان خون", "سرطان پوست", "سرطان کولورکتال", "فشار خون بالا", "کلسترول خون بالا", "گلوکوم" )
For i = 0 To 7
p1.Initialize("Panel")
ScrollView1.Panel.AddView(p1,0,stop,100%x,100dip)
stop = stop + 100dip
p1.LoadLayout("listview")
p1.Tag = a1(i)
'btnnumber.Text = i + 1
Button1.Text = a1(i)
Button1.TextColor=Colors.ARGB(255,241,52,8)
Next
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
Dim p1 As Panel
p1 = Sender
ToastMessageShow(p1.Tag,False)
If p1.Tag="دیابت نوع 2" Then
StartActivity("male1")
Activity.Finish
End If
If p1.Tag="سرطان ریه" Then
StartActivity("male2")
Activity.Finish
End If
If p1.Tag="سرطان خون" Then
StartActivity("male3")
Activity.Finish
End If
If p1.Tag= "سرطان پوست" Then
StartActivity("male4")
Activity.Finish
End If
If p1.Tag="سرطان کولورکتال" Then
StartActivity("male5")
Activity.Finish
End If
If p1.Tag="فشار خون بالا" Then
StartActivity("male6")
Activity.Finish
End If
If p1.Tag= "کلسترول خون بالا" Then
StartActivity("male7")
Activity.Finish
End If
If p1.Tag="گلوکوم" Then
StartActivity("male8")
Activity.Finish
End If
End Sub
Sub Panel1_Touch (Action As Int, X As Float, Y As Float)
End Sub