DlgEnable Instruction/Function
SyntaxGroupDlgEnable DlgItem[, Enable] -or- DlgEnable(DlgItem)
Dialog FunctionDescription
Instruction: Enable or disable DlgItem.
Function: Return True if DlgItem is enabled.
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.
Note: Use -1 to enable or disable all the dialog items at once.Enable It this numeric value is True then enable DlgItem. Otherwise, disable it. If this omitted then toggle it.
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 PushButton 110,90,60,20,"&Disable" End Dialog Dim dlg As UserDialog Debug.Print Dialog(dlg) End Sub Function DialogFunc(DlgItem$, Action%, SuppValue?) As Boolean Debug.Print "Action="; Action% Select Case Action% Case 1 ' Dialog box initialization Beep Case 2 ' Value changing or button pressed Select Case DlgItem$ Case "Disable" DlgText DlgItem$,"&Enable" DlgEnable "Text",False DialogFunc = True 'do not exit the dialog Case "Enable" DlgText DlgItem$,"&Disable" DlgEnable "Text",True DialogFunc = True 'do not exit the dialog End Select End Select End Function