Splashscreen

Wie muss der Code für einene Splashscreen aussehen???

Hallo...

Nächster VB-Versuch...

Ich versuche, einen Splashscreen zu machen.

Ich habe:

1. Eine Form mit dem Namen "splashscreen"
2. Eine GroupBox mit Namen "cright"
3. Ein textlabel mit dem Namen "wait"
4. Ein Textlabel mit dem Namen "message"
5. Einen Timer mit dem Namen "loader"
6. Eine Form mit dme Namen "mainscreen"

Wie kann ich das so machen, dass wenn die form Splashscreen gestartet wird, der Timer anläuft, und bei Ablauf des Timers die Form mainscreen aufgerufen wird, und die splashscreen beendet wird???

Bitte hilfe

Danke

greez

Edit:

Der Code bis jetz:

 
Public Class splashscreen

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles message.Click

    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles wait.Click

    End Sub

    Private Sub splashscreen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     
    End Sub
    
    Private Sub Cright_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cright.Enter

    End Sub

    Private Sub loader_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles loader.Tick

    End Sub
End Class

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Kommentar vom Moderator Biber am 31.03.2010 um 12:44:19 Uhr

Hmmm, das vordergründige Problem scheint gelöst zu sein... ich setz es mal auf "erledigt".

Mittelfristig sollte der TO aber noch mal über das eine oder andere in Ruhe nachsinnen...
Ja, ich weiss.... danach hat er nicht gefragt..... *schon still bin*

Content-ID: 139559

Url: https://administrator.de/forum/splashscreen-139559.html

Ausgedruckt am: 05.04.2025 um 12:04 Uhr

15 Kommentare

Neuester Kommentar

Hallo,

schon mal Google bemüht.
Erstes Ergebnis bei Suche nach vb.net Splashscreen!

Danke

Das heisst ich mache jetzt

Private Sub Timer1_Timer()
End Sub

 
Public Class splashscreen

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles message.Click

    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles wait.Click

    End Sub

    Private Sub splashscreen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     
    End Sub
    
    Private Sub Cright_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cright.Enter

    End Sub

    Private Sub loader_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles loader.Tick
  loader.Enabled = False
  Load mainscreen
  mainscreen.Show 
  Unload Me
  Unload splashscreen

    End Sub
End Class

Richtig?

Nein

Du brauchst ein Modul mit einer Public Sub Main.
Diese Sub Main muss das Startobjekt des Projekts sein (Eigenschaften)
In dieser Sub Main wird deine Splashscreen Form geladen. Und dort wird dann über den Timer deine Hauptform geladen.
Steht eigentlich genauso in dem von mir angeführten Beispiel

Danke.

Kannst du mir den Kompletten Code mal Posten???

Der komplette Code den du brauchst um deinen Splashscreen zum Laufen zu bringen steht bereits im Beispiel. Mehr kann ich da auch nicht posten

Ja, aber was genau muss dann im Modul1 stehen???

Module Module1

Public mainscreen As New mainscreen()
 
  Public Sub Main()
 
    ' Startform anzeigen  
    Dim splashscreenh As New splashscreen()
 
    splashscreen.ShowDialog()
 
    ' MainForm anzeigen  
    Application.Run(New mainscreen)
 
  End Sub

End Module

Richtig so?

Sieht nicht schlecht aus! Aber wieso testest du es nicht einfach? Dann siehst du sofort obs geht...

Moin,

sorry, aber ich muss micht jetzt mal einmischen.

Kannst du mir den Kompletten Code mal Posten???

Es wird dir hier keiner deinen Code vorkauen und posten - das dürfte Dir aus deinem letzten Thread schon klargewroden sein.

Bilde dich doch mal selber weiter, z.b. hier: http://openbook.galileocomputing.de/visualbasic_2008/

/EDIT: Optional gibts auch Freelancer die Dir Anwendungen nach deinen Wünschen programmieren - gegen Geld versteht sich .)

lg,
Slainte

Und wo kann ich Modul1 als Startform festlegen?

Ja, das war mir schon klar.
Aber ich muss dieses Tool bis Mittag fertighaben...

Zitat von @cewiethemaster:

Ja, das war mir schon klar.
Aber ich muss dieses Tool bis Mittag fertighaben...

Dann solltest du dir das von mir verlinkte Beispiel nochmal ansehen. Da sind alle Fragen geklärt. Auch wo du Modul1 als Startform festlegen kannst. -> Punkt 4.

Zitat von @cewiethemaster:

Ja, das war mir schon klar.
Aber ich muss dieses Tool bis Mittag fertighaben...

sonst reisst dir dein Chef den Kopf ab... jaja, ich weis

Irgendwas läuft doch da falsch, wenn Du nur mit hilfe diese Forums deinen Job machen kannst.

Module Module1

    Public mainscreen As New mainscreen()

    Public Sub Main()

        ' Startform anzeigen  
        Dim splashscreenh As New splashscreen()

        splashscreen.ShowDialog()

        ' MainForm anzeigen  
        Application.Run(New mainscreen)

    End Sub

End Module