VBNET: Как сбросить ComboBox после выбора

Question

Как сбросить ComboBox по умолчанию Text i, установленный в свойствах. Скажем, у меня есть ComboBox с текстом по умолчанию «руб. y», который, когда SelectedIndexChanged печатается в TextBox, после этого не перегружает текст по умолчанию «Ruby», но SelectedItem. Я хочу, чтобы он читал «Ruby» после или все время, если это невозможно. Спасибо

Answer 1

1. Объявите переменный вспомогательный класс в классе формы:
   Dim _originalComboText As String
2. На открытии формы, помните, по умолчанию текстого управления в некоторых хелперах переменный. Например, добавьте следующую строку в конструктор (Sub New()):
   _originalComboText = ComboBox1.Text
3. Каждый раз, после того, как выбор сделан, восстановить текст из него:
   ComboBox1.Text = _originalComboText

Если вы проверить содержание .designer.vb файл, принадлежащий вашей форме, вы можете увидеть инициализацию текста своего элемента управления через задание (=) - так что vb.net не делает здесь никакой особой магии. Если вы хотите сохранить текст, вам нужно сохранить его где-нибудь, прежде чем он потеряется.

Вот полный минимальный пример:

Public Class Form1 

    Dim _originalComboText As String 

    Sub New() 

     ' This call is required by the designer. 
     InitializeComponent() 

     ' Add any initialization after the InitializeComponent() call. 
     _originalComboText = ComboBox1.Text 

    End Sub 

    Private Sub ComboBox1_Leave(sender As Object, e As EventArgs) Handles ComboBox1.Leave 
     ComboBox1.Text = _originalComboText 
    End Sub 

    Private Sub ComboBox1_LocationChanged(sender As Object, e As EventArgs) Handles ComboBox1.LocationChanged 
     ComboBox1.Text = _originalComboText 
    End Sub 

End Class 

И если ваши два обработчика не отличаются, а затем заменить их только с одним - с двумя событиями в пункте Handles:

Private Sub ComboBox1_RestoreText(sender As Object, e As EventArgs) _ 
      Handles ComboBox1.Leave, ComboBox1.LocationChanged 

     ComboBox1.Text = _originalComboText 

    End Sub 

Answer 2

Используйте это:

Private Sub ComboBox1_Leave(sender As Object, e As EventArgs) Handles ComboBox1.Leave 
    ComboBox1.Text = "Ruby" 
End Sub 
Private Sub ComboBox1_LocationChanged(sender As Object, e As EventArgs) Handles ComboBox1.LocationChanged 
    ComboBox1.Text = "Ruby" 
End Sub 

С пользователь выберет, скажем print <<"EOF"; ---mytext---EOF из выпадающего списка, и это будет автоматически печататься в текстовом поле. Он или она должен пойти в текстовое поле или в другое место.

Я знаю, что это не совестно, чтобы отвечать на собственный вопрос, но если кому-то нужна помощь. Здесь