![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBA=一定時間エクセルの入力操作がない場合、自動的にそのブックを閉じたい
Windows Vista・XP
-
Access 無操作の場合、自動で閉じたいです。
Access(アクセス)
-
「指定されたキャストは有効ではありません。」とエラーが出てしまいます。
Microsoft ASP
-
-
4
ボタンをマウスで押し続けたときのイベント
Visual Basic(VBA)
-
5
Excelで一定時間が経ったらメッセージを出したい
Excel(エクセル)
-
6
キーボード入力、マウス操作を監視をしたい
Visual Basic(VBA)
-
7
一定の時間が経過したら、処理を止めたい
Visual Basic(VBA)
-
8
VB.NETでラベルの大きさってどうやって変えるの?
Visual Basic(VBA)
-
9
CloseとDisposeの違い
Visual Basic(VBA)
-
10
一定時間操作がなかったら、というプログラムは??
C言語・C++・C#
-
11
エクセルVBA 10分後にエクセル自動終了&カウン
Excel(エクセル)
-
12
DateTimePickerでに年月までしか選択できないようにしたいです。
Visual Basic(VBA)
-
13
VB.NETで DataRow()を利用して、値からコードを取得したい。
Visual Basic(VBA)
-
14
VBでファイルが開かれているかどうかを確認したい
Visual Basic(VBA)
-
15
VB.NETでのイベントの途中終了
Visual Basic(VBA)
-
16
エクセルでエラーが出て困っています。
Excel(エクセル)
-
17
SPREAD(GrapeCity)のセルにフォーカスを設定するにはどうしたらいいのでしょうか?
Visual Basic(VBA)
-
18
フォームウィンドウを最前面に表示したい(ACCESS)
Microsoft ASP
-
19
VB.NETで1→A、2→B、26→Z、27→AAの変換をしたい
Visual Basic(VBA)
-
20
エクセルのデータグループ化の際に貼り付けた図だけ一緒に折りたたんでくれません!
Windows Vista・XP
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
一定時間操作されないと自動で...
-
【VB】タブ切り替え時のイベント
-
WPFでの時刻入力コントロールに...
-
Visual Basic 6.0 コンボボック...
-
ListViewで、PageDownキーイベ...
-
タブキー押下時のイベントをひ...
-
KEYPREVIEW=TRUEについて。意味...
-
キーイベントを擬似的に発生さ...
-
プログラミングc# Windowsフォ...
-
(VBA)チェックボックスのclick...
-
EXCEL VBA----ユーザーフォーム...
-
vba set Focus
-
コマンドボタン(入力)をクリッ...
-
エクセルVBAのテキストボック、...
-
特定のキーを押すまでループさ...
-
VB.NETのDropDownListをReadOnl...
-
複数のテキストボックスのカン...
-
【Mouse Down】キーリピートを...
-
IEで、BackSpaceで「戻る」機能...
-
Excel VBA マクロ実行中のみテンキ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VB】タブ切り替え時のイベント
-
特定のキーを押すまでループさ...
-
タブキー押下時のイベントをひ...
-
Visual Basic 6.0 コンボボック...
-
一定時間操作されないと自動で...
-
WPFでの時刻入力コントロールに...
-
(VBA)チェックボックスのclick...
-
コンボボックスにキー入力をさ...
-
VB.NETのDropDownListをReadOnl...
-
VB.NETでフォームがない...
-
NULLで検索を行ったときは全件...
-
Excel VBA マクロ実行中のみテンキ...
-
KEYPREVIEW=TRUEについて。意味...
-
エクセルVBAのテキストボック、...
-
テキストボックスの入力文字を1...
-
キーイベントを擬似的に発生さ...
-
【Mouse Down】キーリピートを...
-
フォーカスについてお教えください
-
複数のテキストボックスのカン...
-
VB6で電卓を作っているのですが...
おすすめ情報