home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / mabry / msmega11 / rotextsa / rsample2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-12-29  |  3.4 KB  |  123 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "RoText Printing Sample"
  5.    ClientHeight    =   1755
  6.    ClientLeft      =   1125
  7.    ClientTop       =   1860
  8.    ClientWidth     =   5535
  9.    Height          =   2160
  10.    Left            =   1065
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   1755
  13.    ScaleWidth      =   5535
  14.    Top             =   1515
  15.    Width           =   5655
  16.    Begin CommandButton Command1 
  17.       Caption         =   "Print"
  18.       Default         =   -1  'True
  19.       Height          =   375
  20.       Left            =   3840
  21.       TabIndex        =   5
  22.       Top             =   720
  23.       Width           =   1455
  24.    End
  25.    Begin CommandButton btnExit 
  26.       Cancel          =   -1  'True
  27.       Caption         =   "Exit"
  28.       Height          =   375
  29.       Left            =   3840
  30.       TabIndex        =   4
  31.       Top             =   240
  32.       Width           =   1455
  33.    End
  34.    Begin TextBox txtCount 
  35.       Height          =   285
  36.       Left            =   240
  37.       TabIndex        =   3
  38.       Top             =   1200
  39.       Width           =   3255
  40.    End
  41.    Begin TextBox txtPrint 
  42.       Height          =   285
  43.       Left            =   240
  44.       TabIndex        =   1
  45.       Text            =   "The quick brown fox ..."
  46.       Top             =   480
  47.       Width           =   3255
  48.    End
  49.    Begin RoText RoText1 
  50.       Angle           =   0
  51.       Caption         =   "RoText1"
  52.       FontBold        =   -1  'True
  53.       FontItalic      =   0   'False
  54.       FontName        =   "Arial"
  55.       FontSize        =   24
  56.       FontStrikethru  =   0   'False
  57.       FontUnderline   =   0   'False
  58.       Height          =   495
  59.       Left            =   3480
  60.       TabIndex        =   6
  61.       Top             =   1200
  62.       Visible         =   0   'False
  63.       Width           =   2055
  64.    End
  65.    Begin Label Label2 
  66.       Caption         =   "Number of Items:"
  67.       Height          =   255
  68.       Left            =   240
  69.       TabIndex        =   2
  70.       Top             =   960
  71.       Width           =   1575
  72.    End
  73.    Begin Label Label1 
  74.       Caption         =   "Text to Print:"
  75.       Height          =   255
  76.       Left            =   240
  77.       TabIndex        =   0
  78.       Top             =   240
  79.       Width           =   1695
  80.    End
  81. Option Explicit
  82. Sub btnExit_Click ()
  83.     ' get out
  84.     End
  85. End Sub
  86. Sub Command1_Click ()
  87.     Dim Count As Integer
  88.     Dim I As Long
  89.     ' let the user know we're busy
  90.     Form1.MousePointer = 11
  91.     Count = Val(txtCount)
  92.     If Count <= 0 Then
  93.         Count = 1
  94.     End If
  95.     ' set up RoText and print area
  96.     RoText1.Caption = txtPrint
  97.     RoText1.PrinterTop = 1440
  98.     RoText1.PrinterLeft = 1440
  99.     RoText1.PrinterWidth = 6.5 * 1440
  100.     RoText1.PrinterHeight = 9 * 1440
  101.     RoText1.PrinterScaleMode = Printer.ScaleMode
  102.     ' print rotated text
  103.     For I = 0 To Count - 1
  104.         DoEvents
  105.         RoText1.Angle = (360& * I) / Count
  106.         RoText1.PrinterHDC = Printer.hDC
  107.     Next I
  108.     ' record what we did
  109.     Printer.CurrentX = 1440
  110.     Printer.CurrentY = 1440
  111.     Printer.FontName = "Arial"
  112.     Printer.FontSize = 18
  113.     Printer.FontBold = True
  114.     Printer.Print Count & " times " & Chr(34) & txtPrint & Chr(34)
  115.     Printer.EndDoc
  116.     ' OK, we're done now
  117.     Form1.MousePointer = 0
  118. End Sub
  119. Sub Form_Unload (Cancel As Integer)
  120.     ' get out
  121.     End
  122. End Sub
  123.