home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch2 / Rect.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-03-23  |  1.6 KB  |  51 lines
  1. VERSION 5.00
  2. Begin VB.Form frmRect 
  3.    AutoRedraw      =   -1  'True
  4.    Caption         =   "Rect"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3195
  11.    ScaleWidth      =   4680
  12.    StartUpPosition =   3  'Windows Default
  13. Attribute VB_Name = "frmRect"
  14. Attribute VB_GlobalNameSpace = False
  15. Attribute VB_Creatable = False
  16. Attribute VB_PredeclaredId = True
  17. Attribute VB_Exposed = False
  18. Option Explicit
  19. Private Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  20. Private Declare Function RoundRect 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) As Long
  21. Private Sub Form_Load()
  22. Dim hgt As Integer
  23. Dim dh As Integer
  24. Dim wid As Integer
  25. Dim dw As Integer
  26. Dim ymid As Integer
  27. Dim xmid As Integer
  28. Dim i As Integer
  29. Dim round As Boolean
  30.     ScaleMode = vbPixels
  31.     Cls
  32.     hgt = ScaleHeight * 0.1
  33.     dh = ScaleHeight * 0.4 / 5
  34.     wid = ScaleWidth * 0.5
  35.     dw = -ScaleWidth * 0.4 / 5
  36.     ymid = ScaleHeight / 2
  37.     xmid = ScaleWidth / 2
  38.     For i = 1 To 5
  39.         If round Then
  40.             RoundRect hdc, xmid - wid, ymid - hgt, xmid + wid, ymid + hgt, 50, 30
  41.         Else
  42.             Rectangle hdc, xmid - wid, ymid - hgt, xmid + wid, ymid + hgt
  43.         End If
  44.         round = Not round
  45.         
  46.         wid = wid + dw
  47.         hgt = hgt + dh
  48.     Next i
  49.     Refresh
  50. End Sub
  51.