|
B4A en español - Juan Antonio Villalpando
(BASIC4Android)
-- Tutorial de B4A --
Volver al índice del tutorial
____________________________
54.- Sitio web local. Localización de directorios y archivos.
- Vamos a construir un sitio web local en la carpeta Files del programa que vamos a realizar.
- El sitio web tendrá una página de inicio llamada index.htm.
- En esta página habrá una pequeña portada y enlaces a otras páginas, concretamente: Android, Ubuntu y Visual Basic.
- Una vez que hemos entrado en las páginas Android, Ubuntu o Visual Basic, podemos volver a la página de inicio pulsando el botón "Menú" de nuestro teléfono móvil o tableta.
Baja el programa... sitio_local.zip
- Una vez bajado y descomprimido, consulta la carpeta Files y los archivos web que se encuentran en ella.
- Concretamente se encuentran los archivos: index.htm, android.htm, ubuntu.htm y visual_basic.htm, además de archivos gráficos. |
 |
- En la tabla inferior está el código del programa.
- Cuando arranca, carga el archivo que se encuentra en la carpeta Files: "file:///android_asset/index.htm"
- Esta línea configura el botón "Menú" del teléfono: Activity.AddMenuItem("Pulsa para ir a Inicio","inicio")
- En vez de haber puesto el sitio local en la carpeta Files, lo podríamos haber puesto en una carpeta de la tarjeta SD Card.
Sitio web local |
' Juan Antonio Villalpando
' juana1991@yahoo.com
Sub Process_Globals
End Sub
Sub Globals
Dim WebView1 As WebView
End Sub
Sub Activity_Create(FirstTime As Boolean)
WebView1.Initialize("WebView1")
Activity.AddView(WebView1, 0, 0, 100%x, 100%y)
WebView1.LoadUrl("file:///android_asset/index.htm")
Activity.AddMenuItem("Pulsa para ir a Inicio","inicio")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub inicio_Click
WebView1.LoadUrl("file:///android_asset/index.htm")
End Sub
|
______________________________
- Salir de una aplicación.
If Msgbox("¿Salir del programa? ", "Salir", "Sí", "", "No", Null) = DialogResponse.NEGATIVE Then
Return True
End If
ExitApplication
________________________________
|
