vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Nach Splash animation öffnen 
Autor: Ina.Maus87
Datum: 07.09.06 11:07

So noch eine Frage entschuldigt bitte.... da wir das mit dem öffnen einer Form geklärt haben wenn ich auf nen Button klick dann würd ich jetzt gern wissen wie sich die form automatisch öffnen lässt nach einer Animation .... Also das es nach der animation (sei es durch klick oder aut. verschwinden) automatisch frmNavigation aufmacht..... ich habs mit eurem show probiert nur macht er die form dann ungefähr ne million mal auf )

Hier mein code::::

Public Sub New(ByVal intM As Integer)
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
intModus = intM
If intModus = 1 Then
Me.FormBorderStyle = FormBorderStyle.FixedDialog
Me.MinimizeBox = False
Me.MaximizeBox = False
tmrSplash.Enabled = False
End If
End Sub



Private Sub frmWillkommen_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
'Start des Timers zum Verblassen des Splash-Screens bei Druck einer beliebigen Taste
'wird aufgerufen von: ---
'ruft auf: tmrVerblassen.Start()
If eventArgs.KeyChar = ChrW(Keys.Escape) Then
'Close()
Me.DialogResult = DialogResult.OK
ElseIf intModus = 0 Then
tmrVerblassen.Start()
Else
Close()
End If
End Sub

Private Sub Any_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click
'Start des Timers zum Verblassen des Splash-Screens bei Click auf den Splash Screen (oder
'ein beliebiges Steuerelement auf ihm)
'wird aufgerufen von: ---
'ruft auf: tmrVerblassen.Start()
tmrVerblassen.Start()
End Sub

Private Sub tmrSplash_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmrSplash.Tick
'automatischer Start des Timers zum Verblassen des Splash-Screens nach 3.000 ms
'wird aufgerufen von: ---
'ruft auf: tmrVerblassen.Start()

tmrVerblassen.Start()
End Sub

Private Sub tmrVerblassen_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmrVerblassen.Tick
'Verblassen des Splash-Screens und Aufruf der MDI-Form
'wird aufgerufen von: frmWillkommen_KeyPress(), Any_Click(), tmrSplash_Tick()
'ruft auf: ---

If intModus = 1 Then
Me.Opacity = 0
Else
Me.Opacity = Me.Opacity - 0.05
End If
'Erhöhen der Transparenz des Splash-Screens
'Wenn durchsichtig: Stop beider Timer und Anzeige der MDI-Form
If Me.Opacity <= 0 Then
Me.Close()
End If

End Sub

Private Sub frmLogo_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
Beep()
End Sub

Private Sub frmWillkommen_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

tmrSplash.Stop()
tmrVerblassen.Stop()

End Sub
End Class
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Nach Splash animation öffnen1.421Ina.Maus8707.09.06 11:07
Re: Nach Splash animation öffnen799lighty07.09.06 11:24
Re: Nach Splash animation öffnen802Ina.Maus8707.09.06 11:29
Re: Nach Splash animation öffnen777lighty07.09.06 11:38
Re: Nach Splash animation öffnen815Ina.Maus8707.09.06 11:47
Re: Nach Splash animation öffnen768lighty07.09.06 12:14
Re: Nach Splash animation öffnen782Ina.Maus8707.09.06 12:33
Re: Nach Splash animation öffnen793lighty07.09.06 12:41
Re: Nach Splash animation öffnen840Ina.Maus8707.09.06 12:53
Re: Nach Splash animation öffnen818lighty07.09.06 12:57
Re: Nach Splash animation öffnen783Ina.Maus8707.09.06 13:22
Re: Nach Splash animation öffnen766lighty07.09.06 13:35
Re: Nach Splash animation öffnen779Ina.Maus8707.09.06 13:42
Re: Nach Splash animation öffnen785lighty07.09.06 13:47
Re: Nach Splash animation öffnen929Ina.Maus8707.09.06 13:48
Re: Nach Splash animation öffnen768lighty07.09.06 14:04
Re: Nach Splash animation öffnen819Ina.Maus8707.09.06 14:23
Re: Nach Splash animation öffnen745Ina.Maus8707.09.06 14:56
Re: Nach Splash animation öffnen789lighty07.09.06 15:33
Re: Nach Splash animation öffnen951Heiko07.09.06 11:24
Re: Nach Splash animation öffnen791Ina.Maus8707.09.06 13:25
Re: Nach Splash animation öffnen786lighty07.09.06 13:27
Re: Nach Splash animation öffnen778Ina.Maus8707.09.06 13:31
Re: Nach Splash animation öffnen914lighty07.09.06 13:45

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel