Results 1 to 9 of 9

Thread: adding a splash screen to an existing user form app
Thanks Thanks: 0 Likes Likes: 0

  1. #1
    Board Regular mortgageman's Avatar
    Join Date
    Jun 2005
    Posts
    2,015
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default adding a splash screen to an existing user form app

    I found this which showed me how to make a splash screen in Excel:
    http://www.youtube.com/watch?v=WPUiSiDMkkU

    What I would like to know is how to make a splash screen that shows itself for a few seconds - but then I want my other user form (my main application) to start by itself.

    Thanks in advance

    Gene Klein
    Gene, "The Mortgage Man", Klein
    See all my Mishegas Videos
    NEW: MY INTERNET RADIO SHOW:
    http://www.blogtalkradio.com/mortgageman

  2. #2
    MrExcel MVP Tom Urtis's Avatar
    Join Date
    Feb 2002
    Location
    San Francisco, California USA
    Posts
    11,192
    Post Thanks / Like
    Mentioned
    4 Post(s)
    Tagged
    2 Thread(s)

    Default Re: adding a splash screen to an existing user form app

    Just on the face of it without testing, have you tried to simply place the line

    myUserForm.Show (change the name to whatever your userform name is)

    after her "KillTheForm" execution but before End Sub

  3. #3
    Board Regular mortgageman's Avatar
    Join Date
    Jun 2005
    Posts
    2,015
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: adding a splash screen to an existing user form app

    Quote Originally Posted by Tom Urtis View Post
    Just on the face of it without testing, have you tried to simply place the line

    myUserForm.Show (change the name to whatever your userform name is)

    after her "KillTheForm" execution but before End Sub
    I guess this is dumb - but does that mean I would have to name my splash-screen user form a different name then userform1 to avoid name conflicts?


    Gene Klein
    Gene, "The Mortgage Man", Klein
    See all my Mishegas Videos
    NEW: MY INTERNET RADIO SHOW:
    http://www.blogtalkradio.com/mortgageman

  4. #4
    MrExcel MVP Tom Urtis's Avatar
    Join Date
    Feb 2002
    Location
    San Francisco, California USA
    Posts
    11,192
    Post Thanks / Like
    Mentioned
    4 Post(s)
    Tagged
    2 Thread(s)

    Default Re: adding a splash screen to an existing user form app

    Well, yes but you'd need to have a unique name for each userform in your workbook anyway, splash screen or not.

  5. #5
    Board Regular mortgageman's Avatar
    Join Date
    Jun 2005
    Posts
    2,015
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: adding a splash screen to an existing user form app

    Quote Originally Posted by Tom Urtis View Post
    Just on the face of it without testing, have you tried to simply place the line

    myUserForm.Show (change the name to whatever your userform name is)

    after her "KillTheForm" execution but before End Sub
    Here is what I tried:


    Code:
    Private Sub UserForm_Initialize()
    Application.Goto Reference:="lookaway"
    UserForm2.Show
    TimeValue ("00:00:05"), "KillTheForm"
    
    end sub
     
    Private Sub KillTheForm()
    Unload UserForm2
    End Sub

    Here is the error I got:
    Wrong number of arguments or invalid property assignment

    Thanks in advance

    Gene Klein
    Gene, "The Mortgage Man", Klein
    See all my Mishegas Videos
    NEW: MY INTERNET RADIO SHOW:
    http://www.blogtalkradio.com/mortgageman

  6. #6
    Legend NateO's Avatar
    Join Date
    Feb 2002
    Location
    Minneapolis, Mn, USA
    Posts
    9,700
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: adding a splash screen to an existing user form app

    Hello,

    Without having watched the video, have you seen J-Walk's page on this?

    http://j-walk.com/ss/excel/tips/tip39.htm

    You want the OnTime Method.

  7. #7
    Board Regular mortgageman's Avatar
    Join Date
    Jun 2005
    Posts
    2,015
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: adding a splash screen to an existing user form app

    Quote Originally Posted by NateO View Post
    Hello,

    Without having watched the video, have you seen J-Walk's page on this?

    http://j-walk.com/ss/excel/tips/tip39.htm

    You want the OnTime Method.
    Code:
    Private Sub UserForm_Initialize()
    Application.Goto Reference:="lookaway"
    UserForm2.Show
    With UserForm1
    ****code that worked when I only had one user form****
     Private Sub UserForm_Activate()
        Application.OnTime Now + TimeValue("00:00:05"), "KillTheForm"
    End Sub
    Private Sub KillTheForm()
    Unload UserForm2
    End Sub
    Ok - this is "working" in the sense that I do not get an error message, but it is not "splashing" - i.e. I have to click the x on the top of the (first) form to make it go away. After I do, the second form correctly shows up.

    Help?

    Gene Klein
    Gene, "The Mortgage Man", Klein
    See all my Mishegas Videos
    NEW: MY INTERNET RADIO SHOW:
    http://www.blogtalkradio.com/mortgageman

  8. #8
    Legend NateO's Avatar
    Join Date
    Feb 2002
    Location
    Minneapolis, Mn, USA
    Posts
    9,700
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: adding a splash screen to an existing user form app

    Hello, try this, place the following in the UserForm1 Module:

    Code:
    Private Sub UserForm_Initialize()
    Application.OnTime Now + TimeValue("00:00:05"), _
        "KillTheForm"
    End Sub
    And place this in a Normal module:

    Code:
    Private Sub KillTheForm()
    UserForm1.Hide: Unload UserForm1
    Load UserForm2: UserForm2.Show
    End Sub
    It's a bit of a matter of naming conventions, location and order of operations. Change the Form's names as appropriate.

  9. #9
    Board Regular mortgageman's Avatar
    Join Date
    Jun 2005
    Posts
    2,015
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: adding a splash screen to an existing user form app

    Quote Originally Posted by NateO View Post
    Hello, try this, place the following in the UserForm1 Module:

    Code:
    Private Sub UserForm_Initialize()
    Application.OnTime Now + TimeValue("00:00:05"), _
        "KillTheForm"
    End Sub
    And place this in a Normal module:

    Code:
    Private Sub KillTheForm()
    UserForm1.Hide: Unload UserForm1
    Load UserForm2: UserForm2.Show
    End Sub
    It's a bit of a matter of naming conventions, location and order of operations. Change the Form's names as appropriate.
    Perfect. Thanks

    Gene Klein
    Gene, "The Mortgage Man", Klein
    See all my Mishegas Videos
    NEW: MY INTERNET RADIO SHOW:
    http://www.blogtalkradio.com/mortgageman

Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •