home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c480 / 21.ddi / CANSEND.FR_ / CANSEND.bin (.txt)
Encoding:
Visual Basic Form  |  1993-02-14  |  1.7 KB  |  56 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "MSComm Terminal"
  5.    ControlBox      =   0   'False
  6.    Height          =   1710
  7.    Left            =   1710
  8.    LinkTopic       =   "Form2"
  9.    MaxButton       =   0   'False
  10.    MinButton       =   0   'False
  11.    ScaleHeight     =   1305
  12.    ScaleWidth      =   5190
  13.    Top             =   2520
  14.    Width           =   5310
  15.    Begin CommandButton Command1 
  16.       Cancel          =   -1  'True
  17.       Caption         =   "Cancel"
  18.       Height          =   372
  19.       Left            =   2160
  20.       TabIndex        =   1
  21.       Top             =   840
  22.       Width           =   972
  23.    End
  24.    Begin Label Label1 
  25.       Height          =   492
  26.       Left            =   120
  27.       TabIndex        =   0
  28.       Top             =   120
  29.       Width           =   4932
  30.    End
  31. '*************************************************
  32. 'CANSEND.FRM - Dialog box used to allow the user
  33. 'to cancel a "Transmit Text File" operation.  This
  34. 'is a Modeless form that acts Modal while allowing
  35. 'other processes to continue.
  36. '*************************************************
  37. DefInt A-Z
  38. Option Explicit
  39. Declare Sub SetWindowPos Lib "USER" (ByVal hWnd%, ByVal hWndInsertAfter%, ByVal X%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal wFlags%)
  40. Const SWP_NOMOVE = &H2
  41. Const SWP_NOSIZE = &H1
  42. Sub Command1_Click ()
  43.    CancelSend = True
  44. End Sub
  45. Sub Form_Activate ()
  46.    '--- Make this form a "Floating" window
  47.    '    (Always on top)
  48.    SetWindowPos hWnd, -1, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
  49. End Sub
  50. Sub Form_Deactivate ()
  51.    If Not CancelSend Then
  52.       
  53.       Form2.Show
  54.    End If
  55. End Sub
  56.