1 \raw HTML

     2 //! [0]

     3 <SCRIPT LANGUAGE="VBScript">

     4 Sub ToolButton_Clicked()

     5     RadioButton.text = InputBox( "Enter something", "Wrapper Demo" )

     6 End Sub

     7 

     8 Sub PushButton_clicked()

     9     MsgBox( "Thank you!" )

    10 End Sub

    11 

    12 Sub CheckBox_toggled( state )

    13     if state = 0 then

    14         CheckBox.text = "Check me!"

    15     else

    16         CheckBox.text = "Uncheck me!"

    17     end if

    18 End Sub

    19 </SCRIPT>

    20 <p />

    21 A QPushButton:<br />

    22 <object ID="PushButton" CLASSID="CLSID:2B262458-A4B6-468B-B7D4-CF5FEE0A7092"

    23 CODEBASE="http://qt.nokia.com/demos/wrapperax.cab">

    24     <PARAM NAME="text" VALUE="Click me!" />

    25 [Object not available! Did you forget to build and register the server?]

    26 </object><br />

    27 

    28 <p />

    29 A QCheckBox:<br />

    30 <object ID="CheckBox" CLASSID="CLSID:6E795de9-872d-43cf-a831-496ef9d86c68"

    31 CODEBASE="http://qt.nokia.com/demos/wrapperax.cab">

    32     <PARAM NAME="text" VALUE="Check me!" />

    33 [Object not available! Did you forget to build and register the server?]

    34 </object><br />

    35 

    36 <p />

    37 A QToolButton:<br />

    38 <object ID="ToolButton" CLASSID="CLSID:7c0ffe7a-60c3-4666-bde2-5cf2b54390a1"

    39 CODEBASE="http://qt.nokia.com/demos/wrapperax.cab">

    40 [Object not available! Did you forget to build and register the server?]

    41 </object><br />

    42 

    43 <p />

    44 A QRadioButton:<br />

    45 <object ID="RadioButton" CLASSID="CLSID:afcf78c8-446c-409a-93b3-ba2959039189"

    46 CODEBASE="http://qt.nokia.com/demos/wrapperax.cab">

    47     <PARAM NAME="text" VALUE="Tune me!" />

    48 [Object not available! Did you forget to build and register the server?]

    49 </object><br />

    50 //! [0]

    51 \endraw