VB6.0下消息队列的实现
求各位高手给点VB6.0下消息队列的实现的资料，求例程。 --------------------编程问答-------------------- 参考这个网址http://wenku.baidu.com/view/ec570dd376eeaeaad1f330af.html###Dim a As String
Dim temstring As String
If ListBox1.Items.Count = 0 Then Exit Sub '检查队列是否为空
'temstring = ListBox1.Items(0).ToString
'取出第一条报警信息
If ListBox1.Items.Count > 1 Then
a = Strings.Left(ListBox1.Items(1).ToString, 2)
ElseIf ListBox1.Items.Count = 1 Then
a = Strings.Left(ListBox1.Items(0).ToString, 2)
End If
If Not IsNumeric(a) Then
number = Strings.Left(a, 1)
Else : number = a
End If
这是我修改后的代码 ，没什么注释，将就着看看吧
补充：VB , 基础类
