Type property (WinStudio scripts)
Applies To
IWSFormComponent interface
Definition
Returns an integer indicating a component's type (such as static component, grid component, radio button component, and so on). Read-only.
Syntax
object.Type
| Part | Description |
| object | Required. The name of a valid component object. |
Remarks
The return value is an integer code indicating the type of component it is:
| Integer Code | Component Type |
|---|---|
| -1 | Pointer or None |
| 0 | Static display field |
| 1 | Editable field |
| 3 | Drop-down list |
| 4 | List |
| 5 | Check box |
| 6 | Group box |
| 7 | Option ("radio") button |
| 8 | Button |
| 9 | Default button
(DefPushButton)
注意:This is a variation of the regular "push button" type,
and is not available from the WinStudio Toolbox. To select it, first place a
regular Button component type on the form and then use the Type drop-down list
in the property sheet for the component to select DefPushButton. For more
information, see
“About Button Components”.
|
| 10 | Menu item |
| 11 | Toolbar button |
| 12 | Notebook |
| 13 | Notebook tab |
| 14 | Grid |
| 15 | Grid column |
| 16 | Graph |
| 18 | Multiline edit field |
| 19 | Tree |
| 24 | Form page |
| 25 | User control |
| 26 | Date combo box |
| 27 | Combo box |
| 38 | Hyperlink button |
| 39 | Browser |
| 40 | Cancel button
注意:This is a variation of the regular "push button" type,
and is not available from the WinStudio Toolbox. To select it, first place a
regular Button component type on the form and then use the Type drop-down list
in the property sheet for the component to select CancelPushButton. For more
information, see
“About Button Components”.
|
Example
Sub Main()
Dim iButtonType As Integer
Dim iEditType As Integer
Dim iComboType As Integer
Dim iGrid As Integer
iButtonType = ThisForm.Components("button1").Type
iEditType = ThisForm.Components("edit1").Type
iComboType = ThisForm.Components("comboBox1").Type
iGrid = ThisForm.Components("grid1").Type
Application.ShowMessage("Button type = " & iButtonType & vbLf & _
"Edit box type = " & iEditType & vbLf & _
"Combo box type = " & iComboType & vbLf & _
"Grid type = " & iGrid)
End Sub