home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_2 / STR_PLUS / TEXTJUST.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-07-19  |  3.1 KB  |  86 lines
  1. VERSION 2.00
  2. Begin Form TextJust 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Text Justification"
  6.    ClientHeight    =   4020
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   7365
  10.    ControlBox      =   0   'False
  11.    Height          =   4425
  12.    Left            =   1035
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   4020
  16.    ScaleWidth      =   7365
  17.    Top             =   1140
  18.    Width           =   7485
  19.    Begin PictureBox Picture1 
  20.       BackColor       =   &H00C0C0C0&
  21.       BorderStyle     =   0  'None
  22.       Height          =   2655
  23.       Left            =   360
  24.       ScaleHeight     =   177
  25.       ScaleMode       =   3  'Pixel
  26.       ScaleWidth      =   441
  27.       TabIndex        =   1
  28.       Top             =   360
  29.       Width           =   6615
  30.    End
  31.    Begin CommandButton Command1 
  32.       Cancel          =   -1  'True
  33.       Caption         =   "O &K A Y"
  34.       Default         =   -1  'True
  35.       FontBold        =   -1  'True
  36.       FontItalic      =   0   'False
  37.       FontName        =   "MS Sans Serif"
  38.       FontSize        =   12
  39.       FontStrikethru  =   0   'False
  40.       FontUnderline   =   0   'False
  41.       Height          =   495
  42.       Left            =   360
  43.       TabIndex        =   0
  44.       Top             =   3240
  45.       Width           =   6735
  46.    End
  47. Sub Command1_Click ()
  48.     Unload Me
  49. End Sub
  50. Sub Form_Load ()
  51.     FormCenterScreen Me
  52.     Screen.MousePointer = 0
  53. End Sub
  54. Sub Form_Paint ()
  55.     DoForm3D Me, sunken, 3, 0
  56.     DoForm3D Me, raised, 1, 3
  57.     Picture1.ScaleMode = 3
  58.     Picture1.FontName = "Arial"
  59.     Picture1.FontSize = 12
  60.     Picture1.ForeColor = QBColor(0)
  61.     msg$ = "This example demonstrates how to justify text between"
  62.     JustifyLine Picture1.hDC, Picture1.CurrentX, Picture1.CurrentY, Picture1.ScaleWidth, msg$
  63.     Picture1.Print
  64.     msg$ = "the margins of a PictureBox.  The routine can"
  65.     JustifyLine Picture1.hDC, Picture1.CurrentX, Picture1.CurrentY, Picture1.ScaleWidth, msg$
  66.     Picture1.Print
  67.     msg$ = "accommodate VB forms too.  This function allows you to"
  68.     JustifyLine Picture1.hDC, Picture1.CurrentX, Picture1.CurrentY, Picture1.ScaleWidth, msg$
  69.     Picture1.Print
  70.     msg$ = "present information in an eye-appealing manner."
  71.     JustifyLine Picture1.hDC, Picture1.CurrentX, Picture1.CurrentY, Picture1.ScaleWidth, msg$
  72.     Picture1.Print
  73.     Picture1.Print
  74.     Picture1.FontName = "Times New Roman"
  75.     Picture1.FontSize = 16
  76.     Picture1.ForeColor = QBColor(1)
  77.     msg$ = "Yes!  With a little creativity and"
  78.     JustifyLine Picture1.hDC, Picture1.CurrentX, Picture1.CurrentY, Picture1.ScaleWidth, msg$
  79.     Picture1.Print
  80.     msg$ = "some programming expertise you could"
  81.     JustifyLine Picture1.hDC, Picture1.CurrentX, Picture1.CurrentY, Picture1.ScaleWidth, msg$
  82.     Picture1.Print
  83.     msg$ = "even write a small word-processor yourself."
  84.     JustifyLine Picture1.hDC, Picture1.CurrentX, Picture1.CurrentY, Picture1.ScaleWidth, msg$
  85. End Sub
  86.