VERSION 5.00
Begin VB.Form RecvEvt 
   BorderStyle     =   3  'Œ޲۸
   Caption         =   "ĎM"
   ClientHeight    =   3135
   ClientLeft      =   1245
   ClientTop       =   1965
   ClientWidth     =   5610
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'Z ް
   ScaleHeight     =   3135
   ScaleWidth      =   5610
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton ClearBtn 
      Caption         =   "ر"
      Height          =   375
      Left            =   1620
      TabIndex        =   19
      Top             =   960
      Width           =   435
   End
   Begin VB.CommandButton ExitBtn 
      Caption         =   "I"
      Height          =   375
      Left            =   3900
      TabIndex        =   18
      Top             =   960
      Width           =   1635
   End
   Begin VB.TextBox TimeOut 
      Height          =   315
      Left            =   2520
      TabIndex        =   4
      Top             =   60
      Width           =   495
   End
   Begin VB.CommandButton ReceiveEventBtn 
      Caption         =   "ĎM҂"
      Height          =   375
      Left            =   3900
      TabIndex        =   2
      Top             =   60
      Width           =   1635
   End
   Begin VB.TextBox EventID 
      Height          =   315
      Left            =   840
      TabIndex        =   1
      Text            =   "*"
      Top             =   60
      Width           =   495
   End
   Begin VB.Label RecvEventID 
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  '
      Height          =   255
      Left            =   1620
      TabIndex        =   17
      Top             =   1440
      Width           =   555
   End
   Begin VB.Label Label12 
      Alignment       =   1  'E
      Caption         =   "MID"
      Height          =   255
      Left            =   360
      TabIndex        =   16
      Top             =   1440
      Width           =   1215
   End
   Begin VB.Label Message 
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  '
      Height          =   255
      Left            =   1620
      TabIndex        =   15
      Top             =   2640
      Width           =   3915
   End
   Begin VB.Label Label10 
      Alignment       =   1  'E
      Caption         =   "ү"
      Height          =   255
      Left            =   360
      TabIndex        =   14
      Top             =   2640
      Width           =   1215
   End
   Begin VB.Label UserName 
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  '
      Height          =   255
      Left            =   1620
      TabIndex        =   13
      Top             =   2340
      Width           =   3915
   End
   Begin VB.Label Label8 
      Alignment       =   1  'E
      Caption         =   "Mհޖ"
      Height          =   255
      Left            =   360
      TabIndex        =   12
      Top             =   2340
      Width           =   1215
   End
   Begin VB.Label MachineName 
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  '
      Height          =   255
      Left            =   1620
      TabIndex        =   11
      Top             =   2040
      Width           =   1875
   End
   Begin VB.Label Label6 
      Alignment       =   1  'E
      Caption         =   "Mϼݖ"
      Height          =   255
      Left            =   360
      TabIndex        =   10
      Top             =   2040
      Width           =   1215
   End
   Begin VB.Label ServerName 
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  '
      Height          =   255
      Left            =   1620
      TabIndex        =   9
      Top             =   1740
      Width           =   1875
   End
   Begin VB.Label Label5 
      Alignment       =   1  'E
      Caption         =   "Mޖ"
      Height          =   255
      Left            =   360
      TabIndex        =   8
      Top             =   1740
      Width           =   1215
   End
   Begin VB.Label Label4 
      Caption         =   "MďF"
      Height          =   315
      Left            =   60
      TabIndex        =   7
      Top             =   1020
      Width           =   1335
   End
   Begin VB.Label StatusText 
      Alignment       =   2  '
      BackColor       =   &H00C0FFFF&
      BorderStyle     =   1  '
      Height          =   315
      Left            =   60
      TabIndex        =   6
      Top             =   540
      Width           =   5475
   End
   Begin VB.Label Label3 
      Caption         =   "b"
      Height          =   315
      Left            =   3060
      TabIndex        =   5
      Top             =   120
      Width           =   315
   End
   Begin VB.Label Label2 
      Caption         =   "ѱāF"
      Height          =   315
      Left            =   1680
      TabIndex        =   3
      Top             =   120
      Width           =   795
   End
   Begin VB.Label Label1 
      Caption         =   "IDF"
      Height          =   315
      Left            =   60
      TabIndex        =   0
      Top             =   120
      Width           =   735
   End
End
Attribute VB_Name = "RecvEvt"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'
' JAPI CxgM API(JmssReceiveEvent֐) TvvO
'   (C)NEC Corporation/NEC Soft, Ltd. 1995,2003
'
'         2003.7.26 Created by NEC Soft, Ltd.
'

Private caEventID As String             'MCxgID
Private caServerName As String * 16     'MT[o
Private caMachineName As String * 16    'M}V
Private caUserName As String * 41       'M[U
Private caMessage As String * 129       'MbZ[W
Private caRecvEventID As String * 5     'MCxgID



'[NA{^]NbN
'
'   FMCxg̕\NA
'
Private Sub ClearBtn_Click()
    StatusText.Caption = "ĂMł܂"
    RecvEventID.Caption = ""
    ServerName.Caption = ""
    MachineName.Caption = ""
    UserName.Caption = ""
    Message.Caption = ""
End Sub


'[I{^]NbN
'
'   FvOI
'
Private Sub ExitBtn_Click()
    'I
    End
End Sub

'[CxgMEBhE]\
'
'   FJMSST[oAg̃Wuԍ^Cgo[ɕ\
'
Private Sub Form_Load()
    Dim lCurJobNo As Long   'g̃Wuԍ
    
    '*** JMSST[oƎg̃Wuԍ擾 ***
    lRet = JmssCurrentJobNo(caServerName, lCurJobNo)
    If (lRet <> JMSS_NOGET_SERVERNAME) Then
        Caption = Caption & " - " & caServerName
    End If
    If (lRet <> JMSS_NOWATCH) Then
        Caption = Caption & " - [ޮޔԍ: " & lCurJobNo
        Caption = Caption & "]"
    End If
    StatusText.Caption = "ĂMł܂"
End Sub

'[CxgM{^]NbN
'
'   Fw肳ꂽCxgw肳ꂽ^CAEgb܂ŎM҂
'
Private Sub ReceiveEventBtn_Click()
    'CxgID̐ݒ
    If (EventID.Text = "") Then
        StatusText.Caption = "IDsł (p4ȓ܂'*')"
        Exit Sub
    Else
        caEventID = EventID.Text
    End If
    
    '^CAEgԂ̐ݒ
    If (TimeOut.Text = "") Then
        dwTimeOut& = &HFFFF
    Else
        dwTimeOut& = TimeOut.Text
    End If
    
    '}EX|C^vɂ
    Screen.MousePointer = 11
    
    '*** ĎM ***
    lRet = JmssReceiveEvent(caEventID, caServerName, caMachineName, caUserName, caMessage, caRecvEventID, dwTimeOut&)
    
    '}EX|C^ɖ߂
    Screen.MousePointer = 0
    
    If (lRet <> 0) Then
        If (lRet = JMSS_TIMEOUT) Then
            StatusText.Caption = "ѱĂ܂"
        Else
            StatusText.Caption = "ĎMs (װ:" & lRet & ")"
        End If
        Exit Sub
    End If
    
    'MCxg\
    RecvEventID.Caption = caRecvEventID
    ServerName.Caption = caServerName
    MachineName.Caption = caMachineName
    UserName.Caption = caUserName
    Message.Caption = caMessage

    StatusText.Caption = "ĂM܂"
End Sub


'[CxgM{^]tH[JXAEg
'
'   FCxgM{^痣ꂽXe[^X\NA
'
Private Sub ReceiveEventBtn_LostFocus()
    'Xe[^X\NA
    StatusText.Caption = ""
End Sub


