No.1ベストアンサー
- 回答日時:
タイマーコントロールを使用してみてはいかがでしょうか。
例えば、1分おきにタイマーイベントを発生させて内部でカウントをとる。
そのカウンターが一定以上になるとプログラム終了。
キー操作など他のイベントが発生したときは、そのカウンターをリセットする。
これでできると思いますが、いかがでしょう。
No.6
- 回答日時:
tinu2000さんの手法を使うのなら、
むしろTimer関数を使ったほうがいいかと思います。
ただ、日をまたがった場合の処理はそれほど難しいとは思いませんが、
No.1での回答ならば
日をまたがることを考慮しなくても良い上に
タイマーインターバルの制限もないので
私はNo.1の手法で十分なのではないかと思います。
No.5
- 回答日時:
この質問にまだ回答を締め切っていないけど
具体的なソースを待っているのかな?
単純なソースを作りました。
フォーム上にコマンドボタン、テキストボックス、
タイマーを貼り付けて以下のソースでテストして下さい。
日付が変わったら、フォーカスがタブキーで移ったら、などの細かい条件は入っていません。
後はこれの応用です。
Option Explicit
Dim hh As Long
Dim mm As Long
Dim dd As Long
Dim sttime As Long
Dim edtime As Long
Private Sub Form_Load()
hh = Hour(Time)
mm = Minute(Time)
dd = Second(Time)
sttime = hh * 3600 + mm * 60 + dd
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
hh = Hour(Time)
mm = Minute(Time)
dd = Second(Time)
sttime = hh * 3600 + mm * 60 + dd
End Sub
Private Sub Text1_Change()
hh = Hour(Time)
mm = Minute(Time)
dd = Second(Time)
sttime = hh * 3600 + mm * 60 + dd
End Sub
Private Sub Timer1_Timer()
hh = Hour(Time)
mm = Minute(Time)
dd = Second(Time)
edtime = hh * 3600 + mm * 60 + dd
If edtime - sttime > 10 Then '--- 10 秒後に終了
Unload Me
End
End If
End Sub
No.4
- 回答日時:
グローバル変数に監視開始時刻を設定し、タイマコントロールで一定時間ごとに監視開始時時刻からの経過時間をチェックする様にしては如何でしょうか?
監視開始時刻をキー操作やマウス操作がされる度に設定しなおしてやればタイマーインターバルの制限を気にする必要は無いと思います。時刻はマシン時間で十分です。
申し訳ありませんが、今、手元にVBが使用出来るPCが無いのでコードはご自分で考えてみてください。
No.3
- 回答日時:
Intervalプロパティの最大値は65,535なので
you-mさんのやりかたでは1分そこそこの未操作で終了してしまうと思うのですが…
けどまあ、mk_jmcさんの要望が1分で十分ならそれでもいいですね(^^)
Timer1.Enabled = False
Timer1.Enabled = True
でリセットされるのは知りませんでした。参考になります。
No.2
- 回答日時:
タイマーイベント内に、自身を終了するコードを書きます。
Intervalプロパティには、「一定時間」に相当する時間をミリ秒単位で設定します。そして、ボタンのクリックイベントなど操作と認めるイベント内で、タイマーリセット用のプロシージャを呼びます。
Sub TimerReset()
Timer1.Enable = False
Timer1.Enable = True
End Sub
こんな感じでどうでしょうかね?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Windows 7 更新プログラムを入れたら操作出来なくなりました(泣) 1 2023/02/26 11:04
- Windows 10 (緊急)windowsのタスクバーやアプリ?が反応しない 3 2023/03/28 05:03
- ガラケー・PHS ボタン操作の携帯電話を使い続けたいのですが、将来的にボタン操作の携帯電話が販売終了する、通話が出来 9 2023/04/22 14:50
- テレビ SwitchBot HUBmini テレビの操作 1 2023/02/26 21:37
- Excel(エクセル) エクセルのバージョン2016フリーズ改善策 5 2022/12/13 09:13
- マウス・キーボード パソコンのspaceキーの下にあるマウスコントロールできるキーが昔から動かないので、ブルートゥースの 5 2022/07/18 02:08
- デスクトップパソコン ん~…分からん 7 2022/06/10 10:47
- その他(プログラミング・Web制作) プログラムの勉強のおすすめは 7 2022/12/09 20:09
- 電子レンジ・オーブン・トースター 電子レンジの非科学的(カルト的)動作の原因について考えられる理由を知りたい 8 2022/11/29 14:47
- その他(プログラミング・Web制作) Windowsのマクロプログラムで、こんなことできますか? 3 2022/06/28 14:30
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Access 無操作の場合、自動で閉じたいです。
Access(アクセス)
-
VBA=一定時間エクセルの入力操作がない場合、自動的にそのブックを閉じたい
Windows Vista・XP
-
Excelで一定時間が経ったらメッセージを出したい
Excel(エクセル)
-
-
4
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
5
キーボード入力、マウス操作を監視をしたい
Visual Basic(VBA)
-
6
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
7
C# ログイン画面からメイン画面への画面遷移について
C言語・C++・C#
-
8
visual studio でインデントを自動的に揃えるショートカットキー
その他(プログラミング・Web制作)
-
9
Visual Basic.NETの、Form 間での引数の引渡し方法を教えてください。
Visual Basic(VBA)
-
10
エクセルでエラーが出て困っています。
Excel(エクセル)
-
11
Hideについて(.NET)
Visual Basic(VBA)
-
12
System.IO.Directory.GetFilesの順番
Visual Basic(VBA)
-
13
「指定されたキャストは有効ではありません。」とエラーが出てしまいます。
Microsoft ASP
-
14
【VB】タブ切り替え時のイベント
Visual Basic(VBA)
-
15
一定の時間が経過したら、処理を止めたい
Visual Basic(VBA)
-
16
ボタンをマウスで押し続けたときのイベント
Visual Basic(VBA)
-
17
VB.NETでアクティブなformを知りたい
Visual Basic(VBA)
-
18
メッセージボックスを大きくする方法
Visual Basic(VBA)
-
19
CloseとDisposeの違い
Visual Basic(VBA)
-
20
VB.NETでファイル名順にファイルを読む方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Visual Basic 6.0 コンボボック...
-
WPFでの時刻入力コントロールに...
-
一定時間操作されないと自動で...
-
C# DateTimePicker をキー入力...
-
エクセルVBAのテキストボック、...
-
【VB】タブ切り替え時のイベント
-
タブキー押下時のイベントをひ...
-
テキストボックスの入力文字を1...
-
VB6で電卓を作っているのですが...
-
Enterキーでもコントロール間を...
-
Access データ表示 完了時のイ...
-
プログラミングc# Windowsフォ...
-
特定のキーを押すまでループさ...
-
ユーザーフォームのテキストボ...
-
TextboxまたはMaskEditboxでの...
-
コンボボックスにキー入力をさ...
-
VBでイベント処理を追加する...
-
onchangeでイベントが発生しません
-
IEで、BackSpaceで「戻る」機能...
-
コマンドボタン(入力)をクリッ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VB】タブ切り替え時のイベント
-
タブキー押下時のイベントをひ...
-
特定のキーを押すまでループさ...
-
(VBA)チェックボックスのclick...
-
WPFでの時刻入力コントロールに...
-
Visual Basic 6.0 コンボボック...
-
一定時間操作されないと自動で...
-
コンボボックスにキー入力をさ...
-
Excel VBA マクロ実行中のみテンキ...
-
VB.NETのDropDownListをReadOnl...
-
フォーカスについてお教えください
-
キーイベントを擬似的に発生さ...
-
IEで、BackSpaceで「戻る」機能...
-
エクセルVBAのテキストボック、...
-
VB.NETでフォームがない...
-
KEYPREVIEW=TRUEについて。意味...
-
EXCEL VBA でIEを制御して、INP...
-
自作ダイアログボックス中のエ...
-
テキストボックスの入力文字を1...
-
Objective-Cでキーボードイベン...
おすすめ情報