Отобразить процесс

[1Steps]

Код: Выделить всё

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.FoldersTableAdapter.Fill(Me.DataSet.Folders)
    End Sub

При загрузке формы, она не отображается пока не будет заполнен весь датасет.
Вопрос:
Как отобразить форму раньше, чем заполнится датасет, а так же отобразить процесс заполнения датасета в прогрессбаре?

[Shurrik]

Убери заполнение из загрузки и поставь его в таймер.
Если заполнение идет достаточно долго, то и процесс можно показать при помощи таймера.
А по другому вряд ли возможно, ведь количестово записей станет известно только после всего заполнения.

[Joo]

Извращенский способ: Заполонить ручками, тогда и прогресс бар можно прикрутить. Хотя можно прогресс бар поставить который бегает по кругу.

[1Steps]

Форму я отобразил.

Код: Выделить всё

Private GetData As New Action(AddressOf LoadDataBase)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim t As New Thread(AddressOf InvokeControls)
        t.Start()
    End Sub

    Private Sub InvokeControls()
        Thread.Sleep(50)
        Me.Invoke(GetData, Nothing)
    End Sub

    Private Sub LoadDataBase()
        Me.FoldersTableAdapter.Fill(Me.DataSet.Folders)
        m_FolderID = CType(Me.cmbFolders.SelectedValue, Integer)
        Me.FillExample()
        ...
    End Sub

Как отобразить процесс заполнения?

[Ramzes]

Shurrik, не знаешь, молчи
1Steps, Me.DataSet.Folders.Rows.Count
а в датагриде на событие RowsAdd считаешь сколько строк у тебя уже есть

[1Steps]

Спасибо.
Только у меня комбобох, листбокс и текстбоксы.

Пошел разбираться...