Hello,
when I click any item of a ListView, the emulator and the device crashes. The message is "Unafortunately, MyApp has stopped"
Can anyone help me?
Thanks.
Part of my code:
Sub Globals
Dim listado As List
Dim listarchivos As ListView
End Sub
--------------------------------------------------------------------------------------
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("archivos")
listado.Initialize
End Sub
------------------------------------------------------------------------------------------------
Sub inicio
Select Case Msgbox2("Què vols fer?","","Partit nou","Abandonar l'aplicació","Carregar partit anterior",Null)
Case DialogResponse.POSITIVE
nuevo=True
StartActivity("principal")
Case DialogResponse.CANCEL
ExitApplication
Case DialogResponse.NEGATIVE
nuevo=False
listado.Addall(File.ListFiles(File.DirInternal))
listado.Sort(True)
For n = 0 To listado.Size-1
listarchivos.AddSingleLine(listado.Get(n))
Next
listarchivos.Visible=True
listarchivos.Initialize("listarchivos")
b_archivos_cancelar.visible=True
End Select
Return
End Sub
when I click any item of a ListView, the emulator and the device crashes. The message is "Unafortunately, MyApp has stopped"
Can anyone help me?
Thanks.
Part of my code:
Sub Globals
Dim listado As List
Dim listarchivos As ListView
End Sub
--------------------------------------------------------------------------------------
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("archivos")
listado.Initialize
End Sub
------------------------------------------------------------------------------------------------
Sub inicio
Select Case Msgbox2("Què vols fer?","","Partit nou","Abandonar l'aplicació","Carregar partit anterior",Null)
Case DialogResponse.POSITIVE
nuevo=True
StartActivity("principal")
Case DialogResponse.CANCEL
ExitApplication
Case DialogResponse.NEGATIVE
nuevo=False
listado.Addall(File.ListFiles(File.DirInternal))
listado.Sort(True)
For n = 0 To listado.Size-1
listarchivos.AddSingleLine(listado.Get(n))
Next
listarchivos.Visible=True
listarchivos.Initialize("listarchivos")
b_archivos_cancelar.visible=True
End Select
Return
End Sub