home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_2 / STR_PLUS / TEXTOUT.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-07-19  |  2.9 KB  |  62 lines
  1. VERSION 2.00
  2. Begin Form TextOut 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "SuperPrint Demo"
  6.    ClientHeight    =   5505
  7.    ClientLeft      =   1020
  8.    ClientTop       =   870
  9.    ClientWidth     =   7365
  10.    ControlBox      =   0   'False
  11.    Height          =   5910
  12.    Left            =   960
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   5505
  17.    ScaleWidth      =   7365
  18.    Top             =   525
  19.    Width           =   7485
  20.    Begin CommandButton Command1 
  21.       Cancel          =   -1  'True
  22.       Caption         =   "O &K A Y"
  23.       Default         =   -1  'True
  24.       Height          =   375
  25.       Left            =   2280
  26.       TabIndex        =   0
  27.       Top             =   4920
  28.       Width           =   3015
  29.    End
  30. Sub Command1_Click ()
  31.     Unload Me
  32. End Sub
  33. Sub Form_Load ()
  34.     FormCenterScreen Me
  35.     Screen.MousePointer = 0
  36.     'SuperPrint samples are in Paint event
  37. End Sub
  38. Sub Form_Paint ()
  39.     DoForm3D Me, sunken, 3, 0
  40.     DoForm3D Me, raised, 1, 3
  41.     SuperPrint Me.hDC, 20, 100, "A sample string!", "Arial", "bold", "raised", "left", 12, QBColor(4), WordColor("BtnHighlight"), 45
  42.     SuperPrint Me.hDC, 140, 240, "Another sample string!", "Times New Roman", "bolditalic", "sunken", "left", 16, QBColor(1), WordColor("BtnHighlight"), 90
  43.     SuperPrint Me.hDC, 250, 40, "Displays normal text too!", "Times New Roman", "bold", "plain", "left", 16, QBColor(0), WordColor("BtnHighlight"), 0
  44.     SuperPrint Me.hDC, 250, 70, "Raised Letter Effect!", "Times New Roman", "bold", "raised", "left", 16, QBColor(0), WordColor("BtnHighlight"), 0
  45.     SuperPrint Me.hDC, 250, 100, "Sunken Letter Effect!", "Times New Roman", "bold", "sunken", "left", 16, QBColor(0), QBColor(15), 0
  46.     SuperPrint Me.hDC, 200, 20, "Horizontal Effects are EASY!", "Times New Roman", "bold", "raised", "left", 14, QBColor(1), QBColor(15), 270
  47.     SuperPrint Me.hDC, 480, 180, "And UpsideDown Text Too!", "Arial", "bold", "plain", "left", 14, QBColor(1), QBColor(15), 180
  48.     HorzCenter% = (Me.Width / 2) / Screen.TwipsPerPixelX
  49.     'VertCenter% = (Me.Height / 2) / Screen.TwipsPerPixelY
  50.     SuperPrint Me.hDC, HorzCenter%, 270, "All done with SuperPrint!", "Arial", "bold", "sunken", "center", 18, WordColor("Green"), WordColor("BrightGreen"), 0
  51.     OldScale% = Me.ScaleMode
  52.     OldForeColor& = Me.ForeColor
  53.     Me.ScaleMode = 3
  54.     Me.ForeColor = QBColor(15)
  55.     Me.Line (340, 180)-(340, 260)
  56.     Me.ForeColor = OldForeColor&
  57.     Me.ScaleMode = OldScale%
  58.     SuperPrint Me.hDC, 340, 190, "Left Aligned", "Arial", "bold", "plain", "left", 12, QBColor(4), QBColor(15), 0
  59.     SuperPrint Me.hDC, 340, 210, "Center Aligned", "Arial", "bold", "plain", "center", 12, QBColor(4), QBColor(15), 0
  60.     SuperPrint Me.hDC, 340, 230, "Right Aligned", "Arial", "bold", "plain", "right", 12, QBColor(4), QBColor(15), 0
  61. End Sub
  62.