VB .net类库

Question

我对类库应用程序类型有疑问，所以我需要帮助。

我得到了一个可以添加插件的软件。我想使用Visual Studio 2010在VB.NET中制作这个插件。 该软件仅接受类库应用程序类型，我需要显示带有Combobox的表单，以便用户在列表中拾取值。

在软件调用插件时首次启动的主类中。我在下面的代码中启动一个Windows窗体，对象的名称是objListValidation。我的问题是，当我执行Me.Show（）时，它会显示窗口，但它会到达CompareToList函数的末尾并且不会停在那里。

启动Win Form的代码：

Public objListValidation As ListValidation

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

显示Win Form的代码：

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()，在用户关闭对话框之前不会返回。