home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch2 / Curves.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-03-23  |  5.1 KB  |  152 lines
  1. VERSION 5.00
  2. Begin VB.Form frmCurves 
  3.    Caption         =   "Curves"
  4.    ClientHeight    =   3750
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   5175
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3750
  10.    ScaleWidth      =   5175
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.PictureBox picPie 
  13.       AutoRedraw      =   -1  'True
  14.       Height          =   1575
  15.       Left            =   2640
  16.       ScaleHeight     =   101
  17.       ScaleMode       =   3  'Pixel
  18.       ScaleWidth      =   165
  19.       TabIndex        =   6
  20.       Top             =   2160
  21.       Width           =   2535
  22.    End
  23.    Begin VB.PictureBox picArc 
  24.       AutoRedraw      =   -1  'True
  25.       Height          =   1575
  26.       Left            =   2640
  27.       ScaleHeight     =   101
  28.       ScaleMode       =   3  'Pixel
  29.       ScaleWidth      =   165
  30.       TabIndex        =   4
  31.       Top             =   240
  32.       Width           =   2535
  33.    End
  34.    Begin VB.PictureBox picChord 
  35.       AutoRedraw      =   -1  'True
  36.       Height          =   1575
  37.       Left            =   0
  38.       ScaleHeight     =   101
  39.       ScaleMode       =   3  'Pixel
  40.       ScaleWidth      =   165
  41.       TabIndex        =   2
  42.       Top             =   2160
  43.       Width           =   2535
  44.    End
  45.    Begin VB.PictureBox picEllipse 
  46.       AutoRedraw      =   -1  'True
  47.       Height          =   1575
  48.       Left            =   0
  49.       ScaleHeight     =   101
  50.       ScaleMode       =   3  'Pixel
  51.       ScaleWidth      =   165
  52.       TabIndex        =   0
  53.       Top             =   240
  54.       Width           =   2535
  55.    End
  56.    Begin VB.Label Label1 
  57.       Alignment       =   2  'Center
  58.       Caption         =   "Pie"
  59.       Height          =   255
  60.       Index           =   3
  61.       Left            =   2640
  62.       TabIndex        =   7
  63.       Top             =   1920
  64.       Width           =   2535
  65.    End
  66.    Begin VB.Label Label1 
  67.       Alignment       =   2  'Center
  68.       Caption         =   "Arc"
  69.       Height          =   255
  70.       Index           =   2
  71.       Left            =   2640
  72.       TabIndex        =   5
  73.       Top             =   0
  74.       Width           =   2535
  75.    End
  76.    Begin VB.Label Label1 
  77.       Alignment       =   2  'Center
  78.       Caption         =   "Chord"
  79.       Height          =   255
  80.       Index           =   1
  81.       Left            =   0
  82.       TabIndex        =   3
  83.       Top             =   1920
  84.       Width           =   2535
  85.    End
  86.    Begin VB.Label Label1 
  87.       Alignment       =   2  'Center
  88.       Caption         =   "Ellipse"
  89.       Height          =   255
  90.       Index           =   0
  91.       Left            =   0
  92.       TabIndex        =   1
  93.       Top             =   0
  94.       Width           =   2535
  95.    End
  96. Attribute VB_Name = "frmCurves"
  97. Attribute VB_GlobalNameSpace = False
  98. Attribute VB_Creatable = False
  99. Attribute VB_PredeclaredId = True
  100. Attribute VB_Exposed = False
  101. Option Explicit
  102. Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  103. Private Declare Function Arc Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long
  104. Private Declare Function Chord Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long
  105. Private Declare Function Pie Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long
  106. Private Sub Form_Load()
  107. Dim X1 As Single
  108. Dim Y1 As Single
  109. Dim X2 As Single
  110. Dim Y2 As Single
  111. Dim X3 As Single
  112. Dim Y3 As Single
  113. Dim X4 As Single
  114. Dim Y4 As Single
  115.     picEllipse.FillStyle = vbDiagonalCross
  116.     picChord.FillStyle = vbDiagonalCross
  117.     PicPie.FillStyle = vbDiagonalCross
  118.     ' Get coordinates to use for all curves.
  119.     X1 = 5
  120.     Y1 = 5
  121.     X2 = picEllipse.ScaleWidth - 10
  122.     Y2 = picEllipse.ScaleHeight - 10
  123.     X3 = picEllipse.ScaleWidth - 10
  124.     Y3 = picEllipse.ScaleHeight - 10
  125.     X4 = picEllipse.ScaleWidth * 0.45
  126.     Y4 = picEllipse.ScaleHeight * 0.25
  127.     ' Draw an ellipse.
  128.     picEllipse.DrawWidth = 3
  129.     Ellipse picEllipse.hdc, X1, Y1, X2, Y2
  130.     ' Draw an arc.
  131.     picArc.DrawWidth = 3
  132.     Arc picArc.hdc, X1, Y1, X2, Y2, X3, Y3, X4, Y4
  133.     picArc.DrawWidth = 1
  134.     picArc.DrawStyle = vbDot
  135.     picArc.Line (X3, Y3)-((X1 + X2) / 2, (Y1 + Y2) / 2)
  136.     picArc.Line -(X4, Y4)
  137.     ' Draw a chord.
  138.     picChord.DrawWidth = 3
  139.     Chord picChord.hdc, X1, Y1, X2, Y2, X3, Y3, X4, Y4
  140.     picChord.DrawWidth = 1
  141.     picChord.DrawStyle = vbDot
  142.     picChord.Line (X3, Y3)-((X1 + X2) / 2, (Y1 + Y2) / 2)
  143.     picChord.Line -(X4, Y4)
  144.     ' Draw a pie slice.
  145.     PicPie.DrawWidth = 3
  146.     Pie PicPie.hdc, X1, Y1, X2, Y2, X3, Y3, X4, Y4
  147.     PicPie.DrawWidth = 1
  148.     PicPie.DrawStyle = vbDot
  149.     PicPie.Line (X3, Y3)-((X1 + X2) / 2, (Y1 + Y2) / 2)
  150.     PicPie.Line -(X4, Y4)
  151. End Sub
  152.