Mit System.Windows.Forms in einem Visual Studio Macro

Question

Ich habe begonnen, ein Makro zu schreiben in Visual Studio 2005 wie folgt aus:

Public Sub myMacro() 
    Dim myListBox As New System.Windows.Forms.ListBox() 
    For Each x As String In xs 
     myListBox.Items.Add(x) 
    Next 

Aber ich bin völlig ratlos, wie die ListBox anzuzeigen,

ich ein ähnliches Verhalten wie dieses InputBox Beispiel möchte:

Dim str As String = InputBox("title", "prompt") 

Wie wir die InputBox sofort auf dem Bildschirm aufgebaut und angezeigt werden sehen können, re Drehen eines String, sobald die Box geschlossen ist.

Ich habe versucht, genannt die folgenden Methoden auf myListBox, nachdem sie mit den String s in xs bevölkern, aber die ListBox scheint noch nicht auf dem Bildschirm:

myListBox.EndUpdate() 
myListBox.Show() 

ich auch eine System.Windows.Forms.Form versucht haben, Erstellen und Hinzufügen der ListBox dazu, nach einem ähnlichen Ansatz zu dem für einen Knopf here (under Examples, Visual Basic) skizziert. Wieder erscheint nichts auf dem Anruf form.ShowDialog().

Answer 1

Der folgende Code funktionierte für mich in Visual Studio 2008. Der Verweis auf System.Windows.Forms war bereits vorhanden, als ich die Makro-IDE öffnete, ich musste einfach eine Imports System.Windows.Forms an der Spitze des Moduls hinzufügen.

Public Sub myMacro() 

    Dim myListBox As New ListBox 
    Dim xs As String() = New String() {"First", "Second", "Third", "Fourth"} 

    For Each x As String In xs 
     myListBox.Items.Add(x) 
    Next 

    Dim frm As New Form 
    Dim btn As New Button 

    btn.Text = "OK" 
    btn.DialogResult = DialogResult.OK 

    frm.Controls.Add(btn) 
    btn.Dock = DockStyle.Bottom 

    frm.Controls.Add(myListBox) 
    myListBox.Dock = DockStyle.Fill 

    If frm.ShowDialog() = DialogResult.OK Then 
     MessageBox.Show(myListBox.SelectedItem) 
    End If 

End Sub