0

我对类库应用程序类型有疑问,所以我需要这方面的帮助。

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

在软件调用插件时首先启动的主类中。我在代码下面启动了一个Windows Form,对象的名字是objListValidation。我的问题是,当我执行 Me.Show() 时,它会显示窗口,但它会到 CompareToList 函数的末尾并且不会停在那里。

启动 Win Form 的代码:

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
4

1 回答 1

1

您可能想调用Me.ShowDialog(),直到用户关闭对话框才会返回。

于 2012-10-18T03:34:12.177 回答