Programming Tool Box/SIMS_2.iso/vb_code1/mailslot/mailslot.frm

Text File | 1993-09-15 | 6KB | 199 lines

VERSION 2.00
Begin Form Form1
   Caption         =   "Form1"
   ClientHeight    =   2670
   ClientLeft      =   3225
   ClientTop       =   1560
   ClientWidth     =   6150
   Height          =   3075
   Left            =   3165
   LinkTopic       =   "Form1"
   ScaleHeight     =   2670
   ScaleWidth      =   6150
   Top             =   1215
   Width           =   6270
   Begin Frame Frame1
      Caption         =   "Peek "
      Height          =   1575
      Left            =   3540
      TabIndex        =   10
      Top             =   435
      Width           =   2430
      Begin Label Label8
         Caption         =   "NextPriority:"
         Height          =   270
         Left            =   120
         TabIndex        =   6
         Top             =   1050
         Width           =   1035
      End
      Begin Label Label7
         Caption         =   "NextSize:"
         Height          =   180
         Left            =   135
         TabIndex        =   7
         Top             =   720
         Width           =   840
      End
      Begin Label Label6
         Caption         =   "Message:"
         Height          =   210
         Left            =   135
         TabIndex        =   14
         Top             =   405
         Width           =   855
      End
      Begin Label Label2
         Caption         =   "Label2"
         Height          =   240
         Left            =   1260
         TabIndex        =   13
         Top             =   720
         Width           =   1000
      End
      Begin Label Label3
         Caption         =   "Label3"
         Height          =   240
         Left            =   1260
         TabIndex        =   12
         Top             =   1065
         Width           =   1000
      End
      Begin Label Label4
         Caption         =   "Label4"
         Height          =   240
         Left            =   1260
         TabIndex        =   11
         Top             =   405
         Width           =   1000
      End
   End
   Begin Timer Timer1
      Enabled         =   0   'False
      Interval        =   100
      Left            =   2880
      Top             =   1440
   End
   Begin TextBox Text2
      Height          =   345
      Left            =   120
      TabIndex        =   5
      Text            =   "\mailslot\atest"
      Top             =   480
      Width           =   2535
   End
   Begin CommandButton Command4
      Caption         =   "Read"
      Height          =   420
      Left            =   1440
      TabIndex        =   4
      Top             =   2040
      Width           =   1215
   End
   Begin CommandButton Command3
      Caption         =   "Write"
      Enabled         =   0   'False
      Height          =   420
      Left            =   120
      TabIndex        =   2
      Top             =   2040
      Width           =   1215
   End
   Begin CommandButton Command2
      Caption         =   "Delete"
      Height          =   420
      Left            =   1440
      TabIndex        =   1
      Top             =   960
      Width           =   1215
   End
   Begin VBMailslots Mailslot1
      Action          =   0
      Left            =   2880
      MailslotName    =   "\mailslot\atest"
      MailslotSize    =   1024
      Message         =   ""
      Messages        =   0
      MessageSize     =   256
      NextPriority    =   0
      NextSize        =   0
      Priority        =   0
      Timeout         =   2005
      Top             =   720
   End
   Begin CommandButton Command1
      Caption         =   "Make"
      Height          =   420
      Left            =   120
      TabIndex        =   0
      Top             =   960
      Width           =   1215
   End
   Begin Label Label9
      Caption         =   "Mailslot Name:"
      Height          =   225
      Left            =   120
      TabIndex        =   8
      Top             =   240
      Width           =   1560
   End
   Begin Label Label5
      Caption         =   "1"
      Height          =   315
      Left            =   120
      TabIndex        =   9
      Top             =   1560
      Width           =   915
   End
   Begin Label Label1
      Height          =   360
      Left            =   1440
      TabIndex        =   3
      Top             =   1560
      Width           =   1050
   End
End

Sub Command1_Click ()
    Mailslot1.MailslotName = Text2.Text
    Mailslot1.Action = 1
    Command3.Enabled = True
    Timer1.Enabled = True
End Sub

Sub Command2_Click ()
    Timer1.Enabled = False
    Mailslot1.Message = Label5.Caption
    Mailslot1.Action = 2
    Command3.Enabled = False
End Sub

Sub Command3_Click ()
    Mailslot1.MailslotName = Text2.Text
    Mailslot1.Message = Label5.Caption
    Mailslot1.Action = 3
    Label5.Caption = Str(Val(Label5.Caption) + 1)
End Sub

Sub Command4_Click ()
    Mailslot1.Message = ""
    Mailslot1.Action = 4
    Label1.Caption = Mailslot1.Message
End Sub

Sub Command5_Click ()
    Mailslot1.Message = ""
    Mailslot1.Action = 5
    Label4.Caption = Mailslot1.Message
    Label2.Caption = Str(Mailslot1.NextSize)
    Label3.Caption = Str(Mailslot1.NextPriority)
End Sub

Sub Timer1_Timer ()
    Mailslot1.Action = 5
    Label4.Caption = Mailslot1.Message
    Label2.Caption = Str(Mailslot1.NextSize)
    Label3.Caption = Str(Mailslot1.NextPriority)
End Sub