setting properties

[Thai]

I am trying to set the property of an ActiveX control I made in html/vbscript.

Here is the ActiveX Control's code:

Private MyJobKey As Variant

Public Property Let JobKey(ByVal NewValue As Variant)
  MyJobKey = NewValue
End Property

Public Property Get JobKey() As Variant
  JobKey = MyJobKey
End Property

Private Sub Command1_Click()
  MsgBox Me.JobKey
End Sub

Here is the code for the vbscript:

<object 
	ID="MyControl"
	classid="CLSID:48A068E9-B3C8-4EB8-B0E8-60AF511F30EB"
	width=80
	height=30>
</object>

<script language=vbscript>
  MyControl.JobKey = 1
</script>

So the script should have set the MyControl's JobKey to 1, but when I click on Command1 the message box doesn't display 1. Any ideas?

Thanks!
Thai

[The_Fog]

New activeX Com!

Create the following code in a class called "GlobalKey"

Public function jobKey(myKey as integer)
MsgBox (myKey)
End funtion

save and compile it as Key.dll
then use regsvr32 to register the dll.

"regsvr32 key.dll"

New Script:

<script language="vbscript">
set myControl = CreateObject("Key.GlobalKey")
s = myControl.jobKey(1)
</script>


This will result in a msgbox (containing "1")displayed by the Com-Object.
Hope this helped.

The Fog