PC-DMIS Help Center - 2022.1

Click here to see this page in full context

Example - CHECKBOX Statement

1. Sub Main ()

   1. Begin Dialog DialogName1 60, 70, 160, 50, "ASC - Hello"

      1. CHECKBOX 42, 10, 48, 12, "&CHECKME", .checkInt

         OKBUTTON 42, 24, 40, 12

      End Dialog

      Dim Dlg1 As DialogName1

      Dialog Dlg1

      If Dlg1.checkInt = 0 Then

      1. Q = "didn't check the box."

      Else

      1. Q = "checked the box."

      End If

      MsgBox "You " & Q

   End Sub