DlgValue Identifier, Value
DlgValue(Identifier)

The DlgValue statement is used in a dialog function to select or clear a dialog box control by setting the numeric value associated with the control specified by Identifier. For example, DlgValue MyCheckBox, 1 selects a check box, DlgValue MyCHeckBox, 0 clears a check box, and DlgValue MyCheckBox, -1 fills the check box with gray. An error occurs if Identifier specifies a dialog box control such as a text box or an option button that cannot be set with a numeric value.

The following dialog function uses a Select Case control structure to check the value of Action. The SuppValue is ignored in this function.

' This sample file outlines dialog capabilities, including nesting
' dialog boxes.
Sub Main
   Begin Dialog UserDialog1 60,60, 260, 188, "3", .DlgFunc
      Text 8,10,73,13, "Text Label:"
      TextBox 8, 26, 160, 18, .FText
       CheckBox 8, 56, 203, 16, "Check to display controls",. Chk1
       GroupBox 8, 79, 230, 70, "This is a group box:", .Group
       CheckBox 18,100,189,16, "Check to change button text", .Chk2
       PushButton 18, 118, 159, 16, "File History", .History
       OKButton 177, 8, 58, 21
       CancelButton 177, 32, 58, 21
   End Dialog
 
   Dim Dlg1 As UserDialog1
   x = Dialog( Dlg1 )
End Sub
 
Function DlgFunc( ControlID$, Action%, SuppValue%)
 
Begin Dialog UserDialog2 160,160, 260, 188, "3", .DlgFunc
   Text 8,10,73,13, "New dialog Label:"
   TextBox 8, 26, 160, 18, .FText
   CheckBox 8, 56, 203, 16, "New CheckBox",. ch1
   CheckBox 18,100,189,16, "Additional CheckBox", .ch2
   PushButton 18, 118, 159, 16, "Push Button", .but1
   OKButton 177, 8, 58, 21
   CancelButton 177, 32, 58, 21
End Dialog
Dim Dlg2 As UserDialog2
Dlg2.FText = "Your default string goes here"
 
Select Case Action%
 
Case 1
   DlgEnable "Group", 0
   DlgVisible "Chk2", 0
   DlgVisible "History", 0 
Case 2
   If ControlID$ = "Chk1" Then
       DlgEnable "Group"
       DlgVisible "Chk2"
       DlgVisible "History"
   End If
 
   If ControlID$ = "Chk2" Then
      DlgText "History", "Push to display nested dialog"
   End If
 
   If ControlID$ = "History" Then
       DlgEnable =1 
       x = Dialog( Dlg2 )
   End If
 
Case Else
 
End Select
DlgEnable =1
 
End Function