Spanish Progressbar no funciona en un modalform

lumbanico

Member
¡Hola a todos!

Estoy desarrollando una aplicación en B4J.

Desde un formulario principal llamo a otro en modalform, que continene una progressbar con valor -1, para que esté "desplazándose" constantemente, pero no se mueve.

Llamo al modalform de la siguiente manera:

B4X:
    Private modalformwait As modIntro
    modalformwait.Initialize(MainForm)
    modalformwait.Show

Y el código del modalform es el siguiente:

B4X:
Sub Class_Globals
    
    Private fx As JFX
    Private xui As XUI
    Private frmProgreso As Form
    Private ProgressBar1 As ProgressBar
        
End Sub

Public Sub Initialize (Parent As Form)
    
    frmProgreso.Initialize("frmProgreso", 400dip, 200dip)
    frmProgreso.Resizable = False
    frmProgreso.SetFormStyle("UNDECORATED")
    frmProgreso.RootPane.LoadLayout("frmProgreso")
    frmProgreso.Title = "Espere un momento..."
    frmProgreso.SetOwner(Parent)
    
    ProgressBar1.Progress = -1

End Sub

Public Sub Show
    
    frmProgreso.Show
    
End Sub

Public Sub Hide

    frmProgreso.Close
    
End Sub

Sub frmProgreso_CloseRequest (EventData As Event)
    
    EventData.Consume

End Sub

¿Puede alguien echarme un mano?

Gracias.
 

josejad

Expert
Licensed User
Longtime User
Respuesta de Erel al mismo hilo en inglés.


saludos,
 
Cookies are required to use this site. You must accept them to continue using the site. Learn more…