Dim Keys Set Keys = CreateObject("RegEdit.Keys") Keys.SomeMethod SomeParameters Keys.SomeProperty = SomeValue
You can also use CreateObject method method of Server object (ASP) to put the Keys 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="Keys" progid="RegEdit.Keys"> </object>
Please use ActivexObject object in JScript/JavaScript to create Keys object:
var Keys; Keys = new ActiveXObject("RegEdit.Keys"); Keys.SomeMethod(SomeParameters) Keys.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 Keys As New RegEdit.Keys Keys.SomeMethod SomeParameters Keys.SomeProperty = SomeValue ...or
Dim Keys As RegEdit.Keys ... Set Keys = New RegEdit.Keys Keys.SomeMethod SomeParameters Keys.SomeProperty = SomeValue ...You can use CreateObject function also, of course:
Dim Keys As RegEdit.Keys ... Set Keys = CreateObject("RegEdit.Keys") Keys.SomeMethod SomeParameters Keys.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 Keys objector (VBA)
RegEdit.Keys Keys = new RegEdit.KeysClass();
Keys.set_String("Some text value");
String SQL;
SQL = "Insert Into Table (BinaryColumn) values (0x" + Keys.get_HexString() + ")"; ...
Dim Keys As New RegEdit.Keys Keys.SomeMethod(SomeParameters) Keys.SomeProperty = SomeValue
DECLARE @Keys INT, @OLEResult INT EXECUTE @OLEResult = sp_OACreate 'RegEdit.Keys', @Keys OUT IF @OLEResult <> 0 PRINT 'Error create component Keys' --Set a property of Keys. EXECUTE @OLEResult = sp_OASetProperty @Keys, 'PropertyName', @SomeSQLValue IF @OLEResult <> 0 PRINT 'PropertyName set problem' --Get a value of a property of Keys. EXECUTE @OLEResult = sp_OAGetProperty @Keys, 'PropertyName', @SomeSQLValue OUTPUT IF @OLEResult <> 0 PRINT 'PropertyName get problem' --Call some method of Keys. EXEC @OLEResult = sp_OAMethod @Keys, 'MethodName', @ReturnValue OUTPUT, @parameter1, @parameter2
© 1996 - 2009 Antonin Foller, Motobit Software | About, Contacts | e-mail: info@pstruh.cz