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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
Access 無操作の場合、自動で閉じたいです。
Access(アクセス)
-
VBA=一定時間エクセルの入力操作がない場合、自動的にそのブックを閉じたい
Windows Vista・XP
-
Excelで一定時間が経ったらメッセージを出したい
Excel(エクセル)
-
-
4
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
5
一定の時間が経過したら、処理を止めたい
Visual Basic(VBA)
-
6
CloseとDisposeの違い
Visual Basic(VBA)
-
7
エクセルVBA 10分後にエクセル自動終了&カウン
Excel(エクセル)
-
8
フォームの再読み込み
Visual Basic(VBA)
-
9
一定時間操作がなかったら、というプログラムは??
C言語・C++・C#
-
10
キーボード入力、マウス操作を監視をしたい
Visual Basic(VBA)
-
11
Visual Basic.NETの、Form 間での引数の引渡し方法を教えてください。
Visual Basic(VBA)
-
12
エクセルでエラーが出て困っています。
Excel(エクセル)
-
13
「指定されたキャストは有効ではありません。」とエラーが出てしまいます。
Microsoft ASP
-
14
System.IO.Directory.GetFilesの順番
Visual Basic(VBA)
-
15
VB.NETでアクティブなformを知りたい
Visual Basic(VBA)
-
16
VB.NETでラベルの大きさってどうやって変えるの?
Visual Basic(VBA)
-
17
C# ログイン画面からメイン画面への画面遷移について
C言語・C++・C#
-
18
ボタンをマウスで押し続けたときのイベント
Visual Basic(VBA)
-
19
【C#】別フォームも同時に閉じるには?
C言語・C++・C#
-
20
なぜprotected overrideなのか
C言語・C++・C#
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のキーを押すまでループさ...
-
コマンドボタン(入力)をクリッ...
-
ListViewで、PageDownキーイベ...
-
キーイベントを擬似的に発生さ...
-
「ご処理進めて頂きますようお...
-
EXCEL VBA マクロ 実行する度に...
-
スマホでサイトの画像を長押し→...
-
フォーム上の全てのコントロー...
-
【Excel】特定の文字を含むセル...
-
VBAでループ内で使う変数名を可...
-
「PC Helpsoft Driver Updated...
-
タッチパッドはチャタリングは...
-
メルカリのメルカードで買い物...
-
Excelで検索ボタンを作るには
-
VBA エンターキーでイベントに...
-
ビープ音を連続して鳴らす
-
【access】複数のフィールドの...
-
iD
-
switch の範囲指定
-
VBA 特定の文字が入力されたセ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VB】タブ切り替え時のイベント
-
Visual Basic 6.0 コンボボック...
-
一定時間操作されないと自動で...
-
特定のキーを押すまでループさ...
-
WPFでの時刻入力コントロールに...
-
キーイベントを擬似的に発生さ...
-
(VBA)チェックボックスのclick...
-
タブキー押下時のイベントをひ...
-
テキストボックスの入力文字を1...
-
VB.NETでフォームがない...
-
エクセルVBAのテキストボック、...
-
コンボボックスにキー入力をさ...
-
KEYPREVIEW=TRUEについて。意味...
-
フォーカスについてお教えください
-
複数のテキストボックスのカン...
-
Excel VBA マクロ実行中のみテンキ...
-
VB6で電卓を作っているのですが...
-
IEで、BackSpaceで「戻る」機能...
-
VB.NETのDropDownListをReadOnl...
-
VC++ で TextBoxから、次...
おすすめ情報