home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_2 / VB_G_PRT / ABORTFOR.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1994-06-03  |  2.1 KB  |  64 lines
  1. VERSION 2.00
  2. Begin Form AbortForm 
  3.    BackColor       =   &H8000000F&
  4.    Caption         =   "Printing"
  5.    ClientHeight    =   1425
  6.    ClientLeft      =   2145
  7.    ClientTop       =   4215
  8.    ClientWidth     =   3765
  9.    ControlBox      =   0   'False
  10.    Height          =   1830
  11.    Left            =   2085
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   1425
  17.    ScaleWidth      =   3765
  18.    Top             =   3870
  19.    Visible         =   0   'False
  20.    Width           =   3885
  21.    Begin CommandButton CmdAbort 
  22.       Caption         =   "Press to Abort Print Job"
  23.       Height          =   372
  24.       Left            =   600
  25.       TabIndex        =   0
  26.       Top             =   840
  27.       Width           =   2532
  28.    End
  29.    Begin Label Label1 
  30.       BackColor       =   &H8000000F&
  31.       Caption         =   "Label1"
  32.       Height          =   492
  33.       Left            =   240
  34.       TabIndex        =   1
  35.       Top             =   120
  36.       Width           =   3372
  37.    End
  38. '----------------------------------------------------------------
  39. 'Copyright 1994   Unger Business Systems  All Rights Reserved
  40. 'This code is distributed as shareware.  If you use it, you
  41. 'are required by law to register it.  Please contact Unger
  42. 'Business Systems at 11926 Barrett Brae, Houston, TX 77072-4004
  43. 'or call (713) 498-8517.  Registration fee is $20.00 US
  44. 'See the README.TXT file for more information
  45. 'All code, forms, modules, controls, etc. are provided without
  46. 'warranty or liability
  47. '----------------------------------------------------------------
  48. Option Explicit
  49. Sub CmdAbort_Click ()
  50.    AbortPrinting = True
  51.    cmdAbort.Caption = "ABORT - Please wait..."
  52.    AbortForm.Refresh
  53.    DoEvents
  54.    Screen.MousePointer = 11
  55. End Sub
  56. Sub Form_Load ()
  57.     Dim TLeft%, TTop%
  58.     'position form in center of screen
  59.     TLeft = (Screen.Width - Width) / 2
  60.     TTop = (Screen.Height - Height) / 2
  61.     Move TLeft, TTop
  62.     cmdAbort.Caption = "Press to Abort Print Job"
  63. End Sub
  64.