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