iOS Question Screenprint 3 panels

[Graeme Mitchell]

I am trying to screenprint 5 different panels but when i cycle through the panels it seems random on when it takes the pic and saves it. One time i might get 2 screenshots of Panel1, then no Panel2 then 3 of Panel4 and no Panel3 or Panel5

 

[Alexander Stolte]

Where is your code?

 

[Graeme Mitchell]

        CurrentTopic = btn1.Text
        CurrentButton = 1
        Panel1.Visible = True
        Panel1.BringToFront
        Panel2.Visible = False
        Panel3.Visible = False
        Panel4.Visible = False
        Panel5.Visible = False
        pg.Title = CurrentTopic
        Sleep(100)
        Dim My_bmp As Bitmap = no.RunMethod("TakeScreenshot", Null)
        logfile("Screenshot")
        ScreenShotFile =  "Topic1_" & half_full & ".png"
        out = File.OpenOutput(File.DirDocuments & AppName,ScreenShotFile, False)
        My_bmp.WriteToStream(out, 100, "png")
        
        CurrentTopic = btn2.Text
        CurrentButton = 2
        Panel2.Visible = True
        Panel2.BringToFront
        Panel1.Visible = False
        Panel3.Visible = False
        Panel4.Visible = False
        Panel5.Visible = False
        pg.Title = CurrentTopic
        Sleep(100)
        Dim My_bmp2 As Bitmap = no.RunMethod("TakeScreenshot", Null)
        logfile("Screenshot")
        ScreenShotFile =  "Topic2_" & half_full & ".png"
        out = File.OpenOutput(File.DirDocuments & AppName,ScreenShotFile, False)
        My_bmp2.WriteToStream(out, 100, "png")
        
        CurrentTopic = btn3.Text
        CurrentButton = 3
        Panel3.Visible = True
        Panel3.BringToFront
        Panel1.Visible = False
        Panel2.Visible = False
        Panel4.Visible = False
        Panel5.Visible = False
        pg.Title = CurrentTopic
        Sleep(100)
        Dim My_bmp3 As Bitmap = no.RunMethod("TakeScreenshot", Null)
        logfile("Screenshot")
        ScreenShotFile =  "Topic3_" & half_full & ".png"
        out = File.OpenOutput(File.DirDocuments & AppName,ScreenShotFile, False)
        My_bmp3.WriteToStream(out, 100, "png")

 

[Graeme Mitchell]

would increasing the Sleep from 100 to 500 work?

 

[Erel]

Not sure that it will solve your issue, however you should use B4XView.Snapshot.

If your panels are mistakenly declared as Panel then:

Panel1.As(B4XView).Snapshot

 

[Graeme Mitchell]

thanks