End Class
调用代码
Sub GetSqlServers() Me.Cursor = Cursors.WaitCursor Dim a As ArrayList Dim g As New GetServers a = g.Send() For Each c As SqlServer In a Me.cb_Server.Items.Add(c)
End Class
调用代码
Sub GetSqlServers() Me.Cursor = Cursors.WaitCursor Dim a As ArrayList Dim g As New GetServers a = g.Send() For Each c As SqlServer In a Me.cb_Server.Items.Add(c)