189 8069 5689
多线程操控同一个空间容易出现混乱，可通过SyncLock语句，将对空间的操作添加至lock语句内部，
创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于成都网站设计、做网站、嵊泗网络推广、微信小程序、嵊泗网络营销、嵊泗企业策划、嵊泗品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联公司为所有大学生创业者提供嵊泗建站搭建服务，24小时服务热线：18982081108，官方网址：www.cdcxhl.com
Class simpleMessageList
Public messagesList() As String = New String(50) {}
Public messagesLast As Integer = -1
Private messagesLock As New Object
Public Sub addAnotherMessage(ByVal newMessage As String)
SyncLock messagesLock
messagesLast += 1
If messagesLast messagesList.Length Then
messagesList(messagesLast) = newMessage
End If
End SyncLock
End Sub
End Class
参考：
报错信息是什么？截图一下。
---------补充----------------
你这报错与线程应该关系不大吧，是调用COM不熟悉造成的，在项目属性里面有些相关配置你研究研究。
指针是c语言的概念，VB、VB.NET没有指针，除了指针以外也很少有人能玩到你的编程深度，关键看不懂呢。
？？？就是子程序的名称，比如每次点击c后就自动调动相对应的子程序，如子程序是
Private Sub my_do ()
........
End Sub
相应的AddHandler c.Click, AddressOf my_do
实际上是个委托
很简单，你怎么不先问我，还在这提问。用api函数，钩子，设置成全局钩子，然后对钩取来的message消息不做处理，也不返回，这样屏蔽了键盘了。钩子函数api好像是什么hook的那个，还有钩子函数的返回函数，以整个自定义函数的指针作参数
你想一边运行，一边填充数据，我给你出的主意是多线程，用另一个线程来Invoke数据，
Thread和线程Timer（不是Form中的Timer），要是同时访问一块数据注意用
SyncLock锁
用API GetKeyboardState ，判断所有的键里哪些被按下了。
下面的是判断键盘灯的状态
Public Class NativeMethods
Private Shared keyState() As Byte
DllImport("user32.dll") _
Private Shared Function GetKeyboardState(ByVal keyState() As Byte) As Boolean
End Function
Private Shared Sub Update()
keyState = New Byte(256) {}
Dim result As Boolean = GetKeyboardState(keyState)
' Check for error:
If result = False Then
Debug.WriteLine("GetKeyBoardState error: " Marshal.GetLastWin32Error)
Throw New Exception("GetKeyBoardState error: " Marshal.GetLastWin32Error)
End If
End Sub
Public Enum LightState
Off
[On]
End Enum
' Example - the keyboard lights...
Public Shared ReadOnly Property CapsLockState() As LightState
Get
Update()
Dim isOn As Boolean = (keyState(Keys.CapsLock) = 1)
Return IIf(isOn, LightState.On, LightState.Off)
End Get
End Property
Public Shared ReadOnly Property NumLockState() As LightState
Get
Update()
Dim isOn As Boolean = (keyState(Keys.NumLock) = 1)
Return IIf(isOn, LightState.On, LightState.Off)
End Get
End Property
Public Shared ReadOnly Property ScrollLockState() As LightState
Get
Update()
Dim isOn As Boolean = (keyState(Keys.Scroll) = 1)
Return IIf(isOn, LightState.On, LightState.Off)
End Get
End Property
End Class