Parsi Coders

نسخه‌ی کامل: مشکل با آرایه ای از button
شما در حال مشاهده نسخه آرشیو هستید. برای مشاهده نسخه کامل کلیک کنید.
سلام دوستان روزتون بخیرمن تازه برنامه نویسی اندروید فور بیسیک رو شروع کردمیک مشکلی داشتم گفتم شاید شما محبت کنید راهنماییم کنیدمن میخوام یک لیست ویو بسازم که توی هر ایتمش عکس بکگراند تذهیبی بگذارم تا کمی خوشگل بشهاومدم از اسکرول ویو استفاده کردم و داخل اسکرول ویو ارایه ای از باتن را فراخوانی کردمولی هر چی روی دکمه ها کلیک میکنم کار نمیکننالان کد ها رو خدمتتون کپی میکنم اگر محبت کنید راهنماییم کنید ممنونممیخوام روی هر دکمه کلیک میکنم لایوت مربوط به اون دکمه باز بشه که نمیشهدر واقع توی باتن کلیک نمیتونه فراخوانی کنه و خطا میدهاگر راه حلی هست کمکم کنید مرسی 
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
دوست عزیز پروژتونو کامل بفرستید براتون ردیفش کینم