home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / Add_In_for1979733122006.psc / modProjectBin.bas < prev    next >
BASIC Source File  |  2006-03-12  |  1KB  |  41 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. 'C:\Program Files\Microsoft Visual Studio\MSDN98\98VSa\1033\SAMPLES\VB98\Taborder
  5.  
  6.  
  7. '#####
  8. 'Purpose: This module has only one purpose and
  9. '         is used only once.
  10. 'To Use:  To use this project, you must first
  11. '         compile the project.  This registers
  12. '         the activeX dll, then you must
  13. '         call the AddToINI function.  Open
  14. '         the Immediate window (Ctrl + G) in the Visual
  15. '         Basic IDE and type AddToIni.
  16. '         After you press Enter you should see
  17. '         a MessageBox that tells you the Add-In
  18. '         has successfully been installed.
  19. '#####
  20.  
  21. Declare Function WritePrivateProfileString& Lib _
  22. "kernel32" Alias "WritePrivateProfileStringA" _
  23. (ByVal AppName$, ByVal KeyName$, ByVal _
  24. keydefault$, ByVal FileName$)
  25. Public Sub AddToINI()
  26. Dim rc As Long
  27. rc = WritePrivateProfileString("Add-Ins32", _
  28. "VBgamerSourceBin.MainEOMClass", "0", "VBADDIN.INI")
  29. MsgBox "Add-in is now entered in VBADDIN.INI file."
  30. End Sub
  31.  
  32. Public Function IsCompiled() As Boolean
  33.   On Local Error Resume Next
  34.   Debug.Assert 1 / 0
  35.   IsCompiled = Not (Err.Number <> 0)
  36.   Err.Clear
  37. End Function
  38.  
  39.  
  40.  
  41.