Hallo!
Ich hab mir eine Funktion als Object definiert (VB6), und will jetzt Eigenschaften hinzufügen, mach aber irgendwas falsch…oder funktioniert das so gar nicht (ageblich isses ganz einfach), wie ichs mir vorstell!?
Wenn ich der Hilfe von Visual Studio folg, kommt genau nix raus (außer Fehlermeldungen)
Public Function ret_Values() As Object
Dim SFso, ini
Const IniFile = „archinfo.ini“
Dim IniPfad
Dim Pfad, Lic
Dim pos
Dim VPfad, VLic As ret_value
Set SFso = CreateObject(„Scripting.FileSystemObject“)
IniPfad = App.Path & „“ & IniFile
MsgBox IniPfad
Set ini = fso.OpenTextFile(IniPfad, ForReading)
ini.SkipLine
Pfad = ini.ReadLine
pos = InStr(Pfad, " = ")
Pfad = Right(Pfad, Len(Pfad) - pos)
Pfad = Trim(Pfad)
Lic = ini.ReadLine
pos = InStr(Pfad, " = ")
Lic = Right(Lic, Len(Lic) - pos)
Lic = Trim(Lic)
End Function
Die Werte Pfad und Lic sollen dem Objekt zugewiesen werden…