VB .net類庫

Question

我對類庫應用程序類型有疑問，所以我需要幫助。

我得到一個軟件，我可以添加插件。我想使用Visual Studio 2010在VB.NET中創建這個插件。 該軟件只接受類庫應用程序類型，我需要顯示一個帶有組合框的窗體，以便用戶獲取列表中的值。

在軟件調用插件時首先啓動的主類。我在下面的代碼中啓動一個Windows窗體，該對象的名稱是objListValidation。我的問題是，當我做Me.Show（）時，它顯示窗口，但它會到達CompareToList函數的末尾，並不止於此。這顯示運表

Public objListValidation As ListValidation 

objListValidation = New ListValidation 
objListValidation.CompareToList("SELECT <NOM_CHAMP> FROM <NOM_TABLE>") 

代碼：即啓動運表

代碼

Public Sub CompareToList(ByVal qryStr As String, Optional ByVal isBloquant As Boolean = False) 
    Dim alCompteGeneraux As New ArrayList 
    Dim isExistsInList As Boolean = False 

    Dim objConnectDB2 As New ConnectDB2 
    Dim i As Integer = 0 

    If Not isBloquant Then btnCancel.Visible = True : manageButtonsPosition() Else mstrIsBloquant = True 
    al.Add("AAA") 
    al.Add("VVVV") 
    al.Add("BBBB") 

    For i = 0 To al.Count - 1 
     If al.Item(i).ToString = mstrObjInvoiceField.DisplayString Then isExistsInList = True 
    Next 

    If Not isExistsInList Then 
     Me.Text = "Liste de choix pour le champ : " + mstrObjInvoiceField.Name 
     lblTitle.Text = "Veuillez choisir dans la liste une valeur pour le champ : " + mstrObjInvoiceField.Name 
     cbList.DataSource = al 
     Me.Show() 
    Else 
     validation() 
    End If 

End Sub 

Answer 1

你可能想打電話Me.ShowDialog()，這將不會返回，直到用戶關閉該對話框。