VERSION 5.00
Begin VB.Form SendEvent 
   Caption         =   "đM"
   ClientHeight    =   2490
   ClientLeft      =   3060
   ClientTop       =   4185
   ClientWidth     =   5790
   LinkTopic       =   "Form1"
   PaletteMode     =   1  'Z ް
   ScaleHeight     =   2490
   ScaleWidth      =   5790
   Begin VB.TextBox Param 
      Height          =   795
      Left            =   1860
      MultiLine       =   -1  'True
      ScrollBars      =   3  '
      TabIndex        =   5
      Top             =   1560
      Width           =   2235
   End
   Begin VB.CommandButton CancelBtn 
      Caption         =   "ݾ"
      Height          =   315
      Left            =   4320
      TabIndex        =   7
      Top             =   480
      Width           =   1395
   End
   Begin VB.CommandButton SendBtn 
      Caption         =   "M"
      Height          =   315
      Left            =   4320
      TabIndex        =   6
      Top             =   120
      Width           =   1395
   End
   Begin VB.TextBox Message 
      Height          =   315
      Left            =   1860
      TabIndex        =   4
      Top             =   1200
      Width           =   2235
   End
   Begin VB.TextBox EventID 
      Height          =   315
      Left            =   1860
      TabIndex        =   3
      Top             =   840
      Width           =   2235
   End
   Begin VB.TextBox QueueName 
      Height          =   315
      Left            =   1860
      TabIndex        =   2
      Top             =   480
      Width           =   2235
   End
   Begin VB.TextBox ServerName 
      Height          =   315
      Left            =   1860
      TabIndex        =   1
      Top             =   120
      Width           =   2235
   End
   Begin VB.Label Label5 
      Alignment       =   1  'E
      Caption         =   "Ұ"
      Height          =   315
      Left            =   120
      TabIndex        =   11
      Top             =   1680
      Width           =   1680
   End
   Begin VB.Label Label4 
      Alignment       =   1  'E
      Caption         =   "ү"
      Height          =   315
      Left            =   120
      TabIndex        =   10
      Top             =   1260
      Width           =   1680
   End
   Begin VB.Label Label3 
      Alignment       =   1  'E
      Caption         =   "CxgID"
      Height          =   315
      Left            =   120
      TabIndex        =   9
      Top             =   900
      Width           =   1680
   End
   Begin VB.Label Label2 
      Alignment       =   1  'E
      Caption         =   "M淭"
      Height          =   315
      Left            =   120
      TabIndex        =   8
      Top             =   540
      Width           =   1680
   End
   Begin VB.Label Label1 
      Alignment       =   1  'E
      Caption         =   "MJMSSޖ"
      Height          =   315
      Left            =   120
      TabIndex        =   0
      Top             =   180
      Width           =   1680
   End
End
Attribute VB_Name = "SendEvent"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' JAPI CxgM API(JmssSendEvent֐) TvvO
'   (C)NEC Corporation/NEC Software,Ltd. 1995,1996
'
'         2000.4.20 Created by NEC Soft
'
' CxgM_CAOW[
'
'   FCxg𑗐M
'

Private caServerName As String  'T[o
Private caQueueName As String   'L[
Private caEventID As String     'CxgID
Private caMessage As String     'bZ[W
Private caParam As String       'p[^
Private caParamBuf As String    'p[^(ꎞi[p)

'[LZ{^]NbN
'
'   FCxgM_CAOI
'
Private Sub CancelBtn_Click()
    '_CAO
    Unload SendEvent
End Sub


'[CxgM{^]NbN
'
'   Fw肵ŃCxg𑗐M
'
Private Sub SendBtn_Click()
    'CxgIDw肳ĂȂ΃G[
    If (EventID.Text <> "") Then
        caEventID = EventID.Text
    Else
        ErrorMsg JMSS_PARAM_ERROR
        Exit Sub
    End If
    
    'T[oAL[AbZ[WAp[^ݒ
    caServerName = ServerName.Text
    caQueueName = QueueName.Text
    caMessage = Message.Text
    caParamBuf = Param.Text
    
    '*** CxgM ***
    If (Len(caParamBuf) = 0) Then
        lRet& = JmssSendEvent(caServerName, caQueueName, caEventID, caMessage)
    Else
        caParam = SetEvtParam(caParamBuf + vbCrLf)
        lRet& = JmssSendEventEx(caServerName, caQueueName, caEventID, caMessage, caParam)
    End If
    
    If (lRet& <> 0) Then
        ErrorMsg lRet&
    End If

    '_CAO
    Unload SendEvent
End Sub


