Put the knife down and take a green herb, dude. (c) Ruffin Bailey 2001-2021

I've always wondered how to make one of those neat little plug-ins for Visual Basic 6.0 that insert code into the file you're working on. I'm no master, but I finally started checking about and have it proof-of-concepted, at least.

In all of my vb apps, I like to use a separate module to handle errors, in case I want to start changing the way they're handled. By having it pulled out, I've got one place that I have to alter to make error handling change globally. But scrawling that error handling crap the same way every time I'd add a method drove me crazy.

Enter the "AddIn" project in VB6. When you start a new project, select "AddIn". Add a button called cmdInsertText (for this example). Insert this code:

' Insert text into code module. Private Sub cmdInsertText_Click() Dim vbComp As VBComponent Dim strToInsert As String Set vbComp = VBInstance.ActiveVBProject.VBE.SelectedVBComponent strToInsert = vbNewLine & _ "public sub " & Me.Text1.Text & vbNewLine & _ "on error goto errHand" & vbNewLine & _ vbNewLine & _ vbNewLine & _ "exit sub" & vbNewLine & _ "errHand:" & vbNewLine & _ vbTab & _ "Call mdlErr.errp(""" & vbComp.Name & "." & Me.Text1.Text & """, err)" & _ vbNewLine & _ "end sub" vbComp.CodeModule.AddFromString strToInsert End Sub

... and then build it. Voila. It's in the Add-Ins menu for all your other VB projects, and it'll insert a new sub at the top of your current file. Woohoo!

Needs some extra stuff to be really useful, but a decent start. Got most of what I needed from the VB6 help topic "Manipulating Code with Add-Ins" and F2.

title: Put the knife down and take a green herb, dude.	descrip: One feller's views on the state of everyday computer science & its application (and now, OTHER STUFF) who isn't rich enough to shell out for www.myfreakinfirst-andlast-name.com Using 89% of the same design the blog had in 2001.
FOR ENTERTAINMENT PURPOSES ONLY!!! Back-up your data and, when you bike, always wear white. As an Amazon Associate, I earn from qualifying purchases. Affiliate links in green.
x MarkUpDown is the best Markdown editor for professionals on Windows 10. It includes two-pane live preview, in-app uploads to imgur for image hosting, and MultiMarkdown table support. Features you won't find anywhere else include... MarkUpDown Multiline Table & Bootstrap Grid support. Beautiful Easy Actions that keep the Markdown flowing. HTML paste to paste HTML source into your documents. You've wasted more than $15 of your time looking for a great Markdown editor. Stop looking. MarkUpDown is the app you're looking for. Learn more or head over to the 'Store now!

Friday, March 21, 2003
I've always wondered how to make one of those neat little plug-ins for Visual Basic 6.0 that insert code into the file you're working on. I'm no master, but I finally started checking about and have it proof-of-concepted, at least. In all of my vb apps, I like to use a separate module to handle errors, in case I want to start changing the way they're handled. By having it pulled out, I've got one place that I have to alter to make error handling change globally. But scrawling that error handling crap the same way every time I'd add a method drove me crazy. Enter the "AddIn" project in VB6. When you start a new project, select "AddIn". Add a button called cmdInsertText (for this example). Insert this code: ' Insert text into code module. Private Sub cmdInsertText_Click() Dim vbComp As VBComponent Dim strToInsert As String Set vbComp = VBInstance.ActiveVBProject.VBE.SelectedVBComponent strToInsert = vbNewLine & _ "public sub " & Me.Text1.Text & vbNewLine & _ "on error goto errHand" & vbNewLine & _ vbNewLine & _ vbNewLine & _ "exit sub" & vbNewLine & _ "errHand:" & vbNewLine & _ vbTab & _ "Call mdlErr.errp(""" & vbComp.Name & "." & Me.Text1.Text & """, err)" & _ vbNewLine & _ "end sub" vbComp.CodeModule.AddFromString strToInsert End Sub ... and then build it. Voila. It's in the Add-Ins menu for all your other VB projects, and it'll insert a new sub at the top of your current file. Woohoo! Needs some extra stuff to be really useful, but a decent start. Got most of what I needed from the VB6 help topic "Manipulating Code with Add-Ins" and F2. posted by ruffin at 3/21/2003 02:44:00 PM

<< Older \| Newer >>