Dim Key Set Key = CreateObject("RegEdit.Key") Key.SomeMethod SomeParameters Key.SomeProperty = SomeValue
You can also use CreateObject method method of Server object (ASP) to put the Key object to page scope or CreateObject method of WScript object in WSH.
You can also put the object to Application or Session scope using <object ...> tag in global.asa
<object runat="server" scope="application" id="Key" progid="RegEdit.Key"> </object>
Please use ActivexObject object in JScript/JavaScript to create Key object:
var Key; Key = new ActiveXObject("RegEdit.Key"); Key.SomeMethod(SomeParameters) Key.SomeProperty = SomeValue ...
VBA 5/6: You can reference the library using menu Project -> References
-> select 'ActiveX Registry editor 1.0' in the listbox (or Project ->
References -> Browse -> select RegEdit.OCX file).
MSAccess, Word, Excel: Tools -> Macro -> Visual Basic Editor, then Tools
-> References
Then you can write:
Dim Key As New RegEdit.Key Key.SomeMethod SomeParameters Key.SomeProperty = SomeValue ...or
Dim Key As RegEdit.Key ... Set Key = New RegEdit.Key Key.SomeMethod SomeParameters Key.SomeProperty = SomeValue ...You can use CreateObject function also, of course:
Dim Key As RegEdit.Key ... Set Key = CreateObject("RegEdit.Key") Key.SomeMethod SomeParameters Key.SomeProperty = SomeValue ...
You can reference the library using menu Project -> Add reference -> COM tab -> select 'ActiveX Registry editor 1.0' in the listbox -> click Select. Then you can write (C#, J#):
//create a new Key objector (VBA)
RegEdit.Key Key = new RegEdit.KeyClass();
Key.set_String("Some text value");
String SQL;
SQL = "Insert Into Table (BinaryColumn) values (0x" + Key.get_HexString() + ")"; ...
Dim Key As New RegEdit.Key Key.SomeMethod(SomeParameters) Key.SomeProperty = SomeValue
DECLARE @Key INT, @OLEResult INT EXECUTE @OLEResult = sp_OACreate 'RegEdit.Key', @Key OUT IF @OLEResult <> 0 PRINT 'Error create component Key' --Set a property of Key. EXECUTE @OLEResult = sp_OASetProperty @Key, 'PropertyName', @SomeSQLValue IF @OLEResult <> 0 PRINT 'PropertyName set problem' --Get a value of a property of Key. EXECUTE @OLEResult = sp_OAGetProperty @Key, 'PropertyName', @SomeSQLValue OUTPUT IF @OLEResult <> 0 PRINT 'PropertyName get problem' --Call some method of Key. EXEC @OLEResult = sp_OAMethod @Key, 'MethodName', @ReturnValue OUTPUT, @parameter1, @parameter2
© 1996 - 2009 Antonin Foller, Motobit Software | About, Contacts | e-mail: info@pstruh.cz