Visual Basic (VB and VBA)
Copyright 1999-2001 Christopher Greaves. All rights reserved.
Home Page and email to [email protected]
If in doubt, record a macro and inspect the entrails!

 

 

Please read the DISCLAIMER.

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.



Public Sub udfClearImmediate()
' Procedure :   udf_ClearImmediate
' Description:  Clear the Immediate window in VBE
' Copyright:    Chris Greaves Inc.
' Inputs:       None
' Returns:      Array
' Assumes:      Nothing
' Side Effects:
' Tested:       By the calls listed below.
    '#Const mDeveloping = False  'Unrem this if not declared elsewhere and if needed
    #If mDeveloping Then
        Dim ideWindow As VBIDE.Window
    #Else
        Dim ideWindow As Object
    #End If
    For Each ideWindow In VBE.Windows
        If ideWindow.Caption = "Immediate" Then
            ideWindow.SetFocus
            ideWindow.Visible = True
            SendKeys "^{End}"
            SendKeys "^+{Home}"
            SendKeys "{DEL}"
        End If
    Next
    Set ideWindow = Nothing
End Sub

We all knew nothing when we started …
Home Page and Contact Information
Send email to [email protected].
This page was last updated Thursday, November 15, 2001

 

 

Hosted by www.Geocities.ws

1

Visual Basic (VB and VBA)

Copyright 1999-2001 Christopher Greaves. All rights reserved.
Home Page and email to [email protected]
If in doubt, record a macro and inspect the entrails!

 

 

Please read the DISCLAIMER.

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.

Public Sub udfClearImmediate()
' Procedure :   udf_ClearImmediate
' Description:  Clear the Immediate window in VBE
' Copyright:    Chris Greaves Inc.
' Inputs:       None
' Returns:      Array
' Assumes:      Nothing
' Side Effects:
' Tested:       By the calls listed below.
    '#Const mDeveloping = False  'Unrem this if not declared elsewhere and if needed
    #If mDeveloping Then
        Dim ideWindow As VBIDE.Window
    #Else
        Dim ideWindow As Object
    #End If
    For Each ideWindow In VBE.Windows
        If ideWindow.Caption = "Immediate" Then
            ideWindow.SetFocus
            ideWindow.Visible = True
            SendKeys "^{End}"
            SendKeys "^+{Home}"
            SendKeys "{DEL}"
        End If
    Next
    Set ideWindow = Nothing
End Sub

We all knew nothing when we started …
Home Page and Contact Information
Send email to [email protected].
This page was last updated Thursday, November 15, 2001

 

 

Hosted by www.Geocities.ws

1