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

Text File | 1996-07-08 | 4.8 KB | 212 lines

Type PolymorphismForm From SampleMasterForm
  Dim BtnDemonstrate As New Button
  Type LblControl From Label

    ' METHODS for object: PolymorphismForm.LblControl
    Sub Demonstrate
      Caption = "I am a Label control."
      ForeColor = 255
    End Sub

    Sub Reset
      Caption = "Label"
      ForeColor = -1
    End Sub

  End Type
  Type GaugeControl From Gauge

    ' METHODS for object: PolymorphismForm.GaugeControl
    Sub Reset
      Value = 0
    End Sub

    Sub Demonstrate
      Dim i,j As Integer
      Max = 100
      Min = 0
      For i = 1 To 100
        Value = i
        Refresh
      Next i
    End Sub

  End Type
  Type SbrControl From ScrollBar

    ' METHODS for object: PolymorphismForm.SbrControl
    Sub Demonstrate
      Dim i As Integer
      Max = 100
      Min = 0
      For i = 1 To 100
        Value = i
      Next i
    End Sub

    Sub Reset
      Value = 0
    End Sub

  End Type
  Type LstControl From ListBox

    ' METHODS for object: PolymorphismForm.LstControl
    Sub Demonstrate
      Clear
      AddItem("I am a ListBox")
      AddItem("Control with the")
      AddItem("last line selected.")
      ListIndex = ListCount - 1
    End Sub

    Sub Reset
      Clear
      AddItem("ListBox")
    End Sub

  End Type
  Type TxtControl From TextBox

    ' METHODS for object: PolymorphismForm.TxtControl
    Sub Demonstrate
      Text = "I am a Multi-line TextBox control."
      ForeColor = 65535
      BackColor = 0
    End Sub

    Sub Reset
      Text = "TextBox"
      ForeColor = -1
      BackColor = -1
    End Sub

  End Type
  Type Image1 From Image

    ' METHODS for object: PolymorphismForm.Image1
    Sub Reset
      Picture = Nothing
      Refresh
    End Sub

    Sub Demonstrate
      Parent.BitmapControl.FileName = Parent.SampleDir & "polywhat.bmp"
      Picture = Parent.BitmapControl
      Refresh
    End Sub

  End Type
  Type OptControl From OptionButton

    ' METHODS for object: PolymorphismForm.OptControl
    Sub Demonstrate
      Value = True
      Caption = "I am toggled on."
    End Sub

    Sub Reset
      Value = False
      Caption = "OptionButton"
    End Sub

  End Type
  Type ChkControl From CheckBox

    ' METHODS for object: PolymorphismForm.ChkControl
    Sub Demonstrate
      Value = 1
      Caption = "So am I."
    End Sub

    Sub Reset
      Value = 0
      Caption = "CheckBox"
    End Sub

  End Type
  Dim BitmapControl As New Bitmap

  ' METHODS for object: PolymorphismForm
  Sub BtnDemonstrate_Click()
    Controls.Demonstrate
  End Sub

  Sub ResetApplication_Click
    Controls.Reset
  End Sub

End Type

Begin Code
' Reconstruction commands for object: PolymorphismForm
'
  With PolymorphismForm
    .Caption := "Polymorphism Example"
    .Move(4725, 1515, 5205, 4905)
    .SampleDir := "W:\bootcamp\concepts\polywhat\"
    .SampleName := "polywhat"
    With .BtnDemonstrate
      .Caption := "Demonstrate"
      .ZOrder := 1
      .Move(1500, 3450, 2250, 450)
    End With  'PolymorphismForm.BtnDemonstrate
    With .LblControl
      .Caption := "Label"
      .ZOrder := 2
      .Move(300, 300, 3600, 300)
      .BorderStyle := "Fixed Single"
    End With  'PolymorphismForm.LblControl
    With .GaugeControl
      .Caption := "Gauge"
      .ZOrder := 3
      .Move(4050, 300, 750, 2400)
    End With  'PolymorphismForm.GaugeControl
    With .SbrControl
      .Caption := "SbrControl"
      .ZOrder := 4
      .Move(300, 750, 3600, 300)
      .Max := 100
      .Orientation := "Horizontal"
      .Move(300, 750, 3600, 300)
    End With  'PolymorphismForm.SbrControl
    With .LstControl
      .Caption := "LstControl"
      .ZOrder := 5
      .Move(1650, 1950, 2250, 615)
      .Sorted := False
    End With  'PolymorphismForm.LstControl
    With .TxtControl
      .Caption := "TextBox"
      .ZOrder := 6
      .Move(1650, 1200, 2250, 600)
      .WordWrap := True
      .MultiLine := True
    End With  'PolymorphismForm.TxtControl
    With .Image1
      .Caption := "Image1"
      .ZOrder := 7
      .Move(300, 1200, 1200, 1500)
      .Picture := PolymorphismForm.BitmapControl
    End With  'PolymorphismForm.Image1
    With .OptControl
      .Caption := "OptionButton"
      .ZOrder := 8
      .Move(300, 2850, 2250, 300)
    End With  'PolymorphismForm.OptControl
    With .ChkControl
      .Caption := "CheckBox"
      .ZOrder := 9
      .Move(2700, 2850, 2100, 300)
    End With  'PolymorphismForm.ChkControl
    With .BitmapControl
      .LoadType := "MemoryBased"
      .FileName := "polywhat.ero"
      .ResId := 0
    End With  'PolymorphismForm.BitmapControl
    With .helpfile
      .FileName := "W:\bootcamp\concepts\polywhat\polywhat.hlp"
    End With  'PolymorphismForm.helpfile
  End With  'PolymorphismForm
End Code