home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / mabry / flabel10 / sample / flsample.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-01-22  |  3.4 KB  |  111 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "FLabel Sample"
  4.    ClientHeight    =   3255
  5.    ClientLeft      =   1665
  6.    ClientTop       =   2400
  7.    ClientWidth     =   6630
  8.    Height          =   3660
  9.    Left            =   1605
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3255
  12.    ScaleWidth      =   6630
  13.    Top             =   2055
  14.    Width           =   6750
  15.    Begin CommandButton Command2 
  16.       Caption         =   "Exit"
  17.       Height          =   375
  18.       Left            =   3480
  19.       TabIndex        =   3
  20.       Top             =   2640
  21.       Width           =   1575
  22.    End
  23.    Begin CommandButton Command1 
  24.       Caption         =   "Print"
  25.       Height          =   375
  26.       Left            =   1680
  27.       TabIndex        =   2
  28.       Top             =   2640
  29.       Width           =   1575
  30.    End
  31.    Begin TextBox Text1 
  32.       Height          =   2175
  33.       Left            =   3480
  34.       MultiLine       =   -1  'True
  35.       TabIndex        =   0
  36.       Text            =   "Text1"
  37.       Top             =   240
  38.       Width           =   2895
  39.    End
  40.    Begin FLabel FLabel1 
  41.       AutoSize        =   0   'False
  42.       BackStyle       =   0  'Transparent
  43.       Caption         =   "FLabel1"
  44.       Delimiter       =   ""
  45.       Height          =   2175
  46.       Left            =   240
  47.       ParaBefore      =   0
  48.       ParaFirst       =   0
  49.       ParaLeft        =   0
  50.       ParaRight       =   0
  51.       TabIndex        =   1
  52.       Top             =   240
  53.       Width           =   3015
  54.       WordWrap        =   0   'False
  55.    End
  56. Option Explicit
  57. Sub Command1_Click ()
  58.     ' draw box
  59.     Printer.Line (1320, 1320)-Step(6000, 1680), , B
  60.     ' set up printer
  61.     FLabel1.PrinterScaleMode = Printer.ScaleMode
  62.     ' print at left = 1", top = 1"
  63.     ' height = 1", width = 4"
  64.     FLabel1.PrinterTop = 1440
  65.     FLabel1.PrinterLeft = 1440
  66.     FLabel1.PrinterHeight = 1440
  67.     FLabel1.PrinterWidth = 4 * 1440
  68.     ' print
  69.     FLabel1.PrinterHDC = Printer.hDC
  70.     ' make sure printer object knows something has
  71.     ' happened
  72.     Printer.Print ""
  73.     ' end job
  74.     Printer.EndDoc
  75. End Sub
  76. Sub Command2_Click ()
  77.     ' get out
  78.     End
  79. End Sub
  80. Sub Form_Load ()
  81.     FLabel1.ParaBefore = 240
  82.     FLabel1.ParaFirst = 480
  83.     FLabel1.WordWrap = True
  84.     Text1.Text = "This is a test of |color:blue|FLabel VBX|color:black|.  Play with this text to change the formatting.  Then, try printing it.  You should see your text inside a box.|cr|It's fun ..."
  85. End Sub
  86. Sub Form_Resize ()
  87.     FLabel1.Top = 240
  88.     FLabel1.Left = 240
  89.     FLabel1.Width = (Form1.ScaleWidth / 2) - 360
  90.     FLabel1.Height = Form1.ScaleHeight - 1080
  91.     Text1.Top = 240
  92.     Text1.Left = (Form1.ScaleWidth / 2) + 120
  93.     Text1.Width = (Form1.ScaleWidth / 2) - 360
  94.     Text1.Height = Form1.ScaleHeight - 1080
  95.     Command1.Top = Form1.ScaleHeight - 600
  96.     Command1.Left = (Form1.ScaleWidth / 2) - Command1.Width - 120
  97.     Command2.Top = Form1.ScaleHeight - 600
  98.     Command2.Left = (Form1.ScaleWidth / 2) + 120
  99. End Sub
  100. Sub Text1_Change ()
  101.     Dim Offset As Integer
  102.     Dim Temp As String
  103.     Temp = Text1.Text
  104.     Do While InStr(Temp, Chr(13) & Chr(10))
  105.         Offset = InStr(Temp, Chr(13) & Chr(10))
  106.         Temp = Left(Temp, Offset - 1) & "|CR|" & Mid(Temp, Offset + 2)
  107.     Loop
  108.     Text1.Text = Temp
  109.     FLabel1.Caption = Temp
  110. End Sub
  111.