想将C#代码转换成VB.NET代码,具体代码如下:
发布网友
发布时间：2024-10-08 16:25
共1个回答
热心网友
时间：2024-10-08 17:44
Public Delegate Sub setlist(ByVal ListUsers() As String)
Private Sub ListUsers(ByVal users() As String)
Try
Dim lusers() As String
lusers = users
If lstUsers.InvokeRequired Then
Dim List As setlist = New setlist(AddressOf ListUsers)
Invoke(List, New Object() {users})
Else
Dim I As Integer
For I = 1 To users.Length - 1
lstUsers.Items.Add(users(I))
Next
End If
Catch ex As Exception
MessageBox.Show("异常错误：" & ex.Message, "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
