Ich brauchte den Code mal... Hab ihn bei mir wie bei Antivir auch für einen Updater verwendet...
Zur beschreibung:
Die Form schiebt sich unten Rechts in der ecke langsam ins bild...
Was wird benötigt?
- 2 Backgroundworker
- 1 Variable namens wait:
(so in etwa...)
Die Codes
Einblenden:
Ausblenden:
Dessweiteren brauchen wir noch:
1teres damit kein fehler kommt, 2.teres um den effekt auch zu starten ;)
MfG
Zur beschreibung:
Die Form schiebt sich unten Rechts in der ecke langsam ins bild...
Was wird benötigt?
- 2 Backgroundworker
- 1 Variable namens wait:
(so in etwa...)
Die Codes
Einblenden:
VB.NET-Quellcode
- Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
- For y = Screen.PrimaryScreen.WorkingArea.Width - Me.Width To Screen.PrimaryScreen.WorkingArea.Height - Me.Height - 5 Step -1
- Me.Location = New Point(Screen.PrimaryScreen.WorkingArea.Width - Me.Width, y)
- Threading.Thread.Sleep(wait)
- Next
- End Sub
Ausblenden:
VB.NET-Quellcode
- Private Sub BackgroundWorker2_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker2.DoWork
- For y = Screen.PrimaryScreen.WorkingArea.Height - Me.Height To Screen.PrimaryScreen.WorkingArea.Width
- Me.Location = New Point(Screen.PrimaryScreen.WorkingArea.Width - Me.Width, y)
- Threading.Thread.Sleep(5)
- Next
- Me.Close()
- End Sub
Dessweiteren brauchen wir noch:
1teres damit kein fehler kommt, 2.teres um den effekt auch zu starten ;)
MfG
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „DJ Re-DarK“ ()