This function returns the name of the bevel type.
Control Type in Object Inspector | Type Name |
TButton | TICDOButton |
TBevel | TICDOBevel |
TCheckBox | TICDOChechBox |
TListControl | TICDOListControl |
TComboBox | TICDOComboBox |
TEdit | TICDOEdit |
TImage | TICDOImage |
TLabel | TICDOLabel |
TLinker | TICDOLinker |
TMemo | TICDOMemo |
TRadioButton | TICDORadioButton |
TReport | TICDOReport |
TRichEdit | TICDORichEdit |
TISliceImageEditor | TISliceImageEditor |
TShape | TICDOShape |
TWebBrowser | TICDOWebBrowser |
object.TypeName()
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISBevel interface |
string
Returns the name of the bevel type.
Dim aBevel
Dim aBevelInfo
Set aBevel = Form.Controls_("Bevel2")
aBevelInfo =_
"Caption: " & aBevel.Caption & vbNewLine &_
"ShortName: " & aBevel.ShortName & vbNewLine &_
"TypeName: " & aBevel.TypeName & vbNewLine &_
"Width: " & aBevel.Width & vbNewLine &_
"Height: " & aBevel.Height & vbNewLine &_
"Left: " & aBevel.Left & vbNewLine &_
"Top: " & aBevel.Top & vbNewLine &_
"Style: " & aBevel.Style & vbNewLine &_
"Tag: " & aBevel.Tag & vbNewLine &_
"Enabled: " & aBevel.Enabled & vbNewLine
Profile.MsgBox(aBevelInfo)
In Profile Client v8 on User Interface Type Name cannot be found.