• ベストアンサー

フレームとコンボボックスについて

コマンドボタンからコンボボックスにSetFocus命令で飛ばしたいのですがコンボボックスをフレームに入れるとSetFocus命令で飛ばなくなってしまいましたので飛ばす方法を知っている方がいましたら教えてください。

  • nagiha
  • お礼率41% (331/790)

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

  • ベストアンサー
  • BlueRay
  • ベストアンサー率45% (204/453)
回答No.4

まさかとは思いますが、フレームのEnabledプロパティをFalseに していませんよね?。 この場合は、エラーになるんですけど。

nagiha
質問者

お礼

Trueにしてあります。 何度も何度も回答どうもありがとうございます。

その他の回答 (3)

  • todo36
  • ベストアンサー率58% (728/1234)
回答No.3

原因としては (1)Combo1_Changeイベントが発生しない (2)Command1.SetFocusが動かない のいずれかでしょう。 まず、問題の切り分けを。 あと、ChangeイベントとClickイベントと違いは理解していますよね。

参考URL:
http://oshiete1.goo.ne.jp/kotaeru.php3?q=186632
nagiha
質問者

お礼

参考になりました。 どうもありがとうございました。

  • BlueRay
  • ベストアンサー率45% (204/453)
回答No.2

ソースをそのまま、コピペしてやってみましたが問題なく動きます。 SPの適用はされていますよね? コーディングでどこかおかしな点はありませんか。 間接的に邪魔をしている場所があるようにしか思えません。

nagiha
質問者

お礼

わざわざやっていただきありがとうございました。 私も何度かやってみたのですが、コンボボックス単体ならちゃんと飛ぶのですが、コンボボックスをフレームに入れてしまうと飛ばなくなってしまうのでフレームに問題があると思うので、フレームが邪魔をしていると思うのでフレームのところをもう少し考えてみたいと思います。 どうもありがとうございました。

  • BlueRay
  • ベストアンサー率45% (204/453)
回答No.1

OS・VBのバージョンを記述した方がいいですよ。 後、どのような記述をしているかさわりだけでも ソースを書いた方が、回答する側も回答しやすいと思います。

nagiha
質問者

補足

どうもすいませんでした。OSはwindows2000です。VBのバージョンは6.0です。ソースは以下のとおりです。 Private Sub Command1_Click() Combo1.SetFocus End Sub Private Sub Combo1_Change() Command1.SetFocus End Sub このようにソースを書いたのですがフレームの中にコンボボックスを入れるとコマンドボタンからコンボボックスに飛んでくれないので飛ばせる方法がわかりましたら教えてください。どうぞよろしくお願いします。

関連するQ&A

  • コンボボックスの使い方について

    環境はWIN98 VC++6.0 MFCです。 コンボボックスを初めて使うのですが、コンボボックスに何かを記入し、コマンドボタンを押すとコンボボックスのプルダウンのリストの中に追加されるようにするにはどうすれば良いですか? 具体的なコードなり参考サイトを教えてください。

  • コンボボックスに似た・・・

    Visual Basicにてソフトウェアを作成中です. そのなかで変数を指定するボックスがあるのですが, コンボボックスのように自分で書き込むこともでき,または ボックスの右についている上下のボタンで一個ずつ変化できる ものをつけたいのですが,Visual Basicではなんという機能になるのでしょうか?? コンボボックスのようにリストがでるのではなく上下のボタンを ワンクリックで1変化するものです. 単純にコマンドをボックスの隣に置いているのかとも思いましたが, 押し続けると勢いよく値が上昇することから,もともと用意されて いる機能なのかと思いまして. ご存知の方おられましたらよろしくお願いいたします.

  • コンボボックスで

    コンボボックスで、あるテーブルを参照してリストを出す場合、リスト中になかった場合に、コマンドボタンを押せばテーブルの追加フォームが出てきて入力できるようにしています。この場合に、入力フォーム内で終了(保存)ボタンを押せば、自動的にコンボボックスの中に入り、かつもう一度選択しなくても表示されているような操作はできないものでしょうか?

  • コンボボックスについて

    コンボボックスを2-ドロップダウンリストにすると「combo1.Text = ""」の命令が使えなくなるので2-ドロップダウンリストのままで「combo1.Text = ""」の命令が使えるようになる方法を教えてください。この命令がどうしても使用できない場合は、これと同じ動きをする命令を教えてください。

  • マクロ/VBAにてフレーム内複数コンボボックスの作り方

    エクセルにて予約表を作成しました。 入力する方があまりキーボード入力が得意ではないので入力画面を作りました。一通り完成し、登録コマンドボタンを押すと予約表の最下部行に入力されるようにしたのですが、1つだけうまくいきません…。 それはフレーム内に50音順でコンボボックスを配置している部分です。(「ア・イ・ウ・エ・オ・カ・キ・ク・ケ・コ・…」と続き、「ワ」までです。) 各50音のコンボボックスには予め50音に分けて作ってある業者リストを選択できるようにし、そのフレーム内で1つ選択すると他は選択できないようにしたいのですが…。 プログラミングに関しては初心者ですので、分かる方がいましたら、ご教授お願い致します。

  • エクセル コンボボックスについて

    XP エクセル2003なのですが、 現在ワークシートに郵便番号と住所のリストを作成しています。    郵便番号     住所  ***-**** ○○県○○市・・・  ***-**** XX県XX市・・・ ユーザーフォームにテキストBOXとコンボBOXとコマンドボタンを 配置しています。 コンボBOXではリストにしている住所のみを表示していますが、 その中から探すのが大変です。そこで、 テキストBOXに郵便番号を入力し、 コマンドボタンをクリックすると、 コンボBOXに該当する住所が表示されるようにしたいのですが、 どうすればいいのか、何から始めればいいのか、 全く分かりません・・・。いろいろな方法があると思うのですが、 教えていただければ幸いです。 初心者ですので質問形式が悪いかもしれませんが よろしくお願いします。

  • コンボボックスからのデータ抽出

    Access2000です。 hozon - テーブル コンボボックス-nenn(2003,2004) コンボボックス-tsuki(1月から12月) コンボボックス-hi(1日~31日) コマンドボタン-抽出ボタン があり、各コンボボックスで抽出したい年月日を選択してコマンド抽出ボタンをクリックして その下にサブフォームにてテーブルから抽出したデータを表示したいのですが、どのようなコードになるのか教えてくださいませんか? データは月別の場合と日にちべつの場合とできればうれしいのですが、、 初心者なのでよろしくお願いします。

  • エクセルVBAでコンボボックス

    エクセルVBAのコンボボックスの使い方について質問します。 実現したいプログラムは 「チェックボックスから選んだ数字で計算するプログラム」 です。 具体的には… まず、コンボボックスをシート上に配置します。そのコンボボックスには 数字の1から10を選べるようにしておきます。 次に、コマンドボタンを配置します。これは単にプログラムをスタート させる目的です。 ユーザーは、まずコンボボックスから好きな数字を選択します。 そしてスタートボタン(コマンドボタン)を押します。 すると、選んだ数字の2倍がセルに表示されます。 さらに発展系としては… チェックボックスを4つ配置します。各チェックボックス には、+、-、×、÷を割り振っておきます。 また、コンボボックスを2つ用意し、それぞれ1~10の数字をリストにします。 ユーザーは、チェックボックスから好きな記号を選び、さらにコンボボックスから 好きな数字を選びます。そしてスタートボタンを押すと、選んだ数字を選んだ記号 で計算した値がセルに表示されます。 というようなプログラムを考えているのですが、うまくできません。 ポイントは、 ・チェックボックスにリストを入力する方法 ・チェックボックスの選択状態や、リストボックスから選ばれた数字を、  変数として取得する方法 インターネットで調べているのですが、リストボックスに値を入れるのにもマクロを走らせ なければならない方法とか、ユーザーフォームでの説明ばかりでなかなか実現に至りません。 http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_userform05.html プログラムのイメージ図としては添付の図の通りです。 どのようにプログラムを書けばいいのでしょうか。

  • コンボボックスの内容について

    コンボボックスの内容をリセットしてくれる命令を知っている方教えてください。

  • コンボボックス 選択後のカーソル制御

    ACCESS2007のデータベースを利用しています。 テキストボックス1、コンボボックス1、テキストボックス2が上から順に並んでおり、コンボボックス1で表示されるリストから一つを選ぶと、カーソルがテキストボックス2に遷移します。 (ACCESS2007のオプションの詳細設定のところで、フィールド移動時の動作をフィールドの先頭に移動)に設定しています。 コンボボックス1の選択後、コンボボックス1の先頭にカーソル移動するには、どのような処理をVBAに追加すればよいでしょうか? Private Sub コンボボックス1_AfterUpdate() テキストボックス1.SetFocus コンボボックス1.SetFocus With Me!コンボボックス1 .SelStart = 0 .SelLength = 0 End With End Sub ではうまく動作しませんでした。どうぞ宜しくお願い致します。

専門家に質問してみよう