001
16.08.2006, 12:53 Uhr
Uwe
C/C++ Master
(Administrator)
|
Hallo,
z.B.
| Visual Basic: |
Option Strict On
Public Class frmSplash
Inherits System.Windows.Forms.Form
Private WithEvents MyTimer As New Timer
Public DelayTime As Integer = 0
Private Sub OnMyTimer(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyTimer.Tick
Close()
End Sub
Private Sub frmSplash_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If DelayTime > 0 Then
MyTimer.Interval = DelayTime * 1000
MyTimer.Start()
End If
End Sub
End Class
|
Dann das ganze an passender Stelle aufrufen, im Folgenden einfach in der OnLoad()
| Visual Basic: |
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ShowProgramInfo(4)
End Sub
Private Sub ShowProgramInfo(ByVal DelayTime As Integer)
Dim dlg As New frmSplash
Dim StartDT As DateTime = Now
If DelayTime = 0 Then
dlg.ShowDialog()
Else
dlg.DelayTime = DelayTime
dlg.TopMost = True
dlg.btnCancel.Visible = False
dlg.Show()
' Jetzt geben wir dem SplashScreen 1 Sekunde, um sich selbst komplett zeichnen zu können ...
Do
Application.DoEvents()
Loop Until (Now.Subtract(StartDT).TotalSeconds >= 1)
' Und dann fahren wir mit dem Start der Applikation fort und wünschen dem Splash alles Gute ...
End If
End Sub
|
--
"Es ist schwierig, ein Programm wirklich idiotensicher zu machen, weil Idioten so genial sind."
Bis dann...
Uwe
Dieser Post wurde am 16.08.2006 um 12:54 Uhr von Uwe editiert. |
