home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 February / PCWK0297.iso / lotus / english / lotus031.dsk / MODAL.LSS < prev    next >
Encoding:
Text File  |  1995-08-08  |  1.1 KB  |  34 lines
  1. %REM
  2. This template demonstrates creating a Modal Dialog Box. 
  3. You will need to use the Lotus Dialog Editor to create the Dialog Box. 
  4. 1.    With your cursor in the main document, select Edit/ Scripts & Macros/ New Custom Dialog.  
  5. 2.    Paste your Custom Dialog Box into the new section 
  6. 3.    Change the Section tab to the name you will use to reference the dialog.  
  7. 4.    Modify the code below as needed for your application.
  8. %ENDREM
  9.     
  10. Dim Dlg As LWPCustomDialog
  11.     If not (Dlg is Nothing) then
  12.         Delete Dlg
  13.     End If
  14.  
  15. Set Dlg = Bind("!NameOfDialog")
  16.     
  17.     %REM
  18.     If you have any values that need to be inserted into the dialog prior to displaying, use the following
  19.     Methods:
  20.         Dlg.AddListBoxText( Control_ID, Text )
  21.         Dlg.SetControlText( Control_ID, Text )
  22.         Dlg.SetControlValue( Control_ID, Value )
  23.     This line fills and edit box with some default text
  24.         Dlg.SetControlText  8000, "Type Company Name Here" 
  25.     This line sets a radio button to selected
  26.         Dlg.SetControlValue  20, True 
  27.     %EndRem
  28.     
  29. RtnValue% = Dlg.Show(1)
  30.  
  31. If RtnValue% = 1 Then
  32.     Messagebox Dlg.GetControlText( 8000)
  33. End If
  34.