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 / resize / resize.eto < prev    next >
Encoding:
Text File  |  1996-07-08  |  3.5 KB  |  115 lines
  1. Type ResizeMasterForm From SampleMasterForm
  2.   Dim Image1 As New Image
  3.   Dim Image2 As New Image
  4.   Dim Image3 As New Image
  5.   Dim Image4 As New Image
  6.   Dim Image5 As New Image
  7.   Dim Image6 As New Image
  8.   Dim Image7 As New Image
  9.   Dim Image8 As New Image
  10.   Dim Image9 As New Image
  11.   Dim Image10 As New Image
  12.   Dim Image11 As New Image
  13.   Dim Image12 As New Image
  14.  
  15.   ' METHODS for object: ResizeMasterForm
  16.   Sub btnClose_Click()
  17.     Hide
  18.   End Sub
  19.  
  20.   Sub ResizeDemoExit_Click()
  21.     Hide
  22.   End Sub
  23.  
  24.   Sub Resize()
  25.     Dim control_width As Integer
  26.     Dim control_height As Integer
  27.   
  28.     control_width = ResizeMasterForm.ScaleWidth / 4
  29.     control_height = ResizeMasterForm.ScaleHeight / 3
  30.   
  31.     Image1.Move(0, 0, control_width, control_height)
  32.     Image2.Move(control_width, 0, control_width, control_height)
  33.     Image3.Move(control_width * 2, 0, control_width, control_height)
  34.     Image4.Move(control_width * 3, 0, control_width, control_height)
  35.     Image5.Move(0, control_height, control_width, control_height)
  36.     Image6.Move(control_width, control_height, control_width, control_height)
  37.     Image7.Move(control_width * 2, control_height, control_width, control_height)
  38.     Image8.Move(control_width * 3, control_height, control_width, control_height)
  39.     Image9.Move(0, control_height * 2, control_width, control_height)
  40.     Image10.Move(control_width, control_height * 2, control_width, control_height)
  41.     Image11.Move(control_width * 2, control_height * 2, control_width, control_height)
  42.     Image12.Move(control_width * 3, control_height * 2, control_width, control_height)
  43.   End Sub
  44.  
  45.   Sub ResetApplication_Click ()
  46.   
  47.     ' Initialize the Resize demonstration form
  48.     ResizeMasterForm.Height = 4410
  49.     ResizeMasterForm.Width = 5130
  50.   
  51.   End Sub
  52.  
  53. End Type
  54.  
  55. Begin Code
  56. ' Reconstruction commands for object: ResizeMasterForm
  57. '
  58.   With ResizeMasterForm
  59.     With .Image1
  60.       .BackColor = 255
  61.       .Move(0, 0, 1252, 1240)
  62.     End With  'ResizeMasterForm.Image1
  63.     With .Image2
  64.       .BackColor = 65280
  65.       .Move(1252, 0, 1252, 1240)
  66.     End With  'ResizeMasterForm.Image2
  67.     With .Image3
  68.       .BackColor = 16711680
  69.       .Move(2504, 0, 1252, 1240)
  70.     End With  'ResizeMasterForm.Image3
  71.     With .Image4
  72.       .BackColor = 10609919
  73.       .Move(3756, 0, 1252, 1240)
  74.     End With  'ResizeMasterForm.Image4
  75.     With .Image5
  76.       .BackColor = 16776960
  77.       .Move(0, 1240, 1252, 1240)
  78.     End With  'ResizeMasterForm.Image5
  79.     With .Image6
  80.       .BackColor = 16711935
  81.       .Move(1252, 1240, 1252, 1240)
  82.     End With  'ResizeMasterForm.Image6
  83.     With .Image7
  84.       .BackColor = 65535
  85.       .Move(2504, 1240, 1252, 1240)
  86.     End With  'ResizeMasterForm.Image7
  87.     With .Image8
  88.       .BackColor = 7500449
  89.       .Move(3756, 1240, 1252, 1240)
  90.     End With  'ResizeMasterForm.Image8
  91.     With .Image9
  92.       .BackColor = 0
  93.       .Move(0, 2480, 1252, 1240)
  94.     End With  'ResizeMasterForm.Image9
  95.     With .Image10
  96.       .BackColor = 8421504
  97.       .Move(1252, 2480, 1252, 1240)
  98.     End With  'ResizeMasterForm.Image10
  99.     With .Image11
  100.       .Move(2504, 2480, 1252, 1240)
  101.     End With  'ResizeMasterForm.Image11
  102.     With .Image12
  103.       .BackColor = 16777215
  104.       .Move(3756, 2480, 1252, 1240)
  105.     End With  'ResizeMasterForm.Image12
  106.     With .helpfile
  107.       .FileName = "W:\Examples\resize\resize.hlp"
  108.     End With  'ResizeMasterForm.helpfile
  109.     .Caption = "Resize Demonstration"
  110.     .Move(6795, 1080, 5130, 4410)
  111.     .SampleDir = "W:\Examples\resize\"
  112.     .SampleName = "resize"
  113.   End With  'ResizeMasterForm
  114. End Code
  115.