Ｐａｇｅ 731 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼コマンドボタン みきてぃ 03/2/12(水) 18:04 ┗Re:コマンドボタン コロスケ 03/2/12(水) 18:20 ┗Re:コマンドボタン みきてぃ 03/2/13(木) 10:19 ─────────────────────────────────────── ■題名 ： コマンドボタン ■名前 ： みきてぃ ■日付 ： 03/2/12(水) 18:04 -------------------------------------------------------------------------
| こんばんわ！！ コマンドボタンの質問です。 例えば、ボタンが10個あるとします。 [１][２][３][４][５][６][７][８][９][１０] テキストボックスに入力された数字が”５”だとします。 [決定ボタン]を押下時に 「５」のコマンドボタンSetFocusしたいのですが、 どうしたら良いか教えてください。 ただし、 if Text1.text = 1 then cmd1.SetFocus end if このようにはしたくありません。 ループで処理をしたいと思っています。 よろしくお願いします。 |
| ▼みきてぃ さん： >ループで処理をしたいと思っています。 なぜにループなのでしょうか？ こんなんじゃダメ？ Private Sub CommandButton決定_Click() Me.Controls("Commandbutton" & TextBox1.Text).SetFocus End Sub |
| コロスケさんへ ありがとうございます。 解決しました。 （＾＿＾）／ ▼コロスケ さん： >▼みきてぃ さん： >>ループで処理をしたいと思っています。 > >なぜにループなのでしょうか？ >こんなんじゃダメ？ > >Private Sub CommandButton決定_Click() > Me.Controls("Commandbutton" & TextBox1.Text).SetFocus >End Sub |