OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

コンボボックスで選択された値の取得

  • すぐに回答を!
  • 質問No.211460
  • 閲覧数85
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 76% (55/72)

使用しているオブジェクトは
Combo1,Text1,Command1です。

General Declarations ----------------------------
   Dim Sent()
   Dim Count_no()
-------------------------------------------------

Private Sub Command1_Click() --------------------
   Dim i
   Dim Hyouji

   For i = 1 To 3

    If Combo1.Text = Sent(i) Then

    Text1.Text = Count_no(i)
    *******************************
    Else
    Text1.Text = Combo1.Text
    *******************************
    End If

   Next i

End Sub
-------------------------------------------------

Private Sub Form_Load() -------------------------

   Dim Sentence As String
   Dim i
   ReDim Sent(1 To 3)
   ReDim Count_no(1 To 3)

   For i = 1 To 3

     Sentence = "Sentence" & i
     Sent(i) = Sentence
     Count_no(i) = i
     Combo1.AddItem (Sent(i))

   Next i

End Sub
-------------------------------------------------

以上のソースを書いています。
もし"Sentence2"が選択・Command1クリックされたらText1には"2"が表示され、
(ここまでは出来ました)
"12345"と入力・クリックされたら"12345"と表示されるようにしたいのですが、
配列以外の文字を入力した場合の条件(ソースの***内)を加えた途端
Combo1.TextがText1に表示されてしまいます。

条件の書き方が悪いのでしょうか?
ややこしい説明ですみませんが、わかる方、回答お願いします。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル6

ベストアンサー率 50% (2/4)

たぶん上記のやり方では、ここまで出来たといわれてる
「"Sentence2"選択・Command1クリックされたらText1には"2"」
にはならないと思います。
Command1_Click部分を以下のように変えてみるのはどうでしょう?
変になったらごめんなさい。
--------------------------------------------
Private Sub Command1_Click()
Dim i
Dim Hyouji

Text1.Text = ""

For i = 1 To 3
If Combo1.Text = Sent(i) Then
Text1.Text = Count_no(i)
Exit For
End If
Next i

If Text1.Text = "" Then
Text1.Text = Combo1.Text
End If

End Sub
--------------------------------------------
お礼コメント
lovelypooh

お礼率 76% (55/72)

ありがとうございます、できました~♪
変になったらだなんてとんでもない。
思っていた通りの結果が出ました。

Text1.Text=""とは・・・。目からウロコです。
そしてExit For・・・、iが100まであって、i=2あたりでSent(i)がヒットしたら
残りのループ数がムダだなぁ、と思っていたので大変ありがたいアドバイスでした。

また機会がありましたらよろしくお願いします(ペコリ)。
投稿日時 - 2002-02-04 15:16:33
-PR-
-PR-
このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ