[VB6] Splash Screen

[Freezing]

Hoi Allemaal,

Ik ben bezig met een VB Programma, Ik heb hiervoor een Splash screen gemaakt en een module, ik heb hem zo ingesteld dat als je er op klikt dat hij zou moeten verdwijnen (wat hij niet doet :cry: ), ik heb er ook een timer op zodat hij na 3 sec vanzelf verdwijnt, en dat werkt juist wel hier de code:

code:

frmSplash:
Option Explicit

Private Sub Form_Click()
Me.Hide
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    Unload Me
End Sub

Private Sub Form_Load()
    lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
    lblProductName.Caption = App.Title
    Timer1.Enabled = True
End Sub

Private Sub Frame1_Click()
        Me.Hide
    Load fMainForm
    fMainForm.Show
    Unload frmSplash
End Sub


Private Sub Timer1_Timer()
    Me.Hide
    Load fMainForm
    fMainForm.Show
    Unload frmSplash
End Sub

code:

Module1:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public fMainForm As frmMain



Public Sub Main()
    frmSplash.Show
    'DoEvents
    'Sleep (3000)
    frmSplash.Refresh
    Set fMainForm = New frmMain
End Sub

Weet iemand waarom hij niet werkt (het klikken.)

[whoami]

Nee, dat weten we niet.
MIsschien kan je zelf eerst eens even jouw code debuggen. Dan zal je het wel te weten komen waarom hij het niet doet.
P&W is geen 'ik post m'n code hier en jullie debuggen het wel ff voor me' service.

[whoami]

Misschien heb je hier nog wel wat aan:
P&W FAQ

en dan doorklikken naar het stukje over debuggen.

[ Voor 22% gewijzigd door whoami op 30-10-2003 14:31 ]