NewFrame |
Description
Adds a frame control to a form |
Syntax
[Set oCtl =] oFrm. NewFrame |
( Name, Left, Top, Width, Height, Caption, [Container] ) |
Parameters
Part |
Description |
Set oCtl = |
(optional) Store a reference to the new control in the variable oCtl. This variable can be used to access the control's properties and methods. |
oFrm |
A reference to a form object (see the NewForm method) |
Name |
The name of the control. It must be unique within the form and may not be empty or start with an asterisk (*) |
Left |
See the list of properties below |
Top |
See the list of properties below |
Width |
See the list of properties below |
Height |
See the list of properties below |
Caption |
See the list of properties below |
Container |
(optional) The name of an existing frame control that will act as container for the frame. If unspecified or an empty string, the Form itself will be the container. Please note that the Left and Top properties are relative to the container's left and top edges |
Properties and Methods
Property |
Description |
|
BackColor |
Background color (use the RGB function to assign a color value) |
|
BorderStyle |
0 |
None |
1 |
Fixed single (default) |
|
Caption |
The text displayed in the control (maximum 255 character). You can specify an access key for the control by including an ampersand sign (&) |
|
Enabled |
(boolean) Determines if the control can respond to user-generated events |
|
Fontname |
The font used to display text. The default is determined by the system. Check the glossary for an explanation about setting font properties. |
|
Fontsize |
The size of the font in points. The maximum is 2160 points. |
|
Fontbold |
(boolean) Enable or disable the bold style of a font |
|
Fontitalic |
(boolean) Enable or disable the italic style of a font |
|
Fontstrikethru |
(boolean) Enable or disable the |
|
Fontunderline |
(boolean) Enable or disable the underline style of a font |
|
ForeColor |
Foreground color (use the RGB function to assign a color value) |
|
Height |
The height of the control in twips |
|
Left |
The distance from the left edge of the specified container in twips |
|
Parent |
(read-only) Returns the parent form, object or collection. You can use the parent property to access the properties and methods of an object's parent |
|
Tag |
(reserved) Used internally to store the user-defined controlname |
|
ToolTipText |
Explanatory text that appears in a small rectangle below the object when you pause the mouse pointer (hover) over it for about one second |
|
Top |
The distance from the top edge of the specified container in twips |
|
Visible |
(boolean) Determines whether the control is visible or hidden |
|
Width |
The width of the control in twips |
|
Method |
Description |
|
Move |
Parameters: left [, top [, width [, height ]]] |
|
Only the left argument is required. However, to specify any other arguments, you must specify all arguments that appear in the syntax before the argument you want to specify. For example, you can't specify width without specifying left and top. Any trailing arguments that are unspecified remain unchanged |
||
Refresh |
Forces a complete repaint of a control |
Example
Option Explicit Set oDlg = Wscript.CreateObject("WshDialog.Kit", "oDlg_") 'Add a new form and store a reference to it in the variable oFrm Set oFrm = oDlg.NewForm("Sample") 'Add a frame, named FRM1, to the form oFrm.NewFrame "FRM1", 100, 100, 2000, 1500, "Frame" 'Add a few optionbuttons to the FRM1 frame oFrm.NewOptionButton "OBN1", 120, 300, 1000, 255, "Option1", False, "FRM1" oFrm.NewOptionButton "OBN2", 120, 650, 1000, 255, "Option2", True, "FRM1" oFrm.NewOptionButton "OBN3", 120, 1000, 1000, 255, "Option3", False, "FRM1" 'Add an OK button and set it's Default property Set oCtl = oFrm.NewButton("OK", 650, 1750, 1000, 375, "&OK") oCtl.Default = True 'Automatically size the form and show it (modally) oFrm.Autosize oFrm.Show vbModal 'Show which optionbutton was selected (only if the OK button was clicked) If oDlg.Clicked = "OK" Then MsgBox "Optionbutton " & oFrm.GetOptionButton("FRM1") & " was selected" End If |