home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_6_93 / vbwin / addin / main.bas < prev    next >
BASIC Source File  |  1993-11-10  |  1KB  |  24 lines
  1. Attribute VB_Name = "Module1"
  2. '-- Deklaration von API-Funktionen --------------------------------------------------
  3. Declare Function WritePrivateProfileString% Lib "KERNEL" (ByVal AppName$, ByVal KeyName$, ByVal keydefault$, ByVal FileName$)
  4. Declare Function GetPrivateProfileString% Lib "KERNEL" (ByVal AppName$, ByVal KeyName$, ByVal keydefault$, ByVal ReturnString$, ByVal NumBytes As Integer, ByVal FileName$)
  5.  
  6. '-- hier beginnt die Ausfⁿhrung des Add-Ins -----------------------------------------
  7. Sub Main()
  8.     '-- damit das Add-In eingebunden werden kann, mu▀ seine Prog-ID
  9.     '-- (Projektname.Klassenname) in den Abschnitt Add-Ins16 der VB-INI
  10.     '-- geschrieben werden
  11.     
  12.     Const ABSCHNITT = "Add-Ins16"  'Registrierungsabschnitt in VB.INI
  13.     
  14.     Dim ReturnString As String
  15.     Dim ErrCode As Integer
  16.     
  17.     ReturnString = String$(255, Chr$(0))  'Puffer fⁿr API-String aufbauen
  18.     
  19.     ErrCode = GetPrivateProfileString(ABSCHNITT, "AddIn.AbisZRegister", "NotFound", ReturnString, Len(ReturnString) + 1, "VB.INI")
  20.     If Left(ReturnString, ErrCode) = "NotFound" Then     'noch nicht eingetragen
  21.         ErrCode = WritePrivateProfileString%(ABSCHNITT, "AddIn.AbisZRegister", "0", "VB.INI")
  22.     End If
  23. End Sub
  24.