Creating the example
We will build a simple Add-In that will count the number of lines of code for
a given program component.
To begin creating the Add-In, start a new project. Choose the AddIn project
type. The AddIn project type includes many components necessary for creating
VB Add-Ins. There is a form that you can modify to provide a user interface for
your Add-In. There is also a designer module that contains the four methods that
are needed for the Add-In's interface to VB.
Remove the Ok and Cancel buttons from the form and add the following controls
to the form:
|
Control Type
|
Property
|
Value
|
| Form |
Name |
FrmAddIn |
| Label |
Caption |
Line Counter |
| Label |
Caption |
Project |
| TextBox |
Name |
txtProject |
| Label |
Caption |
Component |
| TextBox |
Name |
TxtComponent |
| CommandButton |
Name |
CmdCountCodeLines |
| |
Caption |
Count Code Lines |
| CommandButton |
Name |
CmdDone |
| |
Caption |
Done |
| Label |
Caption |
Code Lines |
| TextBox |
Name |
txtCodeLines |
Here is the code:
|
Public VBInstance As VBIDE.VBE
Public Connect As Connect
Option Explicit
Private Sub cmdCountCodeLines_Click()
Dim strVBProject As String
Dim strVBComponent As String
Dim objVBComponent As VBComponent
'Forms controls
strVBProject = txtProject.Text
strVBComponent = txtComponent.Text
'Set objVBComponent to the program component suggested by
'strVBProject and strVBComponent
Set objVBComponent = VBInstance.VBProjects.Item(strVBProject).VBComponents.Item(strVBComponent)
'Assign the number of lines of code (countoflines) of the component
'objVBComponent to the txtcodelines textbox
txtCodeLines.Text = Str(objVBComponent.CodeModule.CountOfLines)
End Sub
Private Sub cmdDone_Click()
'Hide the addin window
Connect.Hide
End Sub
|