GFProgramMessageSystem/Testfrm.frm

VERSION 5.00
Begin VB.Form Testfrm
   Caption         =   "Testfrm"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4635
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4635
   StartUpPosition =   3 'Windows‑Standard
   Begin VB.TextBox Text1
      Height          =   285
      Left            =   1860
      TabIndex        =   2
      Top             =   1260
      Width           =   495
   End
   Begin VB.CommandButton Command2
      Caption         =   "get msg param information"
      Height          =   315
      Left            =   2460
      TabIndex        =   1
      Top             =   1260
      Width           =   2055
   End
   Begin VB.CommandButton Command1
      Caption         =   "create message"
      Height          =   315
      Left            =   2460
      TabIndex        =   0
      Top             =   2760
      Width           =   2055
   End
End
Attribute VB_Name = "Testfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'(c)2001 by Louis.
'
'NOTE: this form contains debug code only, do not copy to target project.

Private Sub Command1_Click()
    'on error resume next
    Call MsgPacket_Create("display info text")
    Call MsgPacket_AddItem("display info text", "Hallo!!!")
    Call Msg_AddEx(MSG_NORMAL_EVENT, "20", "0", "display info", "display info text")
    Call Msg_AddEx(MSG_EVENT_AFTER_EVENT_REMOVE, "display info", "", "display info 2", "")
    'NOTE: as the first message stays in message buffer 20 * 0.1 seconds the second message
    'will not be processed before (approx.) 2 seconds have passed.
End Sub

Private Sub Command2_Click()
    'on error resume next
    Call GFPMSmod.GFPMS_GetMsgParamHelp(Val(Text1.Text))
End Sub

Private Sub Form_Load()
    'on error resume next
    Call GFPMSmod.GFPMS_DefineSystemEx(100, Testfrm)
End Sub

Public Sub GFPMS_ReceiveEvent(ByVal MsgName As StringByRef MsgParamArray() As StringByVal MsgParamNumber As Integer)
    'on error resume next 'sub belonging to the GFPMS system
    '
    'NOTE: this sub is a copy specially made fit to the target project.
    'Add all possible MsgNames and related subs/functions below.
    '
    Select Case MsgName
    Case "display info"
        'MsgBox MsgParamArray(1)
    Case "display info 2"
        MsgBox "MSG_EVENT_AFTER_EVENT_REMOVE"
    End Select
End Sub


[END OF FILE]