home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap22 / rotate2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-24  |  1.7 KB  |  55 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   8460
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   6690
  8.    Height          =   8865
  9.    Left            =   1080
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   8460
  12.    ScaleWidth      =   6690
  13.    Top             =   1170
  14.    Width           =   6810
  15.    Begin VB.Line Line1 
  16.       BorderWidth     =   3
  17.       X1              =   600
  18.       X2              =   6000
  19.       Y1              =   3960
  20.       Y2              =   3960
  21.    End
  22.    Begin VB.Label Label1 
  23.       Alignment       =   2  'Center
  24.       Caption         =   "Click on the Form to see rotated text!"
  25.       BeginProperty Font 
  26.          name            =   "Arial"
  27.          charset         =   0
  28.          weight          =   400
  29.          size            =   15.75
  30.          underline       =   0   'False
  31.          italic          =   -1  'True
  32.          strikethrough   =   0   'False
  33.       EndProperty
  34.       Height          =   495
  35.       Left            =   240
  36.       TabIndex        =   0
  37.       Top             =   3600
  38.       Width           =   6015
  39.    End
  40. Attribute VB_Name = "Form1"
  41. Attribute VB_Creatable = False
  42. Attribute VB_Exposed = False
  43. Private Sub Form_Click()
  44.     Dim font As New ROTATEFONT
  45.     font.setPointSize 14
  46.     font.setAngle 0
  47.     font.dispText Form1.hDC, "Frank and Burgers", 200, 150
  48.     font.setAngle 90
  49.     font.dispText Form1.hDC, "Frank and Burgers", 200, 150
  50.     font.setAngle 180
  51.     font.dispText Form1.hDC, "Frank and Burgers", 200, 150
  52.     font.setAngle 270
  53.     font.dispText Form1.hDC, "Frank and Burgers", 200, 150
  54. End Sub
  55.