PC-DMIS Help Center - 2023.1

Click here to see this page in full context

Example - CHECKBOX Statement

Sub Main()
    Begin Dialog Name1 60, 70, 160, 50, "ASC - Hello"
        CHECKBOX 42, 10, 48, 12, "&CHECKME", .checkInt
        OKBUTTON 42, 24, 40, 12
    End Dialog
    Dim Dlg1 As Name1
    Dialog Dlg1
    If Dlg1.checkInt = 0 Then
        Q = "You didn't check the box."
    Else
        Q = "You checked the box."
    End If
    MsgBox Q
End Sub