Visual Basic

    Private Sub frmChamber_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load

      frmChamber.DefInstance.Height = frachamber(0).Height + 214  
      If frmChamber.DefInstance.Height < fraControl.Height + 200 Then frmChamber.DefInstance.Height = fraControl.Height + 214

end sub 

Public Sub New()
     MyBase.New()
     If m_vb6FormDefInstance Is Nothing Then
         If m_InitializingDefInstance Then
             m_vb6FormDefInstance = Me
         Else
             Try
                 'For the start-up form, the first instance created is the default instance.
                 If System.Reflection.Assembly.GetExecutingAssembly.EntryPoint.DeclaringType Is Me.GetType Then
                     m_vb6FormDefInstance = Me
                 End If
             Catch
             End Try
         End If
     End If
     'This call is required by the Windows Form Designer.
     InitializeComponent()
     'This form is an MDI child.
     'This code simulates the VB6
     ' functionality of automatically
     ' loading and showing an MDI
     ' child's parent.
     Me.MdiParent = MBIG.mdiMain.DefInstance.DefInstance
     MBIG.mdiMain.DefInstance.DefInstance.Show()
     'The MDI form in the VB6 project had its
     'AutoShowChildren property set to True
     'To simulate the VB6 behavior, we need to
     'automatically Show the form whenever it
     'is loaded.  If you do not want this behavior
     'then delete the following line of code
     'UPGRADE_NOTE: Remove the next line of code to stop form from automatically showing. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2018"'
     Me.Show()
 End Sub

If _SizeAtLoad = -1 Then 'don't want to do this everytime it activates, just first time
    _SizeAtLoad = Me.Width

    '*  Changed to avoid "repaint" flicker and bounce
    Dim MinWidth As Integer = _SizeAtLoad      '* default to width when form opens (backward compat. behavior)
    Dim MinHeight As Integer = 300             '* default to 300

    If Me.MinimumSize.Width > 0 Then
        MinWidth = Me.MinimumSize.Width
    End If

    If Me.MinimumSize.Height > 0 Then
        MinHeight = Me.MinimumSize.Height
    End If

    Me.MinimumSize = New System.Drawing.Size(MinWidth, MinHeight)
End If

atk8877 wrote:

the problem is i wana save the ValueMember instead of the DisplayMember in the database .

Member 4027617 wrote:

Please sent the code to my mail id. it is very help full for me.
E-Mail: agopi_2005_ind@yahoo.co.in, agopi.net@gmail.com

Member 4027617 wrote:

Need the Output: ( I Need the output to Notepad )

Member 4027617 wrote:

It is urgent.

Open datareader

Open file for Append

do while not datareader.eof
  file.write("Name: " & datareader("Name"))
  file.write("Designation: " & datareader("Designation"))
  file.write("Salary: " & datareader("Salary"))
  file.write("------------------------")
loop

file.close

datareader.dispose