home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / COMPTOOL / MSCOMM / CANSEND.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1996-09-16  |  2.0 KB  |  64 lines
  1. VERSION 5.00
  2. Begin VB.Form frmCancelSend 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Visual Basic Terminal"
  5.    ClientHeight    =   1290
  6.    ClientLeft      =   1455
  7.    ClientTop       =   3795
  8.    ClientWidth     =   5220
  9.    ControlBox      =   0   'False
  10.    Height          =   1695
  11.    Left            =   1395
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   1290
  16.    ScaleWidth      =   5220
  17.    Top             =   3450
  18.    Width           =   5340
  19.    Begin VB.CommandButton Command1 
  20.       Cancel          =   -1  'True
  21.       Caption         =   "Cancel"
  22.       Height          =   372
  23.       Left            =   2160
  24.       TabIndex        =   1
  25.       Top             =   840
  26.       Width           =   972
  27.    End
  28.    Begin VB.Label Label1 
  29.       Height          =   492
  30.       Left            =   120
  31.       TabIndex        =   0
  32.       Top             =   120
  33.       Width           =   4932
  34.    End
  35. Attribute VB_Name = "frmCancelSend"
  36. Attribute VB_Base = "0{C058BDBE-BD78-11CF-9BF3-00AA002FFD8F}"
  37. Attribute VB_Creatable = False
  38. Attribute VB_TemplateDerived = False
  39. Attribute VB_PredeclaredId = True
  40. Attribute VB_Exposed = False
  41. Attribute VB_Customizable = False
  42. '*************************************************
  43. ' CANSEND.FRM is a dialog box that allows the user
  44. ' to cancel a "Transmit Text File" operation.  This
  45. ' is a modeless form that acts modal while allowing
  46. ' other processes to continue.
  47. '*************************************************
  48. DefInt A-Z
  49. Option Explicit
  50. Const SWP_NOMOVE = &H2
  51. Const SWP_NOSIZE = &H1
  52. Private Sub Command1_Click()
  53.    CancelSend = True
  54. End Sub
  55. Private Sub Form_Activate()
  56.    ' Make this form a floating window that is always on top.
  57.    SetWindowPos hWnd, -1, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
  58. End Sub
  59. Private Sub Form_Deactivate()
  60.    If Not CancelSend Then
  61.       frmCancelSend.Show
  62.    End If
  63. End Sub
  64.