- ベストアンサー
フォーカスの移動について
フォーム１をロードしたときに、フォーム２を呼び出します。２つのフォームを呼び出すとき、フォーム１がメインのフォームで、フォーム２が呼び出されたフォームです。そのときに、フォーム１の操作を無効にし、フォーム２の操作を有効にするために、 Form1.Enabled=False Form2.Enabled=True を使いました。そのときにどうしてもフォーム２にフォーカスが移動しないのですが、どうしたらよろしいですか？
- 1976no12ri29
- お礼率29% (17/57)
- Visual Basic
- 回答数3
- ありがとう数1
- みんなの回答 （3）
- 専門家の回答
関連するQ&A
- TabIndexを使わないで、フォーカスの移動
ご多忙中大変申し訳ありません。 ＶＢの初心者です。 TabIndexを使わないで、コントロールの名前の番号でフォーカスの移動をしたいのですが、私のレベルでは全くできません。 TextBox1、TextBox2、TextBox3、TextBox3、～TextBox15 のようにTextBoxの後ろに付いている、数字を利用してフォーカスの移動をしたいと思っております。 実装前に下記のようなコードを書いてテストしていますが、どこを調べても、また試行錯誤を繰り返してもできません。 Public Class Form1 'テスト Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Me.KeyPreview = True '1列目TextBoxの生成 Dim i As Integer For i = 0 To 4 Dim txtbx As New TextBox txtbx.Size = New Size(105, 30) txtbx.Location = New Point(50, 50 + i * 40) txtbx.Font = New Font("ＭＳゴシック", 12, FontStyle.Regular) txtbx.TabIndex = i * 3 txtbx.Text = "TabIndexは" & CStr(i * 3) txtbx.Name = "TextBox" & CStr(i + 1) Me.Controls.Add(txtbx) Next '2列目TextBoxの生成 For i = 0 To 4 Dim txtbx As New TextBox txtbx.Size = New Size(105, 30) txtbx.Location = New Point(160, 50 + i * 40) txtbx.Font = New Font("ＭＳゴシック", 12, FontStyle.Regular) txtbx.TabIndex = i * 3 + 1 txtbx.Text = "TabIndexは" & CStr(i * 3 + 1) txtbx.Name = "TextBox" & CStr(i + 6) Me.Controls.Add(txtbx) Next '3列目TextBoxの生成 For i = 0 To 4 Dim txtbx As New TextBox txtbx.Size = New Size(105, 30) txtbx.Location = New Point(270, 50 + i * 40) txtbx.Font = New Font("ＭＳゴシック", 12, FontStyle.Regular) txtbx.TabIndex = i * 3 + 2 txtbx.Text = "TabIndexは" & CStr(i * 3 + 2) txtbx.Name = "TextBox" & CStr(i + 11) Me.Controls.Add(txtbx) Next End Sub Private Sub Form1_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown If e.KeyCode = Keys.Right Then '→キーによるフォーカスの移動 Me.SelectNextControl(ActiveControl, True, True, True, False) e.Handled = True ElseIf e.KeyCode = Keys.Left Then '←キーによるフォーカスの移動 Me.SelectNextControl(ActiveControl, False, True, True, False) e.Handled = True End If '↓（Down）キーによるフォーカスの移動 ここができません。 If e.KeyCode = Keys.Down Then Dim txtboxname As String txtboxname = Me.ActiveControl.Name 'TextBoxの名前の名前の取得 Dim txtbxnum As String txtbxnum = txtboxname.Remove(0, 7) 'TextBox～の名前から、～（数字）だけにする。 Dim controlName As String controlName = "TextBox" & CStr((CInt(txtbxnum) + 1)) 'TextBox～の名前の～に1を足す。 Me.Controls(controlName).Select() 'TextBox～+1のTextBoxをフォーカス 'Select() Focus()も結果は同じです。 End If '↑（Down）キーによるフォーカスの移動 'この部分は、↓（Down）キーによるフォーカスの移動が出来るようになりましたら、追加します End Sub ' Enterキーによるフォーカスの移動 Private Sub Form1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress If e.KeyChar = Chr(Keys.Enter) Then Me.SelectNextControl(ActiveControl, True, True, True, True) e.Handled = True End If End Sub End Class 最終的な目的の動作は、EnterキーではTabIndexの順番にフォーカスの移動。 ←キーでは、左にフォーカスの移動。 →キーでは、右にフォーカスの移動。 ↑キーでは、上にフォーカスの移動。 ↓キーでは、下にフォーカスの移動。 コントロールの名前の番号でフォーカスの移動をしたい理由は、 Enterキーと←、→キーによるフォーカスの移動でTabIndexの順番を使い、上下方向、↑キー、↓キー移動には、TabIndexの順番が画像のように少々複雑になってしまい、TabIndexを使用してのフォーカスの移動は断念しました。 もし、TabIndexでフォーカスの移動が出来るようなら、そちらのほうでもかまいません。 使用バージョンは、ＶＢ2010 Express Edition です。 ご迷惑を、おかけしますが、どうかご助力をお願いいたします。
- ベストアンサー
- Visual Basic
- ↓Downキーでフォーカスの移動ができません。
ご多忙中申し訳ありません。 TextBoxが複数ありまして、↓キーを使用してフォーカスの移動をタブインデックスに従って変更したいのですが、Enterキーなら順番に移動しますが、Downキーですと何も変化がありません。 Downキーの場合は何か、コードの追加が必要でしょうか？ あと、できれば←や↑ →なども使用してフォーカスの移動をしたいとおもいますが アドバイスをお願いします。 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.KeyPreview = True End Sub Private Sub Form1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress If e.KeyChar = Chr(Keys.Down) Then '←ここの部分がEnterキーならフォーカスの移動ができます。 Me.SelectNextControl(Me.ActiveControl, True, True, True, True) e.Handled = True End If End Sub 申し訳ありません。宜しくお願いします。
- ベストアンサー
- Visual Basic
- C# 簡単なシューティング 自機移動について
かなりの初心者で困っています。 簡単なシューティングを作ろうとおもっています。 使用ソフトはＶｉｓｕａｌＣ＃2005です。 using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsApplication1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } //自機（右移動） private void button3_Click(object sender, EventArgs e) { if (timer1.Enabled == false) { timer2.Enabled = false; timer1.Enabled = true; } else { timer1.Enabled = false; timer3.Enabled = false; timer4.Enabled = false; } } private void timer1_Tick(object sender, EventArgs e) { pictureBox1.Left = pictureBox1.Left + 2; } //自機（左） private void button4_Click(object sender, EventArgs e) { if (timer2.Enabled == false) { timer1.Enabled = false; timer2.Enabled = true; } else { timer2.Enabled = false; timer3.Enabled = false; timer4.Enabled = false; } } private void timer2_Tick(object sender, EventArgs e) { pictureBox1.Left = pictureBox1.Left - 2; } //自機（上） private void button1_Click(object sender, EventArgs e) { if (timer3.Enabled == false) { timer4.Enabled = false; timer3.Enabled = true; } else { timer1.Enabled = false; timer2.Enabled = false; timer3.Enabled = false; } } private void timer3_Tick(object sender, EventArgs e) { pictureBox1.Top = pictureBox1.Top - 2; } //自機（下） private void button2_Click(object sender, EventArgs e) { if (timer4.Enabled == false) { timer3.Enabled = false; timer4.Enabled = true; } else { timer1.Enabled = false; timer2.Enabled = false; timer4.Enabled = false; } } private void timer4_Tick(object sender, EventArgs e) { pictureBox1.Top = pictureBox1.Top + 2; } } } 自機は画像（PictureBox）でボタンによって上下左右に移動します。 ＦｏｒｍのSizeは800,630です。 自機の移動がボタンなのでキー入力によって操作できるようにしたいのですが、 それと、自機の移動範囲を画面からでないようにしたいです。 あまりＣ＃を理解できてない上でつくったのでおかしな点が多々あると思います。 教えていただける方がいると助かります。
- 締切済み
- C・C++・C#
- サブフォームのTab移動について
VB2005で開発を行っております。 とあるサイトでMDIとは別の方法でフォーム内にフォームを貼り付けることができることを知りました。 以下がその簡単なコードです。 Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim f As New Form2() f.TopLevel = False Me.Controls.Add(f) f.Show() f.BringToFront() End Sub End Class ここでそれぞれのフォームにTextBoxなどのコントロールを貼り付け、Tabキーによるフォーカス移動を行うと、Form1のコントロールからForm2のコントロールへの移動は行えるのですが、その後はForm2のコントロール内のみフォーカス移動が行われてしまいます。 できればForm2がGroupBoxやPanelコントロールのように動作してほしいのですが、どのようにすればよいでしょうか？
- ベストアンサー
- Visual Basic
- フォーカスの制御
VB6.0について質問です。 現在フォームが大きいのでピクチャーにスクロールバーをつけて対応しています。 それにフォーム上をクリックすることでも上下の移動を可能にしています。 しかし入力中(テキストボックス等)に誤ってフォームをクリックしてしまうと フォーカスがピクチャーに移ってしまいます。 TabStopプロパティをEnableにしても変わりません； どのようにしたらフォーカスが固定できますか？ 現在のコードは以下のようになっています。 Picture1.TabStop = False If Form.ScaleHeight / 2 - Y < 0 Then Picture1.Top = Form.ScaleHeight / 2 - Y If Picture1.Top < -14500 Then Picture1.Top = -14500 End If Else Picture2.Top = 0 End If
- ベストアンサー
- Visual Basic
- VB 2005 Textbox にフォーカスを移動する。
VB2005でソフト作成中ですが、フォームを開いた時、そのフォーム内にあるTextbox にフォーカスを持って行きたいのですがうまくいきません。フォームロード部分のコードに、Text.Focus()と書いているだけではだめなのでしょうか？どなたかご教授願います。
- 締切済み
- Visual Basic
- パネルのフォーカス移動
フレームにメインパネルを一枚置いております。 そのメインパネルの上に６枚のサブパネルが置かれています。 その６枚のサブパネルをフォーカス移動したのですが、どのようにフォーカスを取得すればよいのでしょうか？
- ベストアンサー
- Java
- タブダイアログのフォーカスの移動について
タブダイアログを使った場合の フォーカスの移動についての質問です。 状態としましては フォームにタブ数３のタブダイアログがあり、 それぞれのタブに３つテキストボックスがあります。 また、タブダイアログとは別にフォーム上に 閉じるボタンが１つあります。 現在１つ目のタブの１つ目のテキストボックスに フォーカスがあり、Tabキーでフォーカスを 移動させていくのですが、 ３つ目のテキストボックスでtabキーを押すと フォーカスがどこに行ったのか 行方不明になってしまいます。 なぜか２つ目と３つ目のタブの ３つ目のテキストからは 閉じるボタンへフォーカスが移動するのですが、 １つ目のテキストだけが行方不明になってしまいます。 （shift+tabで戻ってきません） また、３つ目のタブのキャプションからの フォーカス移動も行方不明となってしまうます。 タブインデックスは タブダイアログボックスが０ １つ目のタブの１つ目のテキストが１ １つ目のタブの２つ目のテキストが２ １つ目のタブの３つ目のテキストが３ ２つ目のタブの１つ目のテキストが４ ・ ・ ３つ目のタブの３つ目のテキストが９ 閉じるボタンが１０ となっています。 タブダイアログのフォーカス移動を制御するには どうしたら良いのでしょうか？ また、行方不明になってしまうフォーカスの 現在位置を見つけるようなことはできますでしょうか？ よろしく回答のほどお願いします。
- ベストアンサー
- Visual Basic
- マクロのコントロールの移動について
マクロのコントロールの移動について メインフォームに一つのサブフォームを配置しております。 メインフォームのコントロールにあるフォーカスをサブフォームのコントロールにフォーカスを移す方法をマクロで行う場合はどのように書けばよろしいでしょうか。 又、その逆（サブフォームからメインフォームへフォーカスの移動）の書き方もよろしくお願い致します。
- ベストアンサー
- その他(データベース)
- テキストボックスの桁数をカウントして、フォーカス移動
Win2000、VB6.0です。 テキストボックスとADOコントロールを使用して、レコードを編集・更新するフォームを作っています。 ただ、簡単に書く為に下の説明文ではDBについては書きません。 Form1に、Text1とText2があるとします。 Tab移動だけではなく、Text1に4桁目まで入力された時点で、Text2へフォーカスが移動するようにしたいと考えています。 Text1のChangeイベントで、 ------------------------------------ Private Sub Text1_Change() If Len(Text1.Text) >= 4 Then Text2.SetFocus End If End Sub ------------------------------------ 以上のように記述しています。 ただ、Form1のロード時に、 ------------------------------------ Private Sub Form_Load() Text1.Text = "1111" End Sub ------------------------------------ 以上のように記述すると、 「実行時エラー"5";」 「プロシージャの呼び出し、または引数が不正です。」 とエラーが発生してしまいます。 ロード時にテキストボックスに表示しつつ、入力された現在の桁数をカウントして、フォーカス移動する方法は無いのでしょうか？ よろしくお願いします。
- ベストアンサー
- Visual Basic
