Help with a msgbox add-in 
Author Message
 Help with a msgbox add-in

I am trying to modify a working VB 4 add-in to run in VB 5.  It is a message
box wizard.  The code is suppose to copy the code the wizard generates to
the clipboard.  The code is then inserted into the active code window by
using a SendKeys"+(INSERT)" statement.  Any help would be appreciated.

You will find the code attached below:

Global goVBInst As VBIDE.Application

Public Sub GenerateCode()
...
    Clipboard.Clear
    Clipboard.SetText msCode
    msCode = ""
    On Error GoTo AppActivateErr
    sCodeModule = goVBInst.ActiveProject.SelectedComponents(0).Name
    If Len(sCodeModule) = 0 Then
        DisplayNoCodeMsg
    Else
        AppActivate sCodeModule
        SendKeys "+{INSERT}", True
    End If
    Exit Sub
AppActivateErr:
    DisplayNoCodeMsg
    Exit Sub
End Sub
Private Sub DisplayNoCodeMsg()
    MsgBox "Unable to find active code window -- generated code copied to
clipboard only.", vbCritical
End Sub



Thu, 18 May 2000 03:00:00 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. Help, Help, Help: Endless Msgbox loop

2. Adding custom icons to MsgBox Function

3. Adding custom icon to MsgBox function

4. Can I add a timout on MsgBox()

5. MsgBox Builder : VB 4.0 32-Bit Add-In (freeware)

6. Adding custom icons to MsgBox Function

7. Adding custom icons to MsgBox Function

8. How to add an Icon to Msgbox title?

9. how to add help to add-in functions?

10. OL2999 : add a contact : pb with the add type (HELP)

11. Help: adding a maskedbox control to a form in an addin program

12. Help: Adding a maskedbox to a form in an addin

 

 
Powered by phpBB® Forum Software