Programming Forums - View Single Post - First-time setup of application

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

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