cewiethemaster
Mar 31, 2010, updated at 10:44:19 (UTC)
view3932
view15
3
Goto Top

Splashscreen

GermansolvedQuestionVB for ApplicationsDevelopment

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
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin
Kommentar vom Moderator Biber am Mar 31, 2010 um 10: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-Key: 139559

Url: https://administrator.de/contentid/139559

Printed on: April 25, 2024 at 14:04 o'clock

15 Comments
Latest comment
Goto Top
Member: Tommy70
Tommy70 Mar 31, 2010 at 07:22:50 (UTC)
Goto Top
Hallo,

schon mal Google bemüht.
Erstes Ergebnis bei Suche nach vb.net Splashscreen!
Member: cewiethemaster
cewiethemaster Mar 31, 2010 at 07:31:23 (UTC)
Goto Top
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?
Member: Tommy70
Tommy70 Mar 31, 2010 at 07:39:10 (UTC)
Goto Top
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 face-wink
Member: cewiethemaster
cewiethemaster Mar 31, 2010 at 07:42:39 (UTC)
Goto Top
Danke.

Kannst du mir den Kompletten Code mal Posten???
Member: Tommy70
Tommy70 Mar 31, 2010 at 07:46:07 (UTC)
Goto Top
Der komplette Code den du brauchst um deinen Splashscreen zum Laufen zu bringen steht bereits im Beispiel. Mehr kann ich da auch nicht posten face-wink
Member: cewiethemaster
cewiethemaster Mar 31, 2010 at 07:51:18 (UTC)
Goto Top
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?
Member: Tommy70
Tommy70 Mar 31, 2010 at 08:03:02 (UTC)
Goto Top
Sieht nicht schlecht aus! Aber wieso testest du es nicht einfach? Dann siehst du sofort obs geht...
Member: SlainteMhath
SlainteMhath Mar 31, 2010 at 08:04:29 (UTC)
Goto Top
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
Member: cewiethemaster
cewiethemaster Mar 31, 2010 at 08:06:22 (UTC)
Goto Top
Und wo kann ich Modul1 als Startform festlegen?
Member: cewiethemaster
cewiethemaster Mar 31, 2010 at 08:07:04 (UTC)
Goto Top
Ja, das war mir schon klar.
Aber ich muss dieses Tool bis Mittag fertighaben...
Member: Tommy70
Tommy70 Mar 31, 2010 at 08:09:05 (UTC)
Goto Top
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.
Member: SlainteMhath
SlainteMhath Mar 31, 2010 at 08:12:29 (UTC)
Goto Top
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 face-smile

Irgendwas läuft doch da falsch, wenn Du nur mit hilfe diese Forums deinen Job machen kannst.
Member: cewiethemaster
cewiethemaster Mar 31, 2010 at 08:12:42 (UTC)
Goto Top
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

SO sieht der Code aus.. ist es jetzt die Startform???
Member: cewiethemaster
cewiethemaster Mar 31, 2010 at 08:13:55 (UTC)
Goto Top
Ich finds ned witzig...

Aber danke, ich hab´s gefunden ;)

Edit: Da geht aber nicht das Modul auswählen, sondern nur das Formular...
Member: cewiethemaster
cewiethemaster Mar 31, 2010 at 08:15:49 (UTC)
Goto Top
Ohh.: Schatz gefunden..

Danke :D
GermansolvedQuestionVB for ApplicationsDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 CommentsjstrickerWireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 Comments