ID: q171673
The information in this article applies to:
- Microsoft FrontPage 97 for Windows with Bonus Pack
This article describes how to insert Microsoft Forms 2.0 ActiveX Controls in Microsoft FrontPage Editor. The following examples use Microsoft Visual Basic Scripting Edition (VBScript) code to set properties and respond to control events.
For information about how to do this FrontPage 98, please see the following article in the Microsoft Knowledge Base:
ARTICLE-ID: Q180822
TITLE : FP98: How to Use Microsoft Forms 2.0 ActiveX Controls
WARNING: ANY USE OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this code "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.
The Microsoft Forms 2.0 ActiveX Controls described in this article are included with FrontPage.
1. On the Insert menu, point to Advanced, and then click ActiveX Control.
2. In the ActiveX Control Properties dialog box, do the following:
a. In the Pick A Control list, select "Microsoft Forms 2.0
b. In the Name box, type "CommandButton1" (without the quotation
c. Click OK.
4. In the Script dialog box, do the following:
a. Under Language, click VBScript and click to clear the "Run Script
on Server" check box.
b. In the Script box, enter the following code:
Sub CommandButton1_Click()
' The Following line displays a Message Box with the date
' when the command button is clicked.
msgbox "Today's date is " &DATE,64,"My MsgBox"
End sub
c. Click OK.
1. On the Insert menu, point to Advanced, and then click ActiveX Control.
2. In the ActiveX Control Properties dialog box, do the following:
a. In the Pick A Control list, select "Microsoft Forms 2.0
CommandButton."
b. In the Name box, type "CommandButton2" (without the quotation
c. Click OK.
4. In the ActiveX Control Properties dialog box, do the following:
a. In the Pick A Control list, select "Microsoft Forms 2.0 Label."
b. In the Name box, type "Label1" (without the quotation marks).
c. In the Width box, enter 200.
d. Click OK.
5. In the Script dialog box, do the following:
a. Under Language, click VBScript and click to clear the "Run Script
on Server" check box.
b. In the Script box, enter the following code:
Sub CommandButton2_Click()
' The following example fills a Label control with text
' when the command button is clicked.
Label1.Caption="Today's date is " & DATE
End sub
c. Click OK.
1. On the Insert menu, point to Advanced, and then click ActiveX Control.
2. In the ActiveX Control Properties dialog box, do the following:
a. In the Pick A Control list, select "Microsoft Forms 2.0 TextBox."
b. In the Name box, type "TextBox1" (without the quotation marks).
c. In the Width box, enter 140.
d. Click OK.
4. In the ActiveX Control Properties dialog box, do the following:
a. In the Pick A Control list, select "Microsoft Forms 2.0
CommandButton."
b. In the Name box, type "CommandButton3" (without the quotation
marks).
c. Click OK.
6. In the ActiveX Control Properties dialog box, do the following:
a. In the Pick A Control list, select "Microsoft Forms 2.0 TextBox."
b. In the Name box, type "TextBox2" (without the quotation marks).
c. In the Width box, enter 300.
d. Click OK.
8. In the Script dialog box, do the following:
a. Under Language, click VBScript and click to clear the "Run Script
on Server" check box.
b. In the Script box, enter the following code:
Sub CommandButton3_Click()
' The following example fills in a text box
' when the command button is clicked
TextBox2.Text="You have entered: "& UCASE(TextBox1.Text)
End sub
c. Click OK.
1. On the Insert menu, point to Advanced, and then click ActiveX Control.
2. In the ActiveX Control Properties dialog box, do the following:
a. In the Pick A Control list, select "Microsoft Forms 2.0 CheckBox."
b. In the Name box, type "CheckBox1" (without the quotation marks).
c. Click OK.
4. In the ActiveX Control Properties dialog box, do the following:
a. In the Pick A Control list, select "Microsoft Forms 2.0
CommandButton."
b. In the Name box, type "CommandButton4" (without the quotation
c. In the Width box, enter 140.
d. Click OK.
6. In the ActiveX Control Properties dialog box, do the following:
a. In the Pick A Control list, select "Microsoft Forms 2.0 Label."
b. In the Name box, type "Label2" (without the quotation marks).
c. In the Width box, enter 300.
d. Click OK.
8. In the Script dialog box, do the following:
a. Under Language, click VBScript and click to clear the "Run Script
on Server" check box.
b. In the Script box, enter the following code:
sub CommandButton4_Click()
' This example evaluates the value of the checkbox and fills
' in text in the label when the command button is clicked
if CheckBox1.Value=TRUE then Label2.Caption="The checkbox _
is checked"
if CheckBox1.Value=FALSE then Label2.Caption="The checkbox _
is not checked"
end sub
c. Click OK.
1. On the Insert menu, point to Advanced, and then click ActiveX Control.
2. In the ActiveX Control Properties dialog box, do the following:
a. In the Pick A Control list, select "Microsoft Forms 2.0
OptionButton."
b. In the Name box, type "OptionButton1" (without the quotation marks).
c. Click OK.
4. In the ActiveX Control Properties dialog box, do the following:
a. In the Pick A Control list, select "Microsoft Forms 2.0
CommandButton."
b. In the Name box, type "CommandButton5" (without the quotation
marks).
c. Click OK.
6. In the ActiveX Control Properties dialog box, do the following:
a. In the Pick A Control list, select "Microsoft Forms 2.0 Label."
b. In the Name box, type "Label3" (without the quotation marks).
c. In the Width box, enter 300.
d. Click OK.
8. On the Insert menu, point to Advanced, and then click ActiveX Control.
9. In the ActiveX Control Properties dialog box, do the following:
a. In the Pick A Control list, select "Microsoft Forms 2.0
OptionButton."
b. In the Name box, type "OptionButton2" (without the quotation
marks). Click OK.
11. In the Script dialog box, do the following:
a. Under Language, click VBScript and click to clear the "Run Script
on Server" check box.
b. In the Script box, enter the following code:
Sub CommandButton5_Click()
' This example evaluates the value of the option button and
' in text in the label when the command button is clicked
If OptionButton1.Value=True Then
Label3.Caption = "This option is selected"
Else
Label3.Caption = "The other option is selected"
End If
End sub
c. Click OK.
1. On the Insert menu, point to Advanced, and then click ActiveX Control.
2. In the ActiveX Control Properties dialog box, do the following:
a. In the Pick A Control list, select "Microsoft Forms 2.0
ToggleButton."
b. In the Name box, type "ToggleButton1" (without the quotation
marks).
c. In the Width box, enter 100. In the Height box, enter 30.
d. Click OK.
4. In the Script dialog box, do the following:
a. Under Language, click VBScript and click to clear the "Run Script
on Server" check box.
b. In the Script box, enter the following code:
sub ToggleButton1_Click()
' This example evaluates the value of the toggle button and
' fills in text in the label when the command button is
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "DEPRESSED"
Else
ToggleButton1.Caption = ""
End If
End Sub
c. Click OK.
1. On the Insert menu, point to Advanced, and then click ActiveX Control.
2. In the ActiveX Control Properties dialog box, do the following:
a. In the Pick A Control list, select "Microsoft Forms 2.0
SpinButton."
b. In the Name box, type "SpinButton1" (without the quotation
marks).
c. Click Properties. In the Properties window, do the following:
1) In the Properties list, click Min. In the Value box, type "-100"
(without the quotation marks). Click Apply.
2) Click the Close button in the top right corner of the Properties
window.
3) In the Edit ActiveX Control dialog box, click OK.
d. Click OK.
4. In the ActiveX Control Properties dialog box, do the following:
a. In the Pick A Control list, select "Microsoft Forms 2.0 Label."
b. In the Name box, type "Label4" (without the quotation marks).
c. Click OK.
6. In the Script dialog box, do the following:
a. Under Language, click VBScript and click to clear the "Run Script
on Server" check box.
b. In the Script box, enter the following code:
sub SpinButton1_SpinDown()
' This example evaluates if the spin button has been depressed
and
' fills in text in the label when the command button is clicked
Label4.Caption = SpinButton1.Value
end sub
sub SpinButton1_SpinUp()
' This example evaluates if the spin button has not been
' and fills in text in the label when the command button is
Label4.Caption = SpinButton1.Value
end sub
c. Click OK.
1. On the Insert menu, point to Advanced, and then click ActiveX Control.
2. In the ActiveX Control Properties dialog box, do the following:
a. In the Pick A Control list, select "Microsoft Forms 2.0
ScrollBar."
b. In the Name box, type "ScrollBar1" (without the quotation
marks).
c. Click Properties. In the Properties window, do the following:
1) In the Properties list, click Min.
2) In the Value box, type "-32766" (without the quotation marks).
Apply.
3) Click the Close button in the top right corner of the Properties
window.
4) In the Edit ActiveX Control dialog box, click OK.
d. Click OK.
4. In the ActiveX Control Properties dialog box, do the following:
a. In the Pick A Control list, select "Microsoft Forms 2.0 Label."
b. In the Name box, type "Label5" (without the quotation marks).
c. Click OK.
6. In the Script dialog box, do the following:
a. Under Language, click VBScript and click to clear the "Run Script
on Server" check box.
b. In the Script box, enter the following code:
Sub ScrollBar_Change()
' This example evaluates the position of the marker on the
' bar fills in text in the label when the command button is
Label5.Caption = -(ScrollBar1.Value)
End sub
c. Click OK.
1. On the Insert menu, point to Advanced, and then click ActiveX Control.
2. In the ActiveX Control Properties dialog box, do the following:
a. In the Pick A Control list, select "Microsoft Forms 2.0
ListBox."
b. In the Name box, type "ListBox1" (without the quotation marks).
c. Click Properties. In the Properties window, do the following:
1) In the Properties list, click BorderStyle.
2) In the Value list, select 1-Single.
3) Click Apply.
4) Click the Close button in the top right corner of the Properties
window.
5) In the Edit ActiveX Control dialog box, click OK.
d. Click OK.
4. In the ActiveX Control Properties dialog box, do the following:
a. In the Pick A Control list, select "Microsoft Forms 2.0 Label."
b. In the Name box, type "Label6" (without the quotation marks).
c. In the Width box, enter 400.
d. Click OK.
6. In the Script dialog box, do the following:
a. Under Language, click VBScript and click to clear the "Run Script
on Server" check box.
b. In the Script box, enter the following code:
Sub ListBox1_Click()
' This example evaluates which option in a list box has been
' selected and fills in the resulting text in the label when
' the command button is clicked
Label6.Caption= "You have selected " & _
Listbox1.List(ListBox1.ListIndex)
End sub
NOTE: A ListBox requires you to write script that populates the
list with values in an array. The script should be inserted at the
top of the page so that it executes when your page is loaded into
a Web browser.
c. Click OK.
The insertion point should be positioned at the beginning of a blank
at the top of the page.
9. In the Script dialog box, do the following:
a. Under Language, click VBScript and click to clear the "Run Script
on Server" check box.
b. In the Script box, enter the following code:
Sub window_onLoad()
' This example creates and populates the array used in the
' proceeding list box example
' dim array to populate ListBox
Dim ListBoxArray(2)
ListBoxArray(0)="RED"
ListBoxArray(1)="WHITE"
ListBoxArray(2)="BLUE"
ListBox1.List=ListBoxArray
End sub
c. Click OK.
1. On the Insert menu, point to Advanced, and then click ActiveX Control.
2. In the ActiveX Control Properties dialog box, do the following:
a. In the Pick A Control list, select "Microsoft Forms 2.0
ComboBox."
b. In the Name box, type "ComboBox1" (without the quotation marks).
Click OK.
4. In the ActiveX Control Properties dialog box, do the following:
a. In the Pick A Control list, "select Microsoft Forms 2.0 Label."
b. In the Name box, type "Label7" (without the quotation marks).
c. In the Width box, enter 400. Click OK.
6. In the Script dialog box, do the following:
a. Under Language, click VBScript and click to clear the "Run Script
on Server" check box.
b. In the Script box, enter the following code:
sub ComboBox1_Click()
' This example evaluates which option in a combo box has been
' selected and fills in the resulting text in the label when
' the command button is clicked.
Label7.Caption= "You have selected " & _
ComboBox1.List(ComboBox1.ListIndex)
end sub
NOTE: A ListBox requires you to write script that populates the
list with values in an array. The script should be inserted at the
top of the page so that it executes when your page is loaded into a
Web browser.
NOTE: This icon was created in step 6 of the List Box example.
a. Under Language, click VBScript and click to clear the "Run Script
on Server check box."
b. In the Script box, enter the following code.
NOTE: Place this code at the bottom of the Script box, after the
existing script, but before the last line which reads "end sub."
' This example creates and populates the array used in the
' combo box example.
'
' dimension array to populate ComboBox
Dim ListBoxArray(2)
ListBoxArray(0)="RED"
ListBoxArray(1)="WHITE"
ListBoxArray(2)="BLUE"
ListBox1.List=ListBoxArray
c. Click OK.
For additional information about Microsoft Visual Basic Scripting Edition, please see the following Microsoft World Wide Web site:
http://www.microsoft.com/scripting/vbcript
Keywords : kbcode kbdta fpedit
Version : windows:97
Platform : WINDOWS
Hardware : x86
Issue type : kbhowtoLast Reviewed: July 1, 1999