من نمیدونم تو این سورس چطوری برای هر آیتم در لیست ویو یک آیکون متفاوت انتخاب کنم.
لطفا راهنمایی کنین.
#Region Activity Attributes #FullScreen: true
#IncludeTitle: false
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim parser As SaxParser
Dim filename As String
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 lv As ListView
Dim fasl As String
Dim name_fasl As String
Dim url As String
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("fehrest")
'lv.Initialize("lv")
'Activity.AddView(lv,0,0,100%x,100%y)
If FirstTime =True Then
parser.Initialize
End If
Dim read As InputStream
read = File.OpenInput (File.DirAssets,"list.xml")
parser.Parse (read,"Parser")
read.Close
End Sub
Sub Parser_EndElement (uri As String , name As String , text As StringBuilder)
If parser.Parents.IndexOf("list")>-1 Then
If name ="Fasl" Then
fasl= text.ToString
Else If name="Name_fasl" Then
name_fasl=text.ToString
Else If name="File_name" Then
url=text.ToString
End If
End If
If name = "list" Then
lv.AddTwoLines2(" "& fasl," "& name_fasl,url)
End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub lv_ItemClick (Position As Int, Value As Object)
filename=Value
StartActivity ("motalee")
'____________________________________ Record value for fevorate ________________
End Sub
سوال
bahadorks 13
سلام دوستان
من نمیدونم تو این سورس چطوری برای هر آیتم در لیست ویو یک آیکون متفاوت انتخاب کنم.
لطفا راهنمایی کنین.
#Region Activity Attributes #FullScreen: true #IncludeTitle: false #End Region Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. Dim parser As SaxParser Dim filename As String 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 lv As ListView Dim fasl As String Dim name_fasl As String Dim url As String 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("fehrest") 'lv.Initialize("lv") 'Activity.AddView(lv,0,0,100%x,100%y) If FirstTime =True Then parser.Initialize End If Dim read As InputStream read = File.OpenInput (File.DirAssets,"list.xml") parser.Parse (read,"Parser") read.Close End Sub Sub Parser_EndElement (uri As String , name As String , text As StringBuilder) If parser.Parents.IndexOf("list")>-1 Then If name ="Fasl" Then fasl= text.ToString Else If name="Name_fasl" Then name_fasl=text.ToString Else If name="File_name" Then url=text.ToString End If End If If name = "list" Then lv.AddTwoLines2(" "& fasl," "& name_fasl,url) End If End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub lv_ItemClick (Position As Int, Value As Object) filename=Value StartActivity ("motalee") '____________________________________ Record value for fevorate ________________ End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
11 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.