The Best of Select: Windows 95 Special 2/WIN95_2.bin/utils/envelop/envelop.6/Tools/Bootcamp/basic/arraybtn/arraybtn.eto

Text File | 1996-07-08 | 8.0 KB | 265 lines

Type ArrayButton From Button

  ' METHODS for object: ArrayButton
  Sub Click()
    InfoBox.Message("", Caption)
  End Sub

End Type

Type ArrayButtonMasterForm From SampleMasterForm
  Dim ArrayButton1 As New ArrayButton
  Dim ArrayButton2 As New ArrayButton
  Dim ArrayButton3 As New ArrayButton
  Dim ArrayButton4 As New ArrayButton
  Dim ArrayButton5 As New ArrayButton
  Dim ArrayButton6 As New ArrayButton
  Dim ArrayButton7 As New ArrayButton
  Dim ArrayButton8 As New ArrayButton
  Dim ArrayButton9 As New ArrayButton
  Dim ArrayButton10 As New ArrayButton
  Dim ArrayButton11 As New ArrayButton
  Dim ArrayButton12 As New ArrayButton
  Dim ArrayButton13 As New ArrayButton
  Dim ArrayButton14 As New ArrayButton
  Dim ArrayButton15 As New ArrayButton
  Dim ArrayButton16 As New ArrayButton
  Dim ArrayButton17 As New ArrayButton
  Dim ArrayButton18 As New ArrayButton
  Dim ArrayButton19 As New ArrayButton
  Dim ArrayButton20 As New ArrayButton
  Dim ArrayButton21 As New ArrayButton
  Dim ArrayButton22 As New ArrayButton
  Dim ArrayButton23 As New ArrayButton
  Dim ArrayButton24 As New ArrayButton
  Dim ArrayButton25 As New ArrayButton
  Dim chkBold As New CheckBox
  Dim chkItalic As New CheckBox
  Dim chkUnderline As New CheckBox
  Dim chkStrikethru As New CheckBox
  Dim font As New Font
  Dim font2 As New Font

  ' METHODS for object: ArrayButtonMasterForm
  Sub chkBold_Click()
    font.Bold = (chkBold.Value <> False)
  End Sub

  Sub chkItalic_Click()
    font.Italic = chkItalic.Value <> 0
  End Sub

  Sub chkStrikethru_Click()
    font.Strikethru = chkStrikethru.Value <> 0
  End Sub

  Sub chkUnderline_Click()
    font.Underline = chkUnderline.Value <> 0
  End Sub

  Sub ResetApplication_Click ()

    chkBold.Value = 0
    font.Bold = "False"

    chkItalic.Value = 0
    font.Italic = "False"

    chkUnderline.Value = 0
    font.Underline = "False"

    chkStrikethru.Value = 0
    font.Strikethru = "False"

  End Sub

End Type

Begin Code
' Reconstruction commands for object: ArrayButton
'
  With ArrayButton
    .Move(0, 0, 0, 0)
  End With  'ArrayButton
' Reconstruction commands for object: ArrayButtonMasterForm
'
  With ArrayButtonMasterForm
    .Caption := "Button Array Demonstration"
    .ForeColor := 0
    .Font := ArrayButtonMasterForm.font
    .Move(5865, 870, 7470, 5040)
    .SampleDir := "W:\bootcamp\basic\arraybtn\"
    .SampleName := "arraybtn"
    With .ArrayButton1
      .Caption := "ArrayButton1"
      .ZOrder := 5
      .Move(300, 450, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton1
    With .ArrayButton2
      .Caption := "ArrayButton2"
      .ZOrder := 6
      .Move(1665, 450, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton2
    With .ArrayButton3
      .Caption := "ArrayButton3"
      .ZOrder := 7
      .Move(3030, 450, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton3
    With .ArrayButton4
      .Caption := "ArrayButton4"
      .ZOrder := 8
      .Move(4395, 450, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton4
    With .ArrayButton5
      .Caption := "ArrayButton5"
      .ZOrder := 9
      .Move(5760, 450, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton5
    With .ArrayButton6
      .Caption := "ArrayButton6"
      .ZOrder := 10
      .Move(300, 1065, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton6
    With .ArrayButton7
      .Caption := "ArrayButton7"
      .ZOrder := 11
      .Move(1665, 1065, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton7
    With .ArrayButton8
      .Caption := "ArrayButton8"
      .ZOrder := 12
      .Move(3030, 1065, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton8
    With .ArrayButton9
      .Caption := "ArrayButton9"
      .ZOrder := 13
      .Move(4395, 1065, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton9
    With .ArrayButton10
      .Caption := "ArrayButton10"
      .ZOrder := 14
      .Move(5760, 1065, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton10
    With .ArrayButton11
      .Caption := "ArrayButton11"
      .ZOrder := 15
      .Move(300, 1680, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton11
    With .ArrayButton12
      .Caption := "ArrayButton12"
      .ZOrder := 16
      .Move(1665, 1680, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton12
    With .ArrayButton13
      .Caption := "ArrayButton13"
      .ZOrder := 17
      .Move(3030, 1680, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton13
    With .ArrayButton14
      .Caption := "ArrayButton14"
      .ZOrder := 18
      .Move(4395, 1680, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton14
    With .ArrayButton15
      .Caption := "ArrayButton15"
      .ZOrder := 19
      .Move(5760, 1680, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton15
    With .ArrayButton16
      .Caption := "ArrayButton16"
      .ZOrder := 20
      .Move(300, 2295, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton16
    With .ArrayButton17
      .Caption := "ArrayButton17"
      .ZOrder := 21
      .Move(1665, 2295, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton17
    With .ArrayButton18
      .Caption := "ArrayButton18"
      .ZOrder := 22
      .Move(3030, 2295, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton18
    With .ArrayButton19
      .Caption := "ArrayButton19"
      .ZOrder := 23
      .Move(4395, 2295, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton19
    With .ArrayButton20
      .Caption := "ArrayButton20"
      .ZOrder := 24
      .Move(5760, 2295, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton20
    With .ArrayButton21
      .Caption := "ArrayButton21"
      .ZOrder := 25
      .Move(300, 2910, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton21
    With .ArrayButton22
      .Caption := "ArrayButton22"
      .ZOrder := 26
      .Move(1665, 2910, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton22
    With .ArrayButton23
      .Caption := "ArrayButton23"
      .ZOrder := 27
      .Move(3030, 2910, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton23
    With .ArrayButton24
      .Caption := "ArrayButton24"
      .ZOrder := 28
      .Move(4395, 2910, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton24
    With .ArrayButton25
      .Caption := "ArrayButton25"
      .ZOrder := 29
      .Move(5760, 2910, 1350, 600)
    End With  'ArrayButtonMasterForm.ArrayButton25
    With .chkBold
      .Caption := "Bold"
      .ForeColor := 16711680
      .Font := ArrayButtonMasterForm.font2
      .ZOrder := 1
      .Move(300, 3750, 900, 300)
    End With  'ArrayButtonMasterForm.chkBold
    With .chkItalic
      .Caption := "Italic"
      .ForeColor := 16711680
      .Font := ArrayButtonMasterForm.font2
      .ZOrder := 2
      .Move(1950, 3750, 900, 300)
    End With  'ArrayButtonMasterForm.chkItalic
    With .chkUnderline
      .Caption := "Underline"
      .ForeColor := 16711680
      .Font := ArrayButtonMasterForm.font2
      .ZOrder := 3
      .Move(3600, 3750, 1410, 300)
    End With  'ArrayButtonMasterForm.chkUnderline
    With .chkStrikethru
      .Caption := "Strikethru"
      .ForeColor := 16711680
      .Font := ArrayButtonMasterForm.font2
      .ZOrder := 4
      .Move(5700, 3750, 1410, 300)
    End With  'ArrayButtonMasterForm.chkStrikethru
    With .font
      .FaceName := "Times New Roman"
      .Size := 9.000000
      .Bold := False
      .Italic := False
      .Strikethru := False
    End With  'ArrayButtonMasterForm.font
    With .font2
      .FaceName := "Arial"
      .Size := 0.000000
      .Bold := True
      .Italic := False
      .Strikethru := False
    End With  'ArrayButtonMasterForm.font2
    With .helpfile
      .FileName := "W:\bootcamp\basic\arraybtn\arraybtn.hlp"
    End With  'ArrayButtonMasterForm.helpfile
  End With  'ArrayButtonMasterForm
End Code