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 String, ByRef MsgParamArray() As String, ByVal 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]