ＣｏｍｂｏＢｏｘにて (ID:122528)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >最終行に追加してもダメでした。 それって他の Item を手動で選んでもできないって事になってしまう気も しますが…(汗) >End Sub←ここを抜けるときに消えるのでPGではなくVB自体の事かと・・・ うん。だからＶＢの問題の場合でもプログラムで回避できないか？って事も 視野に入れて回答してます。…ただ、原因が分からないと実験しつつの対処 療法になってしまいます。できればそれは避けたいの。流浪人さんが、 >消えていました。 とレスしてるので、どうにか再現できないか？原因に迫れないか？情報が 欲しいのね。こちらでは再現してませんので、結果をできるだけ正確に 報告して欲しいです。 >使わない方向で修正したほうが良いのですかね？(+_+) では別のプロパティを設定する方向でテスト [VB6.0] Option Explicit Private Sub Combo1_Click() Call ComboSearch(Me.Combo1, "ABCD") DoEvents End Sub Private Sub ComboSearch(ByRef ComboX As ComboBox, ByVal SearchString) Dim i As Integer With ComboX For i = 0 To .ListCount - 1 If .List(i) = SearchString Then .ListIndex = i Exit For End If Next If i = .ListCount Then .AddItem SearchString .ListIndex = .ListCount - 1 End If End With End Sub Private Sub Form_Load() Dim i As Integer Combo1.Text = "" For i = 0 To 9 Combo1.AddItem Str(i) Next End Sub