![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
VBA=一定時間エクセルの入力操作がない場合、自動的にそのブックを閉じたい
Windows Vista・XP
-
Access 無操作の場合、自動で閉じたいです。
Access(アクセス)
-
「指定されたキャストは有効ではありません。」とエラーが出てしまいます。
Microsoft ASP
-
-
4
Excelで一定時間が経ったらメッセージを出したい
Excel(エクセル)
-
5
一定の時間が経過したら、処理を止めたい
Visual Basic(VBA)
-
6
ボタンをマウスで押し続けたときのイベント
Visual Basic(VBA)
-
7
CloseとDisposeの違い
Visual Basic(VBA)
-
8
VB.NETでラベルの大きさってどうやって変えるの?
Visual Basic(VBA)
-
9
Chr(13)とChr(10)の違いは?
PowerPoint(パワーポイント)
-
10
一定時間操作がなかったら、というプログラムは??
C言語・C++・C#
-
11
エクセルVBA 10分後にエクセル自動終了&カウン
Excel(エクセル)
-
12
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
13
VBでファイルが開かれているかどうかを確認したい
Visual Basic(VBA)
-
14
キーボード入力、マウス操作を監視をしたい
Visual Basic(VBA)
-
15
エクセルでエラーが出て困っています。
Excel(エクセル)
-
16
System.IO.Directory.GetFilesの順番
Visual Basic(VBA)
-
17
フォームウィンドウを最前面に表示したい(ACCESS)
Microsoft ASP
-
18
VB.NETでアクティブなformを知りたい
Visual Basic(VBA)
-
19
メッセージボックスを大きくする方法
Visual Basic(VBA)
-
20
SPREAD(GrapeCity)のセルにフォーカスを設定するにはどうしたらいいのでしょうか?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
タブキー押下時のイベントをひ...
-
ユーザーフォームのテキストボ...
-
VB.NETのDropDownListをReadOnl...
-
【VB】タブ切り替え時のイベント
-
複数のテキストボックスのカン...
-
EXCEL VBA でIEを制御して、INP...
-
コンボボックスにキー入力をさ...
-
コマンドボタン(入力)をクリッ...
-
VB6で電卓を作っているのですが...
-
KEYPREVIEW=TRUEについて。意味...
-
【Mouse Down】キーリピートを...
-
特定のキーを押すまでループさ...
-
ListViewで、PageDownキーイベ...
-
javascript スムーズな動作
-
WPFでの時刻入力コントロールに...
-
Excel VBA マクロ実行中のみテンキ...
-
Access データ表示 完了時のイ...
-
EXCEL VBA----ユーザーフォーム...
-
SelectionChangeCommitted
-
VB.NETでフォームがない...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VB】タブ切り替え時のイベント
-
特定のキーを押すまでループさ...
-
一定時間操作されないと自動で...
-
Visual Basic 6.0 コンボボック...
-
タブキー押下時のイベントをひ...
-
WPFでの時刻入力コントロールに...
-
コンボボックスにキー入力をさ...
-
(VBA)チェックボックスのclick...
-
VB.NETのDropDownListをReadOnl...
-
Excel VBA マクロ実行中のみテンキ...
-
EXCEL VBA でIEを制御して、INP...
-
キーイベントを擬似的に発生さ...
-
KEYPREVIEW=TRUEについて。意味...
-
テキストボックスの入力文字を1...
-
VB.NETでフォームがない...
-
エクセルVBAのテキストボック、...
-
IEで、BackSpaceで「戻る」機能...
-
C# WMPメディアの終了検知 その2
-
複数のテキストボックスのカン...
-
コマンドボタン(入力)をクリッ...
おすすめ情報