VSTO книга Excel. Как заменить стандартный SplashScreen?

@iana · Регистрация: 20.03.2015

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

Добрый день!
Возникла такая задача: сделать так, чтобы при открытии книги вместо или после стандартного excel SplashScreen появлялся пользовательский SplashScreen. Почему то получается только, чтобы они возникали вместе, причем стандартный экран закрывает пользовательский. Также на пользовательской заставке не отображаются картинки и текст (Textbox) не понятно почему.

VB.NET

Private Sub ThisWorkbook_Startup() Handles Me.Startup
        Dim f1 As New SplashScreen1()
        f1.Show()
        Threading.Thread.Sleep(5000)
        f1.Close()
End Sub

Как заменить заставку Excel?
Заранее спасибо всем откликнувшимся.

@iana · 11.05.2017, 17:10 **[ТС]**

Сама отвечу, вдруг кому пригодится решение)

Чтобы SplashScreen не накладывались, нужно сделать для пользовательской заставки отдельный Thread.

Visual Basic

Private Sub MySplashThreadFunc()
        Dim f1 As New SplashScreen1()
        f1.TopMost = False
        f1.ShowDialog()
    End Sub
 
    Private Sub ThisWorkbook_Startup() Handles Me.Startup
 
        Application.WindowState = Excel.XlWindowState.xlMinimized
        Dim caller As Threading.Thread
        caller = New Threading.Thread(New Threading.ThreadStart(AddressOf MySplashThreadFunc))
        caller.Start()
        Threading.Thread.Sleep(5000)
        caller.Abort()
    End Sub

Отключать заставку Excel лучше не надо, будет глючить (у меня по нормальному не получилось).

	11.05.2017, 17:10

Опции темы