Spanish Pequeña App sin layout

Discussion in 'Spanish Forum' started by compilador, Jul 12, 2015.

  1. compilador

    compilador New Member Licensed User

    Hola a todos

    Necesitaba una pequeña App que simplemente me diga la IP del dispositivo, ya que no tiene wifi pero si conexión Ethernet.

    Seguí el ejemplo de este post: http://www.b4x.com/android/forum/threads/get-local-lan-ip-address.10570/

    Ya está funcionando, al ejecutarla presenta un mensaje con la IP y se cierra, pero primero pone la pantalla en negro durante una pequeña fracción de segundo. Sólo quiero que se vea el mensaje pero no logro evitar la pantalla negra.

    He probado por código poniendo el Activity.color a tranaparente, con el diseñador, configurando el fondo con Alpha a 0, con Alpha a 255 y color transparente, poniendo un panel con las dos opciones anteriores, pero no logro lo que quiero.

    Alguien sabe como evitar esa pantalla negra?

    Gracias
     
  2. bgsoft

    bgsoft Well-Known Member Licensed User

    Hola

    Si escribes el ejemplo concreto será mas facil responderte

    Saludos
     
  3. compilador

    compilador New Member Licensed User

    Code:
    Sub Process_Globals
        
    'These global variables will be declared once when the application starts.
        'These variables can be accessed from all modules.
        Dim MyLan As ServerSocket  ' Lib Network
    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.

    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("main")
    '    Activity.Color = Colors.Transparent
        If FirstTime Then
            MyLan.Initialize(
    0"")
        
    End If
        
    Log(MyLan.GetMyIP) ' my ip local or not
        '
        If MyLan.GetMyIP = "127.0.0.1" Then  '
            ToastMessageShow("You are not connected"True)
            
    'ExitApplication
            'Return
        Else
            
    ToastMessageShow("IP LOCAL: " & MyLan.GetMyIP, True)
            
    DoEvents
        
    End If
        
    Activity.Finish
    End Sub
     
Loading...