home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Windows 95 Special 2 / WIN95_2.bin / utils / envelop / envelop.6 / Tools / Bootcamp / basic / arrayfrm / arrayfrm.eto < prev    next >
Encoding:
Text File  |  1996-07-08  |  1.8 KB  |  65 lines
  1. Type ArrayFormMasterForm From SampleMasterForm
  2.   Dim btnCreate As New Button
  3.   Dim btnDelete As New Button
  4.  
  5.   ' METHODS for object: ArrayFormMasterForm
  6.   Sub btnCreate_Click()
  7.     Dim s As String
  8.     Dim o As Object
  9.     Dim m As ObjectModule
  10.     
  11.     ' Preserve the current open module; open my module so new form
  12.     ' belongs to my module (allows module to unload easily).
  13.     m = ModuleManager.CurrentModule
  14.     ModuleManager.CurrentModule = ModuleManager.ModuleContaining(Me)
  15.  
  16.     Try
  17.       s = UniqueObjectNameFromString("ArrayForm")
  18.       o = CopyObject(ArrayFormMasterForm, s)
  19.     
  20.       o.Show
  21.       o.Move Left + (Width / 10), Top + (Height / 10), Width, Height
  22.       o.BackColor = RGB(rnd() * 256, rnd() * 256, rnd() * 256)
  23.     Catch
  24.     End Try
  25.     ModuleManager.CurrentModule = m
  26.   End Sub
  27.  
  28.   Sub btnDelete_Click()
  29.     ' If the form is a copy of ArrayFormMasterForm, then destroy it.
  30.     If Me <> ArrayFormMasterForm Then 
  31.       DestroyObject(Me)
  32.     End If
  33.   End Sub
  34.  
  35.   Sub ResetApplication_Click ()
  36.     ' Set the default backcolor for the form
  37.     ArrayFormMasterForm.BackColor = 0
  38.   End Sub
  39.  
  40. End Type
  41.  
  42. Begin Code
  43. ' Reconstruction commands for object: ArrayFormMasterForm
  44. '
  45.   With ArrayFormMasterForm
  46.     .BackColor := 0
  47.     .Move(7050, 6690, 3585, 4635)
  48.     .SampleDir := "W:\bootcamp\basic\arrayfrm\"
  49.     .SampleName := "arrayfrm"
  50.     With .btnCreate
  51.       .Caption := "Create"
  52.       .ZOrder := 1
  53.       .Move(300, 300, 1200, 450)
  54.     End With  'ArrayFormMasterForm.btnCreate
  55.     With .btnDelete
  56.       .Caption := "Close"
  57.       .ZOrder := 2
  58.       .Move(1950, 3150, 1170, 465)
  59.     End With  'ArrayFormMasterForm.btnDelete
  60.     With .helpfile
  61.       .FileName := "W:\bootcamp\basic\arrayfrm\arrayfrm.hlp"
  62.     End With  'ArrayFormMasterForm.helpfile
  63.   End With  'ArrayFormMasterForm
  64. End Code
  65.