Pues lastimosamente no conosco nada acerca de C/C++/C#.
Pero... espero que este codigo te sirva.
Microsoft Visual Basic 6 (eso si sono feo)
Este es del frmSplash:
Código :
General_Declaraciones()
Public Ret As Byte
Dim sw As Byte
End Sub
Private Sub Form_Load()
frmSplash.BackColor = &H8000000D
Label1.BackColor = &H8000000D
Label2.BackColor = &H8000000D
Label3.BackColor = &H8000000D
Label4.BackColor = &H8000000D
Label6.BackColor = &H8000000D
Label7.BackColor = &H8000000D
Label8.BackColor = &H8000000D
Label9.BackColor = &H8000000D
Frame1.BackColor = &H8000000D
Frame2.BackColor = &H8000000D
ccrp1.BackColor = &H8000000D
Label1.ForeColor = RGB(139, 164, 221)
Label2.ForeColor = RGB(139, 164, 221)
Label9.ForeColor = RGB(139, 164, 221)
Label10.ForeColor = RGB(139, 164, 221)
ccrp1.FillColor = RGB(139, 164, 221)
Label10 = "."
sw = 0
Label7.Caption = Str(App.Major) + "." + Str(App.Minor) + "." + Str(App.Revision)
Timer1.Interval = 200
Timer2.Interval = 200
End Sub
Private Sub Timer1_Timer()
ccrp1.Value = ccrp1.Value + 5
If ccrp1.Value = ccrp1.Max Then
frmInicio.Show
Unload Me
End If
End Sub
Private Sub Timer2_Timer()
sw = sw + 1
Label10.Caption = Label10.Caption + "."
If sw = 3 Then
Label10 = "."
sw = 0
End If
End Sub
Y este es del frmTextos:
Código :
Private Sub Form_Activate()
wmpSonido.PlayCount = 10000
wmpSonido.FileName = App.Path + "\Media\audio\Insula.mp3"
wmpSonido.Play
End Sub
Private Sub Form_Load()
RTB.Locked = True
End Sub
Private Sub KewlButtons1_Click()
If frmSplash.Ret = 1 Then
frmMA.Show
frmMA.myRTB.Text = frmTexto.RTB.Text
Unload Me
ElseIf frmSplash.Ret = 2 Then
frmPS.Show
frmPS.myRTB.Text = frmTexto.RTB.Text
Unload Me
End If
End Sub
Date cuenta del uso que le estoy dando a la variable Ret que dimensione como Pública en el formulario frmSplash.
Dale un buen uso a este SourceCode, OK