home *** CD-ROM | disk | FTP | other *** search
/ On Hand / On_Hand_From_Softbank_1994_Release_2_Disc_2_1994.iso / 00202 / s / disk1 / cansend.fr_ / cansend.bin
Text File  |  1993-04-28  |  2KB  |  68 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. End
  32. '*************************************************
  33. 'CANSEND.FRM - Dialog box used to allow the user
  34. 'to cancel a "Transmit Text File" operation.  This
  35. 'is a Modeless form that acts Modal while allowing
  36. 'other processes to continue.
  37. '*************************************************
  38. DefInt A-Z
  39. Option Explicit
  40.  
  41. Declare Sub SetWindowPos Lib "USER" (ByVal hWnd%, ByVal hWndInsertAfter%, ByVal X%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal wFlags%)
  42. Const SWP_NOMOVE = &H2
  43. Const SWP_NOSIZE = &H1
  44.  
  45. Sub Command1_Click ()
  46.    
  47.    CancelSend = True
  48.  
  49. End Sub
  50.  
  51. Sub Form_Activate ()
  52.    
  53.    '--- Make this form a "Floating" window
  54.    '    (Always on top)
  55.    SetWindowPos hWnd, -1, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
  56.  
  57. End Sub
  58.  
  59. Sub Form_Deactivate ()
  60.    
  61.    If Not CancelSend Then
  62.       
  63.       Form2.Show
  64.    End If
  65.  
  66. End Sub
  67.  
  68.