Hallo Leute,
Beim laden der Form1, prüfe ich ob ein bestimmter Ordner existiert,
falls nicht, erstelle ich ihn.
Wurde der Ordner erstellt, wird ein Bool True und dadurch wird dann ein Sub aufgerufen.
Der Sub erstellt eine Form und fügt 2 Labels hinzu mit Text.
Die Form faded dann nach kurzer Zeit weg.
Sie dient dazu, den Nutzer zu informieren, dass ein Ordner erstellt wurde und was dort reinkommt.
Problem ist:
Form1 lädt nicht komplett, Labels sind nicht sichtbar zum Zeitpunkt der Erstellung der neuen Form...
Das ganze sieht dadurch recht unschön aus.
Hier mein bisheriger Code:
Ich rufe die Subs ja erst auf, nachdem die Form1 angezeigt wurde... also nachdem alles darauf geladen wurde.
Die Form1 wird trotzdem erst nach durchlauf des obigen Codes komplett dargestellt.
Woran liegt das?
Beim laden der Form1, prüfe ich ob ein bestimmter Ordner existiert,
falls nicht, erstelle ich ihn.
Wurde der Ordner erstellt, wird ein Bool True und dadurch wird dann ein Sub aufgerufen.
Der Sub erstellt eine Form und fügt 2 Labels hinzu mit Text.
Die Form faded dann nach kurzer Zeit weg.
Sie dient dazu, den Nutzer zu informieren, dass ein Ordner erstellt wurde und was dort reinkommt.
Problem ist:
Form1 lädt nicht komplett, Labels sind nicht sichtbar zum Zeitpunkt der Erstellung der neuen Form...
Das ganze sieht dadurch recht unschön aus.
Hier mein bisheriger Code:
VB.NET-Quellcode
- '//Fading Effekt für Info Form
- Private Sub fading_Form(ByVal formToFade As Form)
- For i As Integer = 90 To 10 Step -1
- formToFade.Opacity = i / 100
- formToFade.Refresh()
- Threading.Thread.Sleep(50)
- Next
- formToFade.Close()
- End Sub
- '//Erzeugt Form mit Controls
- '//Zeigt dem Nutzer an, dass ein Ordner erstellt wurde
- Private Sub create_Form_to_Inform_User(ByVal user As String)
- Dim tempForm As Form = New Form
- Dim infoLbl As Label = New Label
- Dim infoLbl_2 As Label = New Label
- tempForm.Top = 0
- tempForm.Left = 0
- tempForm.StartPosition = FormStartPosition.CenterScreen
- tempForm.Width = 600
- tempForm.Height = 200
- tempForm.Opacity = 0.99
- infoLbl.Top = 25
- infoLbl.Left = 25
- infoLbl.AutoSize = True
- infoLbl.Text = "Der Ordner 'Angebote_" & user & "' wurde in '\Dokumente' angelegt."
- infoLbl_2.Top = 50
- infoLbl_2.Left = 25
- infoLbl_2.AutoSize = True
- infoLbl_2.Text = "In diesem Ordner werden alle Ihre erstellten Angebote automatisch gespeichert!"
- tempForm.Controls.Add(infoLbl)
- tempForm.Controls.Add(infoLbl_2)
- tempForm.Show()
- fading_Form(tempForm)
- End Sub
- Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
- 'Threading.Thread.Sleep(500)
- Dim user() As String = Environ("Userprofile").Split(".")
- If boolFolderCreated Then create_Form_to_Inform_User(UCase(Microsoft.VisualBasic.Left(user(1), 1)) & Microsoft.VisualBasic.Right(user(1), Len(user(1)) - 1))
- End Sub
Ich rufe die Subs ja erst auf, nachdem die Form1 angezeigt wurde... also nachdem alles darauf geladen wurde.
Die Form1 wird trotzdem erst nach durchlauf des obigen Codes komplett dargestellt.
Woran liegt das?