Post by SudsyUncle® on May 12, 2004 17:55:58 GMT -5
ok, for the first time,im stuck and can find no help thru searches.
im trying to create an ocx that reads 3 vars from the webpage it sets in, and from all i have seen, i cant find any reason that it dont read/use the webpage vars
this is what i have on webpagebr]
and this is the relevant from the sourcebr]
any clues as to what im missing or doing wrong?
im trying to create an ocx that reads 3 vars from the webpage it sets in, and from all i have seen, i cant find any reason that it dont read/use the webpage vars
this is what i have on webpagebr]
<HTML>
<BODY>
<OBJECT CLASSID="CLSID:6784C3BE-4675-4E87-B788-73F182EF12E1">
<PARAM NAME="_ExtentX" VALUE="19579">
<PARAM NAME="_ExtentY" VALUE="12753">
<PARAM NAME="Nick" VALUE="bla">
<PARAM NAME="Pass" VALUE="blabla">
<PARAM NAME="Room" VALUE="blablabla">
</OBJECT>
</BODY>
</HTML>
and this is the relevant from the sourcebr]
Const m_def_Nick = "test"
Const m_def_Pass = "test2"
Const m_def_Room = "test3"
Dim hnick As String, hroom As String, hpass As String
Private Sub UserControl_InitProperties()
hnick = m_def_Nick
hpass = m_def_Pass
hroom = m_def_Room
End Sub
Public Property Get Nick() As String
Nick = hnick
End Property
Public Property Get Pass() As String
Pass = hpass
End Property
Public Property Get Room() As String
Room = hroom
End Property
Public Property Let Room(ByVal New_Room As String)
hroom = New_Room
PropertyChanged "Room"
End Property
Public Property Let Pass(ByVal New_Pass As String)
hpass = New_Pass
PropertyChanged "Pass"
End Property
Public Property Let Nick(ByVal New_Nick As String)
hnick = New_Nick
PropertyChanged "Nick"
End Property
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
hnick = PropBag.ReadProperty("Nick", "")
hpass = PropBag.ReadProperty("Pass", "")
hroom = PropBag.ReadProperty("Room", "")
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("Nick", hnick, "")
Call PropBag.WriteProperty("Pass", hpass, "")
Call PropBag.WriteProperty("Room", hroom, "")
End Sub
any clues as to what im missing or doing wrong?