Me.Invoke(New EventHandler(AddressOf() Do
txtCode.Text = msg.ToString()
End Sub))
这个代码有什么问题吗
望高手指点
------解决方案--------------------
你这个是不是c#直接通过那个网站转换过来的?
------解决方案--------------------
- VB.NET code
Me.Invoke(Sub(msg) txtCode.Text = msg, "123")
------解决方案--------------------
- VB.NET code
Private Delegate Sub InvokeDelegate(myString As String) Private Sub ChangeText(myString As String) txtCode.Text = myString End Sub Private Sub GetData(msg As String) Try Me.Invoke(New InvokeDelegate(AddressOf ChangeText), msg) Catch ex As Exception MessageBox.Show("异常,请重试!!!") End Try End Sub