Programming Forums > Application Development > Visual Basic .NET

Jabo · Mar 26th, 2008, 10:40 AM

I want to have my program check to see if certain information has been setup up, like server address, etc. I want the application to check and if this information hasn't been setup, then it will prompt the user to enter this information for first-time setup. I tried putting this in the first form load event, but it doesn't do what I want. Can somebody point me in the right direction?

Infinite Recursion · Mar 27th, 2008, 8:05 AM

How about in the Form_Load, you check for values in the registry that indicate if the information has previously been provided?

Jabo · Mar 27th, 2008, 7:46 PM

I'm not that sophisticated yet Recursion; my information is held in .txt files. I tried putting my check in the main form load event, but it ignores it. I'd like to do my checks before the main form loads, but don't know how.

Ooble · Mar 27th, 2008, 8:51 PM

Show us some code, Jabo.

Jabo · Mar 27th, 2008, 10:56 PM

The code that I tried is the first IF statement. I realize that the form hasn't loaded yet and can't be hid, but why wouldn't it show my other form? How can I do this better?

Also, frommail is a string that has been assigned a filepath. It was declared publicly.

 vb Syntax (Toggle Plain Text) 
 Private Sub Pinger_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim tabs() As Integer = {20, 40, 60, 80}
 
        If IO.File.Exists(frommail) = False Then
            Me.Hide()
            frmFromEmail.Show()
        End If
 
        'Set result textbox to nothing on load
        rtbResult.Text = ""
        'Ensure timer is enabled
        tmrTimer.Enabled = True
        'Set toolstrip Status message
        tssStatus.Text = "Pinging Started"
        'Set toolstrip Activity to None
        tssActivity.Text = "Current Task: None"
        'Cause both toolstrips to redraw
        tssStatus.Invalidate()
        tssActivity.Invalidate()
        'set Result textbox tabs
        rtbResult.SelectionTabs = tabs
        'Enable Stop toolstrip and disable Start toolstrip
        StopToolStripMenuItem.Enabled = True
        StartToolStripMenuItem.Enabled = False
        'Set timer interval to 15 minutes
        interval = 900000
        tmrTimer.Interval = interval
        'Make email active menu checked
        EmailActiveToolStripMenuItem.Checked = True
        'Set 15 minute menu to checked, all others unchecked
        MinutesToolStripMenuItem.Checked = False
        MinutesToolStripMenuItem1.Checked = False
        MinutesToolStripMenuItem2.Checked = True
        MinutesToolStripMenuItem3.Checked = False
        MinutesToolStripMenuItem4.Checked = False
        'Set printing to inactive
        PrintingActiveToolStripMenuItem.Checked = False
        'Set interval label to 15 minutes
        lblInterval.Text = "Ping interval: " & tmrTimer.Interval.ToString / 60000 & " minutes"
        'Start timer and cause first ping to run
        tmrTimer.Start()
        Ping_list()
 
 
    End Sub
 Private Sub Pinger_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim tabs() As Integer = {20, 40, 60, 80}

        If IO.File.Exists(frommail) = False Then
            Me.Hide()
            frmFromEmail.Show()
        End If

        'Set result textbox to nothing on load
        rtbResult.Text = ""
        'Ensure timer is enabled
        tmrTimer.Enabled = True
        'Set toolstrip Status message
        tssStatus.Text = "Pinging Started"
        'Set toolstrip Activity to None
        tssActivity.Text = "Current Task: None"
        'Cause both toolstrips to redraw
        tssStatus.Invalidate()
        tssActivity.Invalidate()
        'set Result textbox tabs
        rtbResult.SelectionTabs = tabs
        'Enable Stop toolstrip and disable Start toolstrip
        StopToolStripMenuItem.Enabled = True
        StartToolStripMenuItem.Enabled = False
        'Set timer interval to 15 minutes
        interval = 900000
        tmrTimer.Interval = interval
        'Make email active menu checked
        EmailActiveToolStripMenuItem.Checked = True
        'Set 15 minute menu to checked, all others unchecked
        MinutesToolStripMenuItem.Checked = False
        MinutesToolStripMenuItem1.Checked = False
        MinutesToolStripMenuItem2.Checked = True
        MinutesToolStripMenuItem3.Checked = False
        MinutesToolStripMenuItem4.Checked = False
        'Set printing to inactive
        PrintingActiveToolStripMenuItem.Checked = False
        'Set interval label to 15 minutes
        lblInterval.Text = "Ping interval: " & tmrTimer.Interval.ToString / 60000 & " minutes"
        'Start timer and cause first ping to run
        tmrTimer.Start()
        Ping_list()

        
    End Sub

Jabo · Mar 28th, 2008, 12:10 AM

Basically, this program needs an email server to send to, a From: email address and some other text files with specific information that the program needs to work properly. I don't want the program to crash on somebody on first use, which it has been doing until those files are created. After the files are there, program works fine. I guess what I'm looking for is the VB equivalent of preprocessor directives such as #ifdef and #ifndef.

I had all that information hard-coded into the program for work use, but they changed our domain on our emails, which meant I had to go back and change the information then recompile. I want my program more robust than that so I'm removing the key elements being hard-coded into the program.

Ooble · Mar 28th, 2008, 11:59 AM

Seems the problem is with this line:

 vb Syntax (Toggle Plain Text) 
frmFromEmail.Show()
frmFromEmail.Show()

Try this. Can't guarantee anything as I'm not a VB coder, but hopefully it'll work.

 vb Syntax (Toggle Plain Text) 
 Private Sub Pinger_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim tabs() As Integer = {20, 40, 60, 80}
        Dim FromEmailForm As New frmFromEmail()
 
        If IO.File.Exists(frommail) = False Then
            Me.Hide()
            FromEmailForm.Show()
        End If
 Private Sub Pinger_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim tabs() As Integer = {20, 40, 60, 80}
        Dim FromEmailForm As New frmFromEmail()

        If IO.File.Exists(frommail) = False Then
            Me.Hide()
            FromEmailForm.Show()
        End If

Jabo · Mar 28th, 2008, 7:57 PM

I'll give it a try, thanks for the suggest Ooble

Mar 26th, 2008, 10:40 AM	#1
Jabo Not a user? Join Date: Sep 2007 Posts: 272 Rep Power: 2	First-time setup of application I want to have my program check to see if certain information has been setup up, like server address, etc. I want the application to check and if this information hasn't been setup, then it will prompt the user to enter this information for first-time setup. I tried putting this in the first form load event, but it doesn't do what I want. Can somebody point me in the right direction?

Mar 27th, 2008, 8:05 AM	#2
Infinite Recursion Programming Guru Join Date: Jul 2004 Location: United States Posts: 3,467 Rep Power: 8	Re: First-time setup of application How about in the Form_Load, you check for values in the registry that indicate if the information has previously been provided? __________________ http://jasonpowers.net "There are a thousand hacking at the branches of evil to one who is striking at the root."

Mar 27th, 2008, 7:46 PM	#3
Jabo Not a user? Join Date: Sep 2007 Posts: 272 Rep Power: 2	Re: First-time setup of application I'm not that sophisticated yet Recursion; my information is held in .txt files. I tried putting my check in the main form load event, but it ignores it. I'd like to do my checks before the main form loads, but don't know how.

Mar 27th, 2008, 8:51 PM	#4
Ooble I eat cake for breakfast. Join Date: Jul 2004 Location: In my box. Posts: 4,434 Rep Power: 9	Re: First-time setup of application Show us some code, Jabo. __________________ Me :: You :: Them

Mar 27th, 2008, 10:56 PM	#5
Jabo Not a user? Join Date: Sep 2007 Posts: 272 Rep Power: 2	Re: First-time setup of application The code that I tried is the first IF statement. I realize that the form hasn't loaded yet and can't be hid, but why wouldn't it show my other form? How can I do this better? Also, frommail is a string that has been assigned a filepath. It was declared publicly. vb Syntax (Toggle Plain Text) Private Sub Pinger_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim tabs() As Integer = {20, 40, 60, 80} If IO.File.Exists(frommail) = False Then Me.Hide() frmFromEmail.Show() End If 'Set result textbox to nothing on load rtbResult.Text = "" 'Ensure timer is enabled tmrTimer.Enabled = True 'Set toolstrip Status message tssStatus.Text = "Pinging Started" 'Set toolstrip Activity to None tssActivity.Text = "Current Task: None" 'Cause both toolstrips to redraw tssStatus.Invalidate() tssActivity.Invalidate() 'set Result textbox tabs rtbResult.SelectionTabs = tabs 'Enable Stop toolstrip and disable Start toolstrip StopToolStripMenuItem.Enabled = True StartToolStripMenuItem.Enabled = False 'Set timer interval to 15 minutes interval = 900000 tmrTimer.Interval = interval 'Make email active menu checked EmailActiveToolStripMenuItem.Checked = True 'Set 15 minute menu to checked, all others unchecked MinutesToolStripMenuItem.Checked = False MinutesToolStripMenuItem1.Checked = False MinutesToolStripMenuItem2.Checked = True MinutesToolStripMenuItem3.Checked = False MinutesToolStripMenuItem4.Checked = False 'Set printing to inactive PrintingActiveToolStripMenuItem.Checked = False 'Set interval label to 15 minutes lblInterval.Text = "Ping interval: " & tmrTimer.Interval.ToString / 60000 & " minutes" 'Start timer and cause first ping to run tmrTimer.Start() Ping_list() End Sub Private Sub Pinger_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim tabs() As Integer = {20, 40, 60, 80} If IO.File.Exists(frommail) = False Then Me.Hide() frmFromEmail.Show() End If 'Set result textbox to nothing on load rtbResult.Text = "" 'Ensure timer is enabled tmrTimer.Enabled = True 'Set toolstrip Status message tssStatus.Text = "Pinging Started" 'Set toolstrip Activity to None tssActivity.Text = "Current Task: None" 'Cause both toolstrips to redraw tssStatus.Invalidate() tssActivity.Invalidate() 'set Result textbox tabs rtbResult.SelectionTabs = tabs 'Enable Stop toolstrip and disable Start toolstrip StopToolStripMenuItem.Enabled = True StartToolStripMenuItem.Enabled = False 'Set timer interval to 15 minutes interval = 900000 tmrTimer.Interval = interval 'Make email active menu checked EmailActiveToolStripMenuItem.Checked = True 'Set 15 minute menu to checked, all others unchecked MinutesToolStripMenuItem.Checked = False MinutesToolStripMenuItem1.Checked = False MinutesToolStripMenuItem2.Checked = True MinutesToolStripMenuItem3.Checked = False MinutesToolStripMenuItem4.Checked = False 'Set printing to inactive PrintingActiveToolStripMenuItem.Checked = False 'Set interval label to 15 minutes lblInterval.Text = "Ping interval: " & tmrTimer.Interval.ToString / 60000 & " minutes" 'Start timer and cause first ping to run tmrTimer.Start() Ping_list() End Sub

Mar 28th, 2008, 12:10 AM	#6
Jabo Not a user? Join Date: Sep 2007 Posts: 272 Rep Power: 2	Re: First-time setup of application Basically, this program needs an email server to send to, a From: email address and some other text files with specific information that the program needs to work properly. I don't want the program to crash on somebody on first use, which it has been doing until those files are created. After the files are there, program works fine. I guess what I'm looking for is the VB equivalent of preprocessor directives such as #ifdef and #ifndef. I had all that information hard-coded into the program for work use, but they changed our domain on our emails, which meant I had to go back and change the information then recompile. I want my program more robust than that so I'm removing the key elements being hard-coded into the program.

Mar 28th, 2008, 11:59 AM	#7
Ooble I eat cake for breakfast. Join Date: Jul 2004 Location: In my box. Posts: 4,434 Rep Power: 9	Re: First-time setup of application Seems the problem is with this line: vb Syntax (Toggle Plain Text) frmFromEmail.Show() frmFromEmail.Show() Try this. Can't guarantee anything as I'm not a VB coder, but hopefully it'll work. vb Syntax (Toggle Plain Text) Private Sub Pinger_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim tabs() As Integer = {20, 40, 60, 80} Dim FromEmailForm As New frmFromEmail() If IO.File.Exists(frommail) = False Then Me.Hide() FromEmailForm.Show() End If Private Sub Pinger_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim tabs() As Integer = {20, 40, 60, 80} Dim FromEmailForm As New frmFromEmail() If IO.File.Exists(frommail) = False Then Me.Hide() FromEmailForm.Show() End If __________________ Me :: You :: Them

Mar 28th, 2008, 7:57 PM	#8
Jabo Not a user? Join Date: Sep 2007 Posts: 272 Rep Power: 2	Re: First-time setup of application I'll give it a try, thanks for the suggest Ooble

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
help in setup file	nascar2000	Visual Basic .NET	3	Feb 11th, 2007 7:03 PM
way to make a function execute at time 'x'	badbasser98	C++	10	Apr 5th, 2006 7:14 AM
checking file existing time to time, in the same time program do other operation	myName	C++	3	Mar 13th, 2006 8:39 PM
Why do the smallest apps take the most time to execute...?	Senger	Coder's Corner Lounge	10	Nov 5th, 2005 1:42 PM
Time	ChronicCode	Java	2	Aug 11th, 2005 2:22 PM

Programming Forums > Application Development > Visual Basic .NET

First-time setup of application