iOS Question Msgbox2 doesn't call the event

[Alessandra Pellegri]

When I click on msgbox2 buttons no event is generated.

Here my code:

Sub InstallazionePacchetto(NomeFile As String) As Int
   Dim anZip As Unzip
   Dim counter As Int
  
   If NomeFile.LastIndexOf(".fly")<NomeFile.Length-5 Then Msgbox(Lingua(10)&" "&NomeFile&" "&Lingua(11) ,Lingua(5))
   Dim dataTrovato As Boolean = False
   Dim SpazioTotale As Int = 0
   If File.Exists(File.DirLibrary&"/ttemp/","")  = True Then ClearPath(File.DirLibrary & "/ttemp",True)
   File.MakeDir(File.DirLibrary, "ttemp")
   sDBLocation = File.DirLibrary & "/ttemp"
   dir = NomeFile.SubString2(0,NomeFile.LastIndexOf("/"))
   nome = NomeFile.SubString(NomeFile.LastIndexOf("/")+1)
   anZip.Initialize(dir,nome)
   counter = anZip.count
   If counter=0 Then Msgbox(Lingua(10)&" "&NomeFile&" "&Lingua(11) ,Lingua(5))
   Dim dataTrovato As Boolean = False
   SpazioTotale = anZip.uncommpressedTotalSpace
   For a = 0 To counter - 1
     If anZip.CompleteFileName(a) = "Export/publications/IETP.db" Then dataTrovato=True
   Next
   If dataTrovato=False Then Msgbox(Lingua(10)&" "&NomeFile&" "&Lingua(11) ,Lingua(6))
   If dataTrovato=True Then
     Dim SpazioSi As Boolean = False
     Msgbox2( "continuaInstallazione1",Lingua(14)&" "&SpazioTotale&Lingua(15),Lingua(17),Array(Lingua(41)))
   End If
End Sub

Sub continuaInstallazione1_Clik(ButtonText As String)
Log ( "11111111111" )
       Dim myzip As Archiver
     If File.Exists(File.DirLibrary&"/ttemp/","") = True Then ClearPath(File.DirLibrary & "/ttemp",True)
     File.MakeDir(File.DirLibrary, "ttemp")
     sDBLocation = File.DirLibrary & "/ttemp"
     myzip.Unzip(dir,nome,sDBLocation,"")

     Dim SQL2 As SQL
     SQL2.Initialize(sDBLocation&"/Export/publications", "IETP.db", False)
     Dim Cursor1 As ResultSet
    Cursor1 = SQL2.ExecQuery("SELECT ExternalId, Issue, IssueDate, Number FROM PackageInfo")          
      Cursor1.NextRow
       Titolo=Cursor1.GetString("ExternalId")
       Issue=Cursor1.GetString("Issue")
       IssueDate=Cursor1.GetString("IssueDate")
       Number=Cursor1.GetString("Number")
     Cursor1.Close
     Msgbox2( "continuaInstallazione2", Lingua(30)&" "&Titolo&Chr(13)&Chr(10)&"Issue="&Issue&Chr(13)&Chr(10)&"IssueDate="&IssueDate&Chr(13)&Chr(10)&"Number="&Number&Chr(13)&Chr(10)&Lingua(31),"INFO",Array(Lingua(28),Lingua(29)) )
End Sub


Sub continuaInstallazione2_Clik(ButtonText As String)
     Log(" 22222222222 ")
     If (ButtonText=Lingua(28)) Then
         Dim NomeCartella  As String = "a"&Rnd(1, 10000000)
         RenameFolder(File.DirLibrary,"ttemp",NomeCartella)
         sDBLocation=File.DirLibrary&"/"&NomeCartella
         SQL1.ExecNonQuery("INSERT INTO Installati (ID, Titolo, Issue,IssueDate,Number, Cartella, Memoria) VALUES (?,"&Chr(34)&Titolo&Chr(34)&","&Chr(34)&Issue&Chr(34)&","&Chr(34)&IssueDate&Chr(34)&","&Chr(34)&Number&Chr(34)&","&Chr(34)&sDBLocation&Chr(34)&","&SpazioTotale&")")
         Msgbox(Lingua(20),Lingua(21))
     Else
        ClearPath(sDBLocation,True)
        Return 2
     End If
End Sub

Could you see where is the mistake ?

Thank you

 

[Erel]

I highly recommend you to use the new smart strings literal. It will make your code much simpler.

The event name should end with _click instead of clik.

 

[Alessandra Pellegri]

Thank you I was going mad