Re: Dim scope within an IF

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

From: Gary Shell (gshell_at_fuse.net)
Date: 06/30/04 

Date: Wed, 30 Jun 2004 02:26:20 -0400

Ah, yes. A Clue By Four. Gladly accepted!

Thanks,
Gary

"Rob Teixeira [MVP]" <RobTeixeira@@msn.com> wrote in message
news:%23kmN1RmXEHA.3988@tk2msftngp13.phx.gbl...
> Private Sub btnEditTheClass_Click(ByVal sender As System.Object, ByVal e
As
> System.EventArgs) Handles btnEditTheClass.Click
>
> Dim frm As BaseClassFormName
>
> If RadioButton_BP.Checked Then
> frm = New frmBP_Class
> ElseIf RadioButton_IO.Checked Then
> frm = New frmIO_Class
> End If
>
> ' rest of code goes here
>
>
> -Rob Teixeira [MVP]
>
> "Gary Shell" <gshell@fuse.net> wrote in message
> news:ucIpJMmXEHA.1048@tk2msftngp13.phx.gbl...
> > I have two forms both derived by inheriting the same base form. I have
a
> > third form that needs to instantiate one of those two forms, set some
> > Protected properties on the two forms, display the form, test a property
> of
> > the from when it is closed and then dispose of the instantiated form.
> >
> > The third form has two radio buttons used to determine wich form to
> > instantiate. The folllowing code fails to compile due to the scope of
the
> > DIM statement.
> >
> > Private Sub btnEditTheClass_Click(ByVal sender As System.Object, ByVal e
> As
> > System.EventArgs) Handles btnEditTheClass.Click
> > If RadioButton_BP.Checked Then
> > Dim frm As New frmBP_Class
> > ElseIf RadioButton_IO.Checked Then
> > Dim frm As New frmIO_Class
> > End If
> >
> > 'pass a connection to SQL
> > frm.sqlConnection = SqlConnection1
> > 'pass the TheClass to be edited
> > frm.TheClass = txtTheClass.Text
> > 'set EDIT mode
> > frm.Mode = frm.Modes.EditMode
> > 'show as a MODAL form
> > frm.ShowDialog()
> > 'if the data was updated
> > If frm.DataUpdated = True Then
> > 'display the updated data
> > txtTheClass.Text = frm.TheClass
> > End If
> >
> > 'dispose of the form
> > frm.Dispose()
> > End Sub
> >
> > Because of this I have to resort to the following:
> >
> > Private Sub btnEditTheClass_Click(ByVal sender As System.Object, ByVal e
> As
> > System.EventArgs) Handles btnEditTheClass.Click
> > If RadioButton_BP.Checked Then
> > Dim frm As New frmBP_Class
> > 'pass a connection to SQL
> > frm.sqlConnection = SqlConnection1
> > 'pass the TheClass to be edited
> > frm.TheClass = txtTheClass.Text
> > 'set EDIT mode
> > frm.Mode = frm.Modes.EditMode
> > 'show as a MODAL form
> > frm.ShowDialog()
> > 'if the data was updated
> > If frm.DataUpdated = True Then
> > 'display the updated data
> > txtTheClass.Text = frm.TheClass
> > End If
> > 'dispose of the form
> > frm.Dispose()
> > ElseIf RadioButton_IO.Checked Then
> > Dim frm As New frmIO_Class
> > 'pass a connection to SQL
> > frm.sqlConnection = SqlConnection1
> > 'pass the TheClass to be edited
> > frm.TheClass = txtTheClass.Text
> > 'set EDIT mode
> > frm.Mode = frm.Modes.EditMode
> > 'show as a MODAL form
> > frm.ShowDialog()
> > 'if the data was updated
> > If frm.DataUpdated = True Then
> > 'display the updated data
> > txtTheClass.Text = frm.TheClass
> > End If
> > 'dispose of the form
> > frm.Dispose()
> > End If
> > End Sub
> >
> >
> >
> > YUCH!!!!! That is truly UGLY. But I, for the life of me, can't find any
> > other way to do this. Suggestions? Clue by fours?
> >
> > Thanks,
> >
> > Gary
> >
> >
>
>

Relevant Pages

  • Re: Dim scope within an IF
    ... I then realized I could Dim the form using the BASE class of the multiple ... Then in the IF/END IF I could instantiate the proper ... Private Sub btnEditTheClass_Click(ByVal sender As System.Object, ... Dim frm As TheClassForm.frmTheClass ...
    (microsoft.public.dotnet.languages.vb)
  • Re: More than one copy of a form open at the same time
    ... Private Declare Function CoCreateGuid Lib "OLE32.DLL" As Long ... Private Sub Command0_Click ... 'Instantiate the new form instance ... colForm2.Add frm, GUID ...
    (microsoft.public.access.forms)
  • Re: Creating multiple instances of a form
    ... Private Sub Command0_Click ... Public Property Get GUID() As String ... 'Instantiate the local circular reference to the calling form ...
    (microsoft.public.access.formscoding)
  • Re: Creating multiple instances of a form
    ... Private Sub Command0_Click ... Public Property Get GUID() As String ... 'Instantiate the local circular reference to the calling form ...
    (microsoft.public.access.forms)
  • Re: More than one copy of a form open at the same time
    ... > Private Sub Command0_Click ... > 'Instantiate the new form instance ... > 'Destroy the local reference ...
    (microsoft.public.access.forms)