home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code2 / str_plus / textout.frm < prev    next >
Text File  |  1994-07-19  |  3KB  |  70 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. End
  31.  
  32. Sub Command1_Click ()
  33.     Unload Me
  34. End Sub
  35.  
  36. Sub Form_Load ()
  37.     FormCenterScreen Me
  38.     Screen.MousePointer = 0
  39.     'SuperPrint samples are in Paint event
  40. End Sub
  41.  
  42. Sub Form_Paint ()
  43.     DoForm3D Me, sunken, 3, 0
  44.     DoForm3D Me, raised, 1, 3
  45.  
  46.     SuperPrint Me.hDC, 20, 100, "A sample string!", "Arial", "bold", "raised", "left", 12, QBColor(4), WordColor("BtnHighlight"), 45
  47.     SuperPrint Me.hDC, 140, 240, "Another sample string!", "Times New Roman", "bolditalic", "sunken", "left", 16, QBColor(1), WordColor("BtnHighlight"), 90
  48.     SuperPrint Me.hDC, 250, 40, "Displays normal text too!", "Times New Roman", "bold", "plain", "left", 16, QBColor(0), WordColor("BtnHighlight"), 0
  49.     SuperPrint Me.hDC, 250, 70, "Raised Letter Effect!", "Times New Roman", "bold", "raised", "left", 16, QBColor(0), WordColor("BtnHighlight"), 0
  50.     SuperPrint Me.hDC, 250, 100, "Sunken Letter Effect!", "Times New Roman", "bold", "sunken", "left", 16, QBColor(0), QBColor(15), 0
  51.     SuperPrint Me.hDC, 200, 20, "Horizontal Effects are EASY!", "Times New Roman", "bold", "raised", "left", 14, QBColor(1), QBColor(15), 270
  52.     SuperPrint Me.hDC, 480, 180, "And UpsideDown Text Too!", "Arial", "bold", "plain", "left", 14, QBColor(1), QBColor(15), 180
  53.  
  54.     HorzCenter% = (Me.Width / 2) / Screen.TwipsPerPixelX
  55.     'VertCenter% = (Me.Height / 2) / Screen.TwipsPerPixelY
  56.     SuperPrint Me.hDC, HorzCenter%, 270, "All done with SuperPrint!", "Arial", "bold", "sunken", "center", 18, WordColor("Green"), WordColor("BrightGreen"), 0
  57.  
  58.     OldScale% = Me.ScaleMode
  59.     OldForeColor& = Me.ForeColor
  60.     Me.ScaleMode = 3
  61.     Me.ForeColor = QBColor(15)
  62.     Me.Line (340, 180)-(340, 260)
  63.     Me.ForeColor = OldForeColor&
  64.     Me.ScaleMode = OldScale%
  65.     SuperPrint Me.hDC, 340, 190, "Left Aligned", "Arial", "bold", "plain", "left", 12, QBColor(4), QBColor(15), 0
  66.     SuperPrint Me.hDC, 340, 210, "Center Aligned", "Arial", "bold", "plain", "center", 12, QBColor(4), QBColor(15), 0
  67.     SuperPrint Me.hDC, 340, 230, "Right Aligned", "Arial", "bold", "plain", "right", 12, QBColor(4), QBColor(15), 0
  68. End Sub
  69.  
  70.