我目前正在开发一个程序,该程序可以访问数据库。 在搜索LAN中的主机/实例的过程中,我想在主窗体上显示第二个窗体,这表明程序正在“运行”。 我猜这可以正常工作,但是“请稍等...”-表格的外观仍然损坏。
这是我要处理的方式:
Private Sub Cbox_database_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbox_database.MouseClick
Try
Dim frmloading As New loading
loading.Show()
cbox_database.Items.Clear()
loadInstances(cbox_database)
Finally
loading.Close()
cbox_database.DroppedDown = True
End Try
End Sub
Sub loadInstances(cbox As ComboBox)
Dim dt As DataTable = SqlDataSourceEnumerator.Instance.GetDataSources
For Each dr As DataRow In dt.Rows
cbox.Items.Add(String.Concat(dr("ServerName"), "\", dr("InstanceName")))
Next
End Sub
由于我是初学者,所以我确信有更好的方法来做到这一点。我愿意接受任何建议。
谢谢。