Visual Basic

Dim drv as DriveInfo
For Each di As DirectoryInfo In drv.RootDirectory.GetDirectories("*", SearchOption.TopDirectoryOnly)
    If Not di.Attributes And FileAttributes.Hidden Then
        ...(code)
    End If
Next

ActiveChart.SeriesCollection(index).Values = Array(Range("Sheet1!$A$29"), Range("Sheet1!$B$33"), Range("Sheet1!$C$35"), Range("Sheet1!$C$30"))

ActiveChart.SeriesCollection.Add Source:=Range(Worksheets("Sheet1").Range("C5:T5"))

sal21 wrote:

Is possible to intercept the string of data before the code insert into table?

sal21 wrote:

Is possible to intercept the source of data?

Member 3676822 wrote:

All Software run fine but sendkeys shows error.

No-e wrote:

If I hide a form, then unhide it, it seems to change size. Any idea why this is or how I can stop it? (I generally show only one of the two forms at a time)

No-e wrote:

I do have a way to determine what size it needs to be but am not sure where to put my re-sizing routine (the form needs to be different sizes for different configurations) It is generally resized on the load event.

    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