home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / cansend.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-26  |  2.0 KB  |  69 lines
  1. VERSION 4.00
  2. Begin VB.Form Form2 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "MSComm Terminal"
  5.    ClientHeight    =   1296
  6.    ClientLeft      =   1776
  7.    ClientTop       =   2892
  8.    ClientWidth     =   5220
  9.    ControlBox      =   0   'False
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   1
  13.       weight          =   400
  14.       size            =   7.8
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    Height          =   1716
  20.    Left            =   1728
  21.    LinkTopic       =   "Form2"
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    ScaleHeight     =   1296
  25.    ScaleWidth      =   5220
  26.    Top             =   2520
  27.    Width           =   5316
  28.    Begin VB.CommandButton Command1 
  29.       Cancel          =   -1  'True
  30.       Caption         =   "Cancel"
  31.       Height          =   372
  32.       Left            =   2160
  33.       TabIndex        =   1
  34.       Top             =   840
  35.       Width           =   972
  36.    End
  37.    Begin VB.Label Label1 
  38.       Height          =   492
  39.       Left            =   120
  40.       TabIndex        =   0
  41.       Top             =   120
  42.       Width           =   4932
  43.    End
  44. Attribute VB_Name = "Form2"
  45. Attribute VB_Creatable = False
  46. Attribute VB_Exposed = False
  47. '*************************************************
  48. ' CANSEND.FRM is a dialog box that allows the user
  49. ' to cancel a "Transmit Text File" operation.  This
  50. ' is a modeless form that acts modal while allowing
  51. ' other processes to continue.
  52. '*************************************************
  53. DefInt A-Z
  54. Option Explicit
  55. Const SWP_NOMOVE = &h2
  56. Const SWP_NOSIZE = &h1
  57. Private Sub Command1_Click()
  58.    CancelSend = True
  59. End Sub
  60. Private Sub Form_Activate()
  61.    ' Make this form a floating window that is always on top.
  62.    SetWindowPos hWnd, -1, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
  63. End Sub
  64. Private Sub Form_Deactivate()
  65.    If Not CancelSend Then
  66.       Form2.Show
  67.    End If
  68. End Sub
  69.