Tolots,
Stefan`s code funktioniert bei mir problemlos.
Mach es einfach so:
Platziere auf Deinem Beenden Screen eine Timer komponente. Im Form load Event startest Du dann den Timer und überprüfst so wie Stefan gezeigt hat wie oft ( bei z.B. Timer.Intervall=1000 = 1 sec. ) der Event ausgelöst wurde. Wenn dieser Wert erreicht ist,
stoppe den Timer und rufe ME.close auf.
Start des Beenden Screen:
'Visual Basic 2008 - .net 3.5 - Any CPU
Private _BeendenScreen As BeendenScreen
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
_BeendenScreen = New BeendenScreen(5)
_BeendenScreen.Show()
Me.Close()
End Sub
BeendenScreen:
'Visual Basic 2008 - .net 3.5 - Any CPU
Public Class BeendenScreen
Private WithEvents _Timer As Windows.Forms.Timer
Private _AnzeigeDauer As Integer
Public Sub New(ByVal AnzeigeDauer As Integer)
InitializeComponent()
_AnzeigeDauer = AnzeigeDauer
_Timer = New Windows.Forms.Timer
_Timer.Interval = 1000
End Sub
Private Sub BeendenScreen_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
_Timer.Start()
End Sub
Private Sub _Timer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles _Timer.Tick
_Timer.Enabled = False
_AnzeigeDauer = _AnzeigeDauer - 1
If _AnzeigeDauer = 0 Then
Me.Close()
Else
_Timer.Enabled = True
End If
End Sub
End Class
Ja, da steht VB 2008, das macht aber nichts, funktioniert genauso unter VB 2010.
Hannes
If you have got questions about this, just ask.
In a perfect world,
users would never enter data in the wrong form,
files they choose to open would always exist
and code would never have bugs.
C# to VB.NET:
http://www.developerfusion.com/tools/convert/csharp-to-vb/
