Visual Basic 4 Unleashed/Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso/bytech/test2.frm

Visual Basic Form | 1995-07-23 | 8.1 KB | 269 lines

VERSION 2.00
Begin Form Form1
   Caption         =   "Custom Preview Demo"
   ClientHeight    =   7410
   ClientLeft      =   1470
   ClientTop       =   1410
   ClientWidth     =   6660
   Height          =   7815
   Left            =   1410
   LinkTopic       =   "Form1"
   ScaleHeight     =   7410
   ScaleWidth      =   6660
   Top             =   1065
   Width           =   6780
   Begin DMWIN DMWin3
      Aspect          =   1
      BackColor       =   &H00C0C0C0&
      BackGroundColor =   &H00000000&
      Caption         =   "DMWin3"
      CurrentPoint    =   1
      DeskColor       =   &H00408000&
      DisplayPageNum  =   1
      DocTitle        =   "Document Viewer"
      EdgeColor       =   &H00000000&
      EndAngle        =   360
      FaceColor       =   &H00000000&
      FieldData       =   ""
      FieldID         =   ""
      FieldNumber     =   1
      FieldWidth      =   5
      Filename        =   ""
      FirstPrintPage  =   1
      FormFile        =   ""
      GetXTextPos     =   0
      GetYTextPos     =   0
      Height          =   1455
      HideButton      =   0   'False
      hMetaDC         =   0
      Indent          =   0.5
      Italic          =   0   'False
      Justify         =   0
      Landscape       =   0   'False
      LastPrintPage   =   1
      Left            =   120
      LineColor       =   &H00000000&
      LineSpacing     =   0.16
      LineWeight      =   0
      LineWeightR     =   0
      MetaFile        =   ""
      MultiLine       =   -1  'True
      NameFont        =   "Arial"
      NumPoints       =   0
      ObjHeight       =   0
      ObjWidth        =   0
      PageTitle       =   "Untitled"
      PaperHeight     =   11
      PaperWidth      =   8.5
      Pattern         =   -1
      PercentScreen   =   95
      PictureScale    =   0
      PrintAll        =   -1  'True
      PrintCurrent    =   0   'False
      PrintDialog     =   -1  'True
      PrintEventOnly  =   -1  'True
      PrintRange      =   0   'False
      PrintText       =   ""
      Radius          =   0
      Resolution      =   300
      Rotation        =   0
      ShadowWidth     =   7
      SizeFont        =   12
      StartAngle      =   0
      StartCloseUp    =   0   'False
      StretchBitmap   =   0   'False
      TemplateFile    =   ""
      ThreeDAngle     =   45
      ThreeDThickness =   0.2
      Top             =   120
      Underline       =   0   'False
      WeightFont      =   3
      Width           =   975
      X2              =   0
      XPos            =   0
      XPrintOffset    =   0
      Y2              =   0
      YPos            =   0
      YPrintOffset    =   0
   End
   Begin CommandButton Command4
      Caption         =   "Zoom Out"
      Height          =   375
      Left            =   3360
      TabIndex        =   3
      Top             =   6720
      Width           =   1215
   End
   Begin CommandButton Command3
      Caption         =   "Zoom In"
      Height          =   375
      Left            =   2160
      TabIndex        =   2
      Top             =   6720
      Width           =   1215
   End
   Begin DMWIN DMWin1
      Aspect          =   1
      BackColor       =   &H00C0C0C0&
      BackGroundColor =   &H00000000&
      Caption         =   "DMWin1"
      CurrentPoint    =   1
      DeskColor       =   &H00408000&
      DisplayPageNum  =   1
      DocTitle        =   "Document Viewer"
      EdgeColor       =   &H00000000&
      EndAngle        =   360
      FaceColor       =   &H00000000&
      FieldData       =   ""
      FieldID         =   ""
      FieldNumber     =   1
      FieldWidth      =   5
      Filename        =   ""
      FirstPrintPage  =   1
      FormFile        =   ""
      GetXTextPos     =   0
      GetYTextPos     =   0
      Height          =   6495
      HideButton      =   0   'False
      hMetaDC         =   0
      Indent          =   0.5
      Italic          =   0   'False
      Justify         =   0
      Landscape       =   0   'False
      LastPrintPage   =   1
      Left            =   960
      LineColor       =   &H00000000&
      LineSpacing     =   0.16
      LineWeight      =   0
      LineWeightR     =   0
      MetaFile        =   ""
      MultiLine       =   -1  'True
      NameFont        =   "Arial"
      NumPoints       =   0
      ObjHeight       =   0
      ObjWidth        =   0
      PageTitle       =   "Untitled"
      PaperHeight     =   11
      PaperWidth      =   8.5
      Pattern         =   -1
      PercentScreen   =   95
      PictureScale    =   0
      PrintAll        =   -1  'True
      PrintCurrent    =   0   'False
      PrintDialog     =   -1  'True
      PrintEventOnly  =   -1  'True
      PrintRange      =   0   'False
      PrintText       =   ""
      Radius          =   0
      Resolution      =   300
      Rotation        =   0
      ShadowWidth     =   7
      SizeFont        =   12
      StartAngle      =   0
      StartCloseUp    =   0   'False
      StretchBitmap   =   0   'False
      TemplateFile    =   ""
      ThreeDAngle     =   45
      ThreeDThickness =   0.2
      Top             =   240
      Underline       =   0   'False
      WeightFont      =   3
      Width           =   4815
      X2              =   0
      XPos            =   0
      XPrintOffset    =   0
      Y2              =   0
      YPos            =   0
      YPrintOffset    =   0
   End
   Begin CommandButton Command1
      Caption         =   "Print"
      Height          =   375
      Left            =   4560
      TabIndex        =   1
      Top             =   6720
      Width           =   1215
   End
   Begin CommandButton Command2
      Caption         =   "Quit"
      Height          =   375
      Left            =   960
      TabIndex        =   0
      Top             =   6720
      Width           =   1215
   End
Sub Command1_Click ()
    DMWin1.PrintDocument = True
End Sub
Sub Command2_Click ()
    DMWin3.DeleteDocument = True
    End
End Sub
Sub Command3_Click ()
    DMWin1.PictureScale = DMWin1.PictureScale * 2
End Sub
Sub Command4_Click ()
    DMWin1.PictureScale = DMWin1.PictureScale / 2
    If DMWin1.PictureScale < 1 Then DMWin1.PictureScale = 1#
End Sub
Sub Form_Load ()
' Create the document
    DMWin1.PictureScale = 2#
    DMWin3.PictureScale = 1#
        DMWin3.DocTitle = ""
    DMWin3.CreateDocument = True
' Create page 3
        DMWin3.PageTitle = "Page 3"
        DMWin3.TemplateFile = ""
        DMWin3.PaperWidth = 8.5
        DMWin3.PaperHeight = 11#
        DMWin3.Resolution = 300
    DMWin3.CreatePage = True
' Three-D pie with patterned face
        DMWin3.Pattern = 2
        DMWin3.XPos = 5
        DMWin3.YPos = 3
        DMWin3.Radius = 1.5
        DMWin3.Aspect = 1.2
        DMWin3.StartAngle = 30
        DMWin3.EndAngle = 120
        DMWin3.ThreeDThickness = 1
        DMWin3.FaceColor = RGB(0, 128, 128)
        DMWin3.EdgeColor = RGB(0, 0, 255)
    DMWin3.ThreeDPie = True
' Three-D pie with solid face
        DMWin3.Pattern = -1
        DMWin3.XPos = 2
        DMWin3.YPos = 3
    DMWin3.ThreeDPie = True
' Three-D Pie Chart
        DMWin3.YPos = 7
        DMWin3.XPos = 4.5
        DMWin3.Aspect = .75
        DMWin3.StartAngle = 60
        DMWin3.EndAngle = 120
        DMWin3.Pattern = -1
        DMWin3.EdgeColor = RGB(0, 0, 255)
        DMWin3.FaceColor = RGB(255, 255, 0)
        DMWin3.ThreeDThickness = .4
    DMWin3.ThreeDPie = True
        DMWin3.StartAngle = 120
        DMWin3.EndAngle = 240
        DMWin3.FaceColor = RGB(255, 0, 255)
    DMWin3.ThreeDPie = True
        DMWin3.StartAngle = 340
        DMWin3.EndAngle = 60
        DMWin3.FaceColor = RGB(255, 0, 0)
    DMWin3.ThreeDPie = True
        DMWin3.YPos = 7.275
        DMWin3.XPos = 4.675
        DMWin3.StartAngle = 240
        DMWin3.EndAngle = 340
        DMWin3.FaceColor = RGB(0, 255, 255)
    DMWin3.ThreeDPie = True
    DMWin3.DrawNow = True
End Sub
Sub Form_Unload (Cancel As Integer)
    DMWin3.DeleteDocument = True
End Sub