simulacion de carga de software...

[dwin]

hola, ya casi termino mi sistema pero, ahora estoy haciendo el diseño de la interfaz, pero como todo software, tiene una ventana inicial al ejecutar y nos dice algunos datos y una barra de progreso que indica la carga del software con alguna animacion. (tipo word 2007) algo asi...

y tengo la idea de un formulario sin bordes que se muestre por unos 5 segundos y ya se cierrer ycarge el formulario inicial del sistema... esa es mi idea, pero no se si halla otra forma de hacerlo...

gracias...

[fesero]

mira, yo hice algo parecido con un form splash, es algo rudimentario pero tal ves te sirva como ejemplo.
Esta casi sin modificaciones de un form splash standart

Código:

Private A As Integer, g As VbMsgBoxResult
Private Sub Command1_Click()
g = MsgBox("Te Dije Esperá!" & vbCrLf & " Vas a esperar ahora?", vbYesNo)
A = 0
If g = vbYes Then
    Timer1.Interval = Timer1.Interval + 100
    MsgBox ("Ahora vas a tener que esperar un poquito mas")
Else
    Timer1.Interval = Timer1.Interval + 250
    MsgBox ("Por Eso vas a esperar mucho mas")
End If
End Sub

Private Sub Form_Load()
A = 0
Timer1.Interval = 1
lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
lblProductName.Caption = App.Title & vbCrLf & " de Vehiculos"
Dim R As String, EsteDia As Date, sTexBack As String, Ak As String
EsteDia = FormatDateTime(Now, vbShortDate)
Text1.Text = EsteDia
sTexBack = Replace(Text1.Text, "/", "")
sTexBack = sTexBack & "-A"
Text1.Text = sTexBack
sTexBack = Replace(Text1.Text, "", "", 1, 12)
End Sub

Private Sub Timer1_Timer()
A = A + 1
If A <= 100 Then
    Bar1.Value = (A)  '* 10)
End If
porc.Caption = (A) & "%"
If A >= 100 Then
    Unload Me
    Princ.Show
    Timer1.Enabled = False
End If
End Sub

hay un textbox, un progress bar y un commandbutton.