Progress bar - show up before next line

Question

Have some code which uploads files to FTP and it takes some time before it ends and reaches next line of code. In the meantime I would like to show a progress bar and freeze window form until it's done. How to achieve that?

WinScp.PutFile(File, destFP, True)           '<---this line taking some time

    'Progress bar here till it reach next line...

    If Not lsbxPicPaths.Items.Contains(destFP) Then    
        lsbxPicPaths.Items.Add(destFP)
    Else
    ...

For further discussion

Before open.Session i added:

AddHandler session.FileTransferProgress, AddressOf SessionFileTransferProgress

and below staff was created:

Function GetFile(source As String, destination As String, Optional removeSource As Boolean = False)
            Dim result As Boolean = True
            Try



                session.GetFiles(source, destination, removeSource).Check()




            Catch ex As Exception
                result = False
                'Logger.LogIt(Alert.Write(MsgType.ERROR), Eng.Write(EngType.COLLEC), Datasource.ToString & " | " & Me.reportName & " | " & ex.ToString, LogPath, isDebug)
            End Try
            Return result
        End Function

        Private Shared Sub SessionFileTransferProgress(sender As Object, e As FileTransferProgressEventArgs)
            'Print transfer progress
            _lastProgress = e.FileProgress

        End Sub

        Public Shared _lastProgress As Integer

    then calling like this:

      Me.Cursor = Cursors.WaitCursor
                                WinScp.GetFile(myremotePicturePath, ladujZdjeciaPath, True)


          form.ProgressBar1.Value = 0
                                ProgressBar1.Show()

                                Do
                                    ProgressBar1.Value = WinScpOperation._lastProgress
                                    ProgressBar1.Refresh()
                                Loop Until ProgressBar1.Value = 1



                                Me.Cursor = Cursors.Default

but then besides i want to show custom form when progress bar on it and which will show during getting file and show progress then dissaper and unlock parent form. I don;t know how to pass value to my dynamic form's progress bar. I tried to start like this to change my current code:

Me.Cursor = Cursors.WaitCursor
                            WinScp.GetFile(myremotePicturePath, ladujZdjeciaPath, True)


                            Dim form As New Form
                            Dim pb As New ProgressBar
                            pb.Minimum = 0
                            pb.Maximum = 1

                            form.ShowDialog()




'pass value to progress bar
                            form.ProgressBar1.Value = 0




                            ' ProgressBar1.Hide()
                            'ProgressBar1.Value = 0

form.Close()



                            Me.Cursor = Cursors.Default

for further discussion nr.2

New form:

Public Class FrmProgressBarWinscp

    Property value As Integer

    Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.


        value = 0
        ProgressBar1.Value = 0
        ProgressBar1.Show()

    End Sub

    Sub Run()


        Do
            ProgressBar1.Value = value
            ProgressBar1.Refresh()
        Loop Until value = 1
        MsgBox("Done")
        'ProgressBar1.Hide()
        'ProgressBar1.Value = 0
    End Sub


End Class

and on oryginal form:

WinScp.GetFile(myremotePicturePath, ladujZdjeciaPath, True)

 Dim pro As New FrmProgressBarWinscp()
                            pro.ShowDialog()

                            Do
                                pro.value = WinScpOperation._lastProgress
                                pro.Run()
                            Loop Until WinScpOperation._lastProgress

                            Me.Cursor = Cursors.Default

Answer 1

I've never used this before, but after a bit of looking around on the WINSCP website, this might work. You might need to look into it more yourself to get it working.

If the file transfer runs in its own thread and doesn't freeze the ui, try this

Add a progress bar control to your form Set The minimum property to 0 Set the maximum property to 1 set the visible property to false at the point you want to display the progress bar, insert code something like

progressbar1.value=0
progressbar1.show
Do
    progressbar1.value=winscp.FileProgressEventArgs.FileProgress
    progressbar1.refresh
until progressbar1.value=1
progressbar1.hide
progressbar.value=0

You might need to choose a different condition for the Do/Loop termination e.g. if WINSCP changed a flag to True when the file is completed and you'll need to terminate the loop if the transfer fails.

Answer 2

Rather than use dim to create the form, I would add the form using visual studio's add new item - which is accessible by right clicking on your Project name(not solution name) on the right hand side. A context menu pops up. Choose "Add" then click "New Item" and choose the appropriate form that is the same type as your project.

Add the progressBar to the form - and you can leave the name as progressBar1 if you want, but if you change is you need to change the references to it in the code below

At the very top of the code for the new form add the same imports line that you used to import the winscp stuff.

Put this block of code (similar to your code in your updated question) into the new form. I've edited the code a bit so that it should work in the dynamic form.

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles Me.Load
    Me.Cursor = Cursors.WaitCursor
    WinScp.GetFile(myremotePicturePath, ladujZdjeciaPath, True)
    progressBar1.Minimum = 0
    progressBar1.Maximum = 1
    progressBar1.Value = 0
    Do
        progressBar1.value=winscp.FileProgressEventArgs.FileProgress
        progressbar1.refresh
    until progressbar1.value=1
    Me.Cursor = Cursors.Default
    form.Close()
End Sub

e.g Form1.myremotePicturePath and Form1.ladujZdjeciaPath.

Also where you originally define the function and those two variables in your original Form, you'll need to change their from Private to Public so that the new form can see them

I think that should do it. If you have any problems let me know, but I wont be home till lateish in the next few days, so I may not reply till late in the evening - a bit like tonight :))