Задержки в прорисовке формы

@Allleksey · Регистрация: 24.02.2016

Author24 — интернет-сервис помощи студентам

Коллеги, доброго времени суток!

Нужна помощь.
В программе есть стартовая форма. После показа формы в процедуре

VB.NET

1
2
3

Private Sub Form_Main_Shown(sender As Object, e As EventArgs) Handles Me.Shown
 
End Sub

есть значительное количество кода. Там и чтение из XML файла, заполнение Combobox из базы данных... вообщем этот код выполняется около 6 секунд (долго происходит это из за того, что на форме много Combobox, которые заполняются последовательно из базы, ибо содержание последующих зависит от того, что выбрано в предыдущих. Эдакое динамическое заполнение комбобоксов, и заполнение это происходит из базы данных). И в это время параллельно пытается прорисоваться форма. И из за занятости системы она прорисовывается очень медленно.
Соответственно у меня вопрос, который делится на 2 части
1.1 можно ли сначала прорисовать форму, а уже после этого выполнять код (хотя по последовательности кода так и должно быть, но происходит все не последовательно?
1.2 можно ли сделать заставку программы, Некое дополнительное окно с картинкой, которое бы на время загрузки и обработки стартового кода "закрывало" все, что происходит с формой?

Заранее признателен за участие.
С уважением, Алексей.

@Yury Komar · 06.04.2019, 04:04

Allleksey, а код можно посмотреть, может его можно как-то оптимизировать?

@Kulma · 06.04.2019, 08:34

Вот что говорит документация по последовательности событий при загрузке формы .
Можете попробовать поиграться .

Сообщение от Allleksey

можно ли сначала прорисовать форму, а уже после этого выполнять код

Можно

VB.NET

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  Me.Show
  .......  ' Здесь ваш код загрузок combobox и т.д.
 
End Sub

Но вообще , как правильно написал Yury Komar, хорошо бы на код взглянуть.

@Allleksey · 06.04.2019, 08:49 **[ТС]**

Коллеги, пока вышел из ситуации следующим образом. Форма с заставкой. Надо же показывать что то на экране, пока грузится программа.

VB.NET

1
2
3

    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        Form_Main.Show()
    End Sub

И непосредственно основная форма

VB.NET

    Private Sub Form_Main_Activated(sender As Object, e As EventArgs) Handles Me.Activated
        If blnFormMainLoad = False Then
            Me.Visible = False
        End If
    End Sub
 
    Private Sub Form_Main_Shown(sender As Object, e As EventArgs) Handles Me.Shown
 
    ' Код, работающий после запуска программы
 
        Me.Visible = True
        Me.Focus()
    End Sub

Таким образом и заставку показываю, и пользователь не видит "прорисовку" основной формы.

Сообщение от Yury Komar

а код можно посмотреть, может его можно как-то оптимизировать?

Думаю не то, что можно оптимизировать. Его нужно оптимизировать. Но сейчас выбрал путь "сначала работоспособность, потом оптимизация и ускорение".
Показать код не проблема. Но он достаточно большой.

С уважением, Алексей.

@Kulma · 06.04.2019, 08:53

А, ну собственно , сразу не обратил внимание , вы одновременно рисуете и грузите данные ...зачем ?

VB.NET

1 2	Private Sub Form_Main_Shown(sender As Object, e As EventArgs) Handles Me.Shown End Sub

Сначала загружайте , потом рисуйте.
В этом событии ваш код должен загружать данные ,оно происходит до первоначального отображения формы.
Более подробно о событиях по ссылке , приведённой ранее.

VB.NET

1
2
3

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
End Sub

@Yury Komar Модератор 4303 / 3378 / 506 Регистрация: 27.01.2014 Сообщений: 6,180
	06.04.2019, 04:04	2
	Allleksey, а код можно посмотреть, может его можно как-то оптимизировать? 0

	06.04.2019, 08:53