VB.net et activeMQ, problème de lecture de message

Bonjour,

Je suis actuellement en train de faire un programme permettant de lire dans une queue activeMQ.

Ce programme est en VB.net (2008) et j'utilise NMS pour accèder à activeMQ, toutefois j'ai un souci, car lorsque je donne une instruction receive, je reçoit bien un message, mais a queue passe à zéro, je perd donc les autre messages.

Voici le code utilisé:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       connectionfactory = New ConnectionFactory(monURI)
 
        connection = connectionfactory.CreateConnection
        connection.Start()
 
        session = connection.CreateSession(AcknowledgementMode.AutoAcknowledge)
 
        mQueue = New ActiveMQQueue(MyQueueName)
 
        consumer = session.CreateConsumer(mQueue)
 
        Dim message As IMessage = Nothing
        message = consumer.Receive()
 
        If Not message Is Nothing Then
            TextBox1.Text = TextBox1.Text & message.Properties("Text") & vbCrLf
        End If
 
        consumer.Close()
        session.Close()
        connection.Close()
    End Sub

Merci d'avance pour votre aide.