Spanish Progressbar no funciona en un modalform

[lumbanico]

¡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:

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

Y el código del modalform es el siguiente:

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]

Respuesta de Erel al mismo hilo en inglés.

Progressbar in a modalform

Hello! I am developing an application in B4J. From a main form I call another in modalform, which contains a progressbar with value -1, so that it should be constantly "scrolling", but it doesn't move. I call the modalform as follows: Private modalformwait As modProgress...

www.b4x.com

saludos,