home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 February / PCWK0297.iso / lotus / english / lotus031.dsk / MODELESS.LSS < prev    next >
Encoding:
Text File  |  1995-08-08  |  1.4 KB  |  40 lines
  1. %REM
  2. This template demonstrates creating a Modeless 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.     'Place this line in the Declarations section of your script
  11.     Dim Dlg As LWPCustomDialog
  12.  
  13.     If not (Dlg is Nothing) then
  14.         Delete Dlg
  15.     End If
  16.  
  17.     
  18.     'NameOfDialog is the name of the division tab that contains the dialog code
  19.     
  20.     Set Dlg = Bind("!NameOfDialog")
  21.     Dlg.Modal = False
  22.     
  23.     'If you have any values that need to be inserted into the dialog prior to displaying, use the following
  24.     'Methods:
  25.     '        Dlg.AddListBoxText( Control_ID, Text )
  26.     '        Dlg.SetControlText( Control_ID, Text )
  27.     '        Dlg.SetControlValue( Control_ID, Value )
  28.     'This line fills and edit box with some dafault text
  29.     Dlg.SetControlText  8000, "Type Company Name Here" 
  30.     'This line sets a radio button to selected
  31.     Dlg.SetControlValue  20, True 
  32.     
  33.     'Use the "On Event" command to manually set up a subroutine that will perform the necessary functions
  34.     'The Script Editor will automatically provide event subroutines to handle 
  35.     'dialog events
  36.     'On Event DialogEvent From Dlg Call MyDialogEvent
  37.     
  38.     Dlg.Show(1)
  39.     
  40.