Parsi Coders

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