- ベストアンサー
フォームを開く時のイベント処理
Visual Basic 6.0 あるフォーム読込時イベント[Private Sub Form_Load()]で コマンドボタンにフォーカスを移動しようとしたら、エラーしてしましました。 Private Sub Form_Load() CommandButton.SetFocus ’プロシージャの呼び出し、または引数が不正です End Sub Form_Open や BeforeUpdate ？ 開いた後にフォーカスをセット出来る イベント処理は無いでしょうか？ ご教授願います。
- mmac
- お礼率94% (64/68)
- Visual Basic
- 回答数3
- ありがとう数3
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
Form_Load()だとまだフォームが表示されていないのでSetFocusできないと思われます。 Form_Activate() でどうでしょうか。
その他の回答 (2)
- dr-9
- ベストアンサー率47% (24/51)
フォームロードイベントで初期化した変数を用い、アクティベートイベントでそれを利用すればフォーカスセット出来るのでは？
お礼
回答有難う御座いました。 Loadの後のアクティベートイベントで解決できました。 ＞フォームロードイベントで初期化した変数を用い 初心者のため、この部分は理解出来ませんでしたが参考に後で勉強させて頂きます。
- trajaa
- ベストアンサー率22% (2662/11921)
Loadイベントは、オブジェクトの実体を生成する時のイベントですから イベントが完了するまで、オブジェクト内の実体を操作出来ません。 フォーカス設定などは、Loadの後のアクティベートイベントなどが適当ではないでしょうか？
お礼
回答有難う御座いました。 Loadの後のアクティベートイベントで解決出来ました。
関連するQ&A
- コマンドボタンのEnterイベント後に、フォーカスを移動したい。
コマンドボタンのEnterイベント後に、フォーカスを移動したい。 フォームに「TextBox1」(TabIndex=0)「TextBox2」(TabIndex=1)「CommandButton1」(TabIndex=2)の３つのコントロールがある場合。 CommandButton1がクリックされた場合も、TextBox2からCommandButton1に、タブキーまたはエンターキーで、フォーカスが移った場合にも、同じ処理を行い、処理結果によってTextBox1やTextBox2にフォーカスを移したいと考えています。 以下のようなサンプルを作成しました。 Private Sub CommandButton1_Enter() CommandButton1_Click End Sub Private Sub CommandButton1_Click() MsgBox ("OK") TextBox2.SetFocus End Sub この場合、CommandButton1_Enterのイベントが起こった場合、CommandButton1_Click()のTextBox2.SetFocusは効きません。 （正確には、CommandButton1_Enterイベントが終わった時点で無効でしょうか。） Enterイベントは、フォーカスが移動する前に発生するため、このイベントが終わった後に、そもそもの動作に戻り、フォーカス移動が発生してしまうからなのだと思っております。 要は、コマンドボタンにタブキーやエンターキーでフォーカスしても、コマンドボタンをクリックしたのと同じ処理を行い、所定の位置にフォーカスを持っていきたいのですが、どのように行えば良いか、わからない状況です。 よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- フォームのイベントを標準モジュールから呼び出す
フォームのイベントを標準モジュールから呼び出す事は出来ないのでしょうか？ ちなみにアクセスです。 例えば、 Private Sub Form_Load() MsgBox "test" End Sub というのはフォームを開いたときにしか発生しないですよね。 でもフォームを開いている状態でForm_Loadと全く同じ事をしてほしい時は どうすればいいですか？ 標準モジュールで Sub a() Call Form_フォーム1.Form_Load End Sub としてみましたが、メソッドまたはデータ メンバが見つかりません。 (Error 461)になりました。 MsgBox "test" だけなら、 Sub a() MsgBox "test" End Sub にすりゃいいじゃん！って思われがちですが、 実際はForm_Loadイベントにはたくさんのコードが書かれています。 標準モジュールからイベントの呼び出しを教えてください。
- ベストアンサー
- オフィス系ソフト
- エクセルVBA イベントプロシージャに引数を渡せま
お世話になります。 エクセル２００３／XP 使用です。 イベントプロシージャに引数を渡せまるかどうか教えていただけますでしょうか？ 下記のコード中の変数mysheetnameを ユーザーフォーム、→ CommandButton１のプロシージャに 引数として渡して行きたいのですが、 実行すると、一番最初のWorkbook_SheetBeforeRightClickの時点で、 コンパイルエラー： プロシージャの宣言が、イベントまたはプロシージャの定義と一致していません。 とエラー表示されます。 イベントプロシージャに引数を渡すことはできますでしょうか？ ---------- ThisWorkBook内 ---------- Public mysheetname As String Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) mysheetname = ActiveSheet.Name UserForm1.Show (mysheetname) '←変数mysheetnameの値をユーザーフォームに渡したい。 End Sub ---------- ユーザーフォーム ---------- Private Sub UserForm_Initialize(ByVal mysheetname As String ) 処理 End Sub Private Sub CommandButton1_Click(ByVal mysheetname As String ) 処理 End Sub ’--------- ここまで 引数について少し理解し始めたばかりの者です。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- リストのダブルクリックイベントをフォーム起動時に発
アクセス2010です。 Private Sub Form_Load() Call lst_test_DblClick End Sub Private Sub lst_test_DblClick(Cancel As Integer) MsgBox "" End Sub このような事は出来ないのでしょうか？ リストのダブルクリックイベントをフォーム起動時に発動したいのですが このコードを書くと Call lst_test_DblClick の部分で引数を省略できません。 になります。 どちらもフォームモジュールに書いています。
- 締切済み
- その他MS Office製品
- テキストボックスの桁数をカウントして、フォーカス移動
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
- フォームのResizeイベントについて
超ド級の初心者ですが、Visual Basic.NETの本を買って勉強を始めました。 その中で「フォームのResizeイベントが発生するたびに、フォームのWidthプロパティをテキストボックスに表示するように」との練習問題がありましたがうまくできません。 Visual Basic6.0もあるので、そちらで同じことをやってみたところ、以下のようなコードで正常に動作しました。 Private Sub Form_Resize() Text1.Text = Me.Width End Sub Visual Basic.NETではどう記述すればいいのか教えていただけませんか？
- ベストアンサー
- Visual Basic
- 不要なイベントを削除したい
フォームにコマンドボタン（名前：コマンド0）を置いて、 [イベント プロシージャ]にしてクリックするとＶＢＥ画面にプロシージャーが作成されますよね。 しかしそのコマンドボタンの名前を変更して（新しい名前：新コマンド0）、さっきと同じように [イベント プロシージャ]にしてクリックすると新たなプロシージャの型が作成されますよね。 Private Sub コマンド0_Click() End Sub Private Sub 新コマンド0_Click() End Sub こんなかんじで。 そんな事を一杯やり過ぎて、 Private Sub コマンド0_Click() End Sub の方がいっぱい余ってる？浮いてる？イベントに紐づいてない状態なのですが、 量が多すぎてどれが不要なプロシージャーなのかわからないのですが、 一気に削除する方法はありますか？ 別にほっといても問題ないとは思うのですが、不要なものは削除したいです。
- ベストアンサー
- オフィス系ソフト
- 複数フォームへのイベントの通知方法について
Visual Basic2005にてプログラミングをしております。プログラミング初心者です。 以下、どなたかご教授いただけませんでしょうか？ あるクラスを定義し、そのクラスの1つのインスタントがイベントを出した時に、 フォーム1～フォーム3の各Formにイベントを通知する様なプログラムを作成しております。 複数フォームへのイベントの通知方法として、以下の様なやり方は一般的に正しいのでしょうか？ プログラムを実行させて見ると、動作上は何の問題もなく動いている様に見えますが、 プログラミング経験が少ない事もあり、以下のやり方が本当に正しいのかどうか、あまり自信が持てません。 どなたかご教授いただけると助かります。宜しくお願い致します。 =================================================================================== 'クラスA Public Class classA Public Event StatusChange(ByVal status As Integer) Public Event MassageOutput(ByVal message As String) Private status As Integer Private Sub EventReport1() status = 5 'statusの変更を通知するイベントを生成させる RaiseEvent StatusChange(status) End Sub Private Sub EventReport2() 'メッセージを通知するイベントを生成させる RaiseEvent MassageOutput("メッセージを通知します") End Sub End Class 'モジュール Module moduleA Public myInstance As New classA End Module 'フォーム1 Public Class form1 Private WithEvents myInstance1 As classA Public Sub New() InitializeComponent() myInstance1 = myInstance End Sub Private Sub StatusChange(ByVal message As String) _ Handles myInstance1.MassageOutput TextBox1.Text = message End Sub End Class 'フォーム2 Public Class form2 Private WithEvents myInstance1 As classA Public Sub New() InitializeComponent() myInstance1 = myInstance End Sub Private Sub StatusChange(ByVal status As Byte) _ Handles myInstance1.MassageOutput TextBox1.Text = status.ToString End Sub End Class 'フォーム3 Public Class form3 Private WithEvents myInstance1 As classA Public Sub New() InitializeComponent() myInstance1 = myInstance End Sub Private Sub StatusChange(ByVal status As Byte) _ Handles myInstance1.MassageOutput TextBox1.Text = (status + 10).ToString End Sub End Class ===================================================================================
- ベストアンサー
- Visual Basic
- フォームを表示してからメッセージボックスを表示する
メッセージボックスが表示される前に、フォームを表示させたいです。アクセスです。 ナビゲーションウインドウからフォームをダブルクリックしてフォームを開くのですが、 今のままだとメッセージボックスが表示されてからフォームが表示されてしまいます。 フォームを表示してからメッセージボックスを表示するにはどうすればいいでしょう？ Private Sub Form_Open(Cancel As Integer) MsgBox "Form_Open" End Sub だと、先ほど述べたように、メッセージボックスが表示されてからフォームが表示されてしまいます。 フォームを開いたときのイベントは複数あるようで、 Private Sub Form_Activate() MsgBox "Form_Activate" Debug.Print "Form_Activate" End Sub Private Sub Form_Current() MsgBox "Form_Current" Debug.Print "Form_Current" End Sub Private Sub Form_GotFocus() MsgBox "Form_GotFocus" Debug.Print "Form_GotFocus" End Sub Private Sub Form_Open(Cancel As Integer) MsgBox "Form_Open" Debug.Print "Form_Open" End Sub Private Sub Form_Load() MsgBox "Form_Load" Debug.Print "Form_Load" End Sub をすると、 ・Form_Load ・Form_Activate ・Form_GotFocus ・Form_Open ・Form_Current の順に開きますが、やはりフォームが最後に表示されてしまいます。 どうにかして先にフォームを表示させる方法はないでしょうか？ ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ユーザーフォームのSetFocusが働かない？
エクセルのユーザーフォームにtextboxが2つとCommandButtonが2つ配置しています。 textbox1に入力されるのを10以下に限定するため、それ以上の数字が入力されるとExit時にエラーを表示し、textbox1にフォーカスを戻したいのです。 ですが、以下のようにするとエラー時にはtextbox2も飛ばしてCommandButton1にフォーカスされます。 どのようにするのが正解なのでしょうか。 よろしくお願いします。 Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If CInt(TextBox1.Text) > 10 Then MsgBox ("ダメ") TextBox1.SetFocus End If End Sub
- ベストアンサー
- その他（プログラミング・開発）
お礼
回答有難う御座いました。 Private Sub Form_Activate() でSetFocus出来ました。 フォームアクティブ時のイベントプロシージャ を探せずに困っていました、助かりました。