Sotto Class_Globals
Radice privata come B4XView
Privato xui As XUI
RP privato come RuntimePermissions
Pulsante privato1 come pulsante
Pulsante privato2 come pulsante
End Sub
Inizializzazione secondario pubblica
End Sub
'Questo evento verrà chiamato una volta, prima che la pagina diventi visibile.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
Attendi (Check_Permissions) Completo (risultato come booleano)
Se risultato allora
'Il programma continua
altro
'Il programma si chiude o avverte l'utente
Termina se
If File.Exists(File.DirRootExternal,("Block")) Then
Xui. MsgboxAsync("cartella esise","B4X")
altro
File.MakeDir(File.DirRootExternal,("Blocco"))
Xui. MsgboxAsync("creata cartella","b4x")
Termina se
End Sub
Private Sub Button1_Click
Xui. MsgboxAsync("Hello world!", "B4X")
End Sub
Sotto Check_Permissions come ResumableSub
Per ogni autorizzazione Come stringa in matrice(rp. PERMISSION_WRITE_EXTERNAL_STORAGE) La commissione per l'PERMISSION_WRITE_EXTERNAL_STORAGE
Rp. CheckAndRequest(autorizzazione)
Attendi Activity_PermissionResult (autorizzazione Come stringa, Risultato come booleano)
If Result = False Then Return False
prossimo
Ritorno vero
End Sub
Sito Button2_Click
Dim tw As TextWriter
Dim FileName As String = "Block/Prova.txt"
'tw. Initialize2(File.OpenOutput(File.DirRootExternal,FileName,False),"UTF8")
Tw. Initialize2(File.OpenOutput(File.DirRootExternal,FileName,False),"UTF8")
Tw. Scrivi("ciao")
Tw.