公式検索タブのコンボボックスのリストから検索ワードを指定して検索した場合に検索ワードが消えるのを修正

[opentween/open-tween.git] / Tween / Tween.vb

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 62346ff..471d144 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -7568,6 +7568,8 @@ RETRY:
             Dim idx As Integer = DirectCast(pnl.Controls("comboSearch"), ComboBox).Items.IndexOf(tb.SearchWords)
             If idx > -1 Then DirectCast(pnl.Controls("comboSearch"), ComboBox).Items.RemoveAt(idx)
             DirectCast(pnl.Controls("comboSearch"), ComboBox).Items.Insert(0, tb.SearchWords)
+            cmb.Text = tb.SearchWords
+            cmb.SelectAll()
             Dim lst As DetailsListView = DirectCast(pnl.Parent.Tag, DetailsListView)
             lst.VirtualListSize = 0
             lst.Items.Clear()