DlgType Function
SyntaxGroupDlgType[$](DlgItem)
Dialog FunctionDescription
Return a string value indicating the type of the DlgItem. One of: "CancelButton", "CheckBox", "ComboBox", "DropListBox", "GroupBox", "ListBox", "MultiListBox", "OKButton", "OptionButton", "OptionGroup", "Picture", "PushButton", "Text", "TextBox".
This instruction/function must be called directly or indirectly from a dialogfunc.
Parameters Description DlgItem If this is a numeric value then it is the dialog item number. The first item is 0, second is 1, etc. If this is a string value then it is the dialog item's field name.
Sub Main Begin Dialog UserDialog 200,120,.DialogFunc Text 10,10,180,15,"Please push the OK button" TextBox 10,40,180,15,.Text OKButton 30,90,60,20 End Dialog Dim dlg As UserDialog Dialog dlg End Sub Function DialogFunc(DlgItem$, Action%, SuppValue?) As Boolean Debug.Print "Action="; Action% Select Case Action% Case 1 ' Dialog box initialization Beep For I = 0 To DlgCount()-1 Debug.Print I; DlgType(I) Next I End Select End Function