ウィンドウズを起動してからの経過時間取得のプログラムは下記ようになったのですが・・・VBでつくったフォームを開いたと同時にカウントされるようにコーディングしたいのですがどうしたらよいのでしょうか?
例) Aという名前のフォームを開くと「OO時間OO分OO秒経過」という風にそのフォームのステーラスバーに出そうとしています。
Private Declare Function GetTickCount Lib "kernel32.dll" () As Long
Private Sub Timer1_Timer()
Dim RetCount As Long
Dim h As Integer, m As Integer, s As Integer, ms As Integer
RetCount = GetTickCount 'ミリ秒単位で返ってきます
'
h = RetCount \ 1000 \ 60 \ 60
m = RetCount \ 1000 \ 60 - h * 60
s = RetCount \ 1000 - (h * 60 * 60 + m * 60)
ms = RetCount Mod 1000
Label1.Caption = "経過時間 " & Right(("0" & h), 2) & ":" _
& Right(("0" & m), 2) & ":" & Right(("0" & s), 2) & "." _
& Right(("00" & ms), 3)
End Sub
No.2ベストアンサー
- 回答日時:
下記で参考になるところがあれば、使ってください。
Dim t1
Private Sub Form_Load()
Form1.Timer1.Interval = 5000
Form1.Timer1.Enabled = True
Form1.Visible = True
Form1.Print Time() & "スタート"
t1 = Timer
End Sub
Private Sub Timer1_Timer()
t2 = Timer
Form1.Print Int(t2 - t1) & "秒経過"
End Sub
実行すると11:12:20スタート
5秒経過
10秒経過
とかがフォームに出ます。
ただたまに4秒経過になったりしますが、私のタイマーの理解不足です。
No.3
- 回答日時:
#2のものです。
http://homepage3.nifty.com/salv/v_sickhack/02/v_ …
のようなURLを見つけました。
補足にお書きになったことが理解できないんですが。済みません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Vba Userformを前面に出すについて 3 2022/04/15 12:29
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) VBA 配列を使ったコードに直していただけますか 4 2023/05/06 15:18
- Visual Basic(VBA) エクセルVBAについて 8 2022/07/13 22:41
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ 1 2023/07/04 15:13
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/01/11 08:33
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザーフォームを表示中にシ...
-
Form_Load と Form_Activate の...
-
VBA(エクセル)のユーザー...
-
エクセルVBAのフォームを最...
-
ExcelVBAのユーザーフォームの...
-
VBAでユーザーフォームを再表示...
-
Hideについて(.NET)
-
Microsoft Formsの「個人情報や...
-
ACCESSのフォーム、開くんです...
-
クリックイベントなのに、2回ク...
-
フォームウィンドウを最前面に...
-
Access VBA コントロールの参照...
-
C#で起動時のフォームを非表示...
-
(Excel+VBA)ユーザーフォームの...
-
Excelのユーザーフォームのテキ...
-
フォームを画面のど真ん中に表...
-
モードレスでユーザーフォーム...
-
VB.NET MDI親フォームのスクロ...
-
アクセス2013 フォームが...
-
ユーザーフォームのテキストボ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームを表示中にシ...
-
ExcelVBAのユーザーフォームの...
-
エクセルVBAのフォームを最...
-
クリックイベントなのに、2回ク...
-
ユーザーフォームのテキストボ...
-
モーダルフォームとモードレス...
-
Form_Load と Form_Activate の...
-
VBAでユーザーフォームを再表示...
-
Hideについて(.NET)
-
ACCESSのフォーム、開くんです...
-
MSGBOXのフォント大きさ変更
-
Excelにて、ユーザーフォームで...
-
【VBAユーザーフォームで閉じる...
-
ユーザーフォーム上に現在日時...
-
VBA(エクセル)のユーザー...
-
access2021 更新前に処理をしたい
-
Accessで、一つのフォーム画面...
-
コントロールの存在確認
-
Microsoft Formsの「個人情報や...
-
複数モニタ使用時のフォームの...
おすすめ情報