home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / column1r / testsimu.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-08-25  |  2.5 KB  |  79 lines
  1. VERSION 5.00
  2. Object = "{26F67CA6-5AD8-11D3-8FCF-0080C87630EC}#7.0#0"; "WinNetworkComm.ocx"
  3. Begin VB.Form TestSimulator 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   1860
  6.    ClientLeft      =   60
  7.    ClientTop       =   375
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   1860
  11.    ScaleWidth      =   4680
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.CommandButton Command2 
  14.       Caption         =   "Command2"
  15.       Height          =   195
  16.       Left            =   2400
  17.       TabIndex        =   3
  18.       Top             =   1560
  19.       Width           =   2055
  20.    End
  21.    Begin VB.TextBox lABEL1 
  22.       Height          =   1455
  23.       Left            =   0
  24.       MultiLine       =   -1  'True
  25.       ScrollBars      =   3  'Both
  26.       TabIndex        =   2
  27.       Top             =   0
  28.       Width           =   4575
  29.    End
  30.    Begin VB.CommandButton Command1 
  31.       Caption         =   "Command1"
  32.       Height          =   255
  33.       Left            =   0
  34.       TabIndex        =   1
  35.       Top             =   1560
  36.       Width           =   2055
  37.    End
  38.    Begin WinNetworkComm.WinPoPupEmulator WinPoPupEmulator1 
  39.       Height          =   495
  40.       Left            =   0
  41.       TabIndex        =   0
  42.       Top             =   0
  43.       Visible         =   0   'False
  44.       Width           =   735
  45.       _ExtentX        =   1296
  46.       _ExtentY        =   873
  47.    End
  48. Attribute VB_Name = "TestSimulator"
  49. Attribute VB_GlobalNameSpace = False
  50. Attribute VB_Creatable = False
  51. Attribute VB_PredeclaredId = True
  52. Attribute VB_Exposed = False
  53. Option Explicit
  54. Dim cpt As Integer
  55. Private Sub Command1_Click()
  56.     WinPoPupEmulator1.SendToWinPopUp "moi", ".", "test" & cpt
  57.     cpt = cpt + 1
  58. End Sub
  59. Private Sub Command2_Click()
  60.     WinPoPupEmulator1.SendToWinPopUp "moi", ".", "test" & cpt
  61.     cpt = cpt + 1
  62.     WinPoPupEmulator1.SendToWinPopUp "moi", ".", "test" & cpt
  63.     cpt = cpt + 1
  64. End Sub
  65. Private Sub Form_Load()
  66.     cpt = 1
  67.     WinPoPupEmulator1.Initialisation
  68.     Debug.Print WinPoPupEmulator1.MailSlotHandle
  69. End Sub
  70. Private Sub Form_Unload(Cancel As Integer)
  71.     WinPoPupEmulator1.CloseSimulator
  72. End Sub
  73. Private Sub WinPoPupEmulator1_MessageWaiting(NbrMessageWaiting As Integer)
  74. Dim x As Integer
  75. For x = 1 To NbrMessageWaiting
  76.     lABEL1.Text = lABEL1.Text & vbCrLf & "Message From " & WinPoPupEmulator1.MessageFrom(1) & vbCrLf & WinPoPupEmulator1.MessageText(1)
  77.     WinPoPupEmulator1.ClearMessage (1)
  78. End Sub
  79.