• ベストアンサー

.NETで現在時刻を常に動作させる方法。

VB.6.0ではリアルに動いていたのですが、VB.NETでは取得したときのみの表示となってしまいます。どの様なプログラムを書けばいいのでしょうか？ .NETでは、動かないのでしょうか？ 現在の日付と時刻を取得し、エクセルにデ－タ転送時同時にその時間を貼り付けたいのですが、時間がリアルに動きません。 Private Sub Timer1_Tick(Byval eventSender AS ・・・ TexDate.Text=Format(Now,"yymm月dd日　　hh時mm分") end　sub

質問者が選んだベストアンサー

  • ベストアンサー
  • chain-saw
  • ベストアンサー率47% (35/73)
回答No.1

EnabledプロパティがTrueになってますか？ .NETは最初Falseに設定されていたと思います。 後、日付の表現は"yyMMdd hhmmss"です。 MMが月、mmは分を表します。

masaojisan
質問者

お礼

ありがとうございます 動作しました 表記のyymm月は私の書き間違いです。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • TEXTデータの取得した日付が動作する方法

    何度も済みません、先ほどの回答で私の間違いが分かったのですが、もう一件追加で不明点が出ました。 取得した日付が動かない点です。 VB.6.0ではリアルに動いていたのですが、VB.NETでは取得したときのみの表示となってしまいます。どの様なプログラムを書けばいいのでしょうか？ .NETでは、動かないのでしょうか？ Private Sub Timer1_Tick(Byval eventSender AS ・・・ TexDate.Text=Format(Now,"yymm月dd日　　hh時mm分") end　sub

  • 日付の取得VB.NET.では

    自動で日付をTEXTboxに取得する場合 VB.6.0では Private Sub Timer1_Timer() TexDate.Text=Format(Now,"yymm月dd日　　hh時mm分") end　sub でOKでしたが。VB.NETではどう書けば良いのでしょうか？

  • VBでの質問です

    VBでの質問です 5分を計るタイマーを作っていて5分たつと止まるプログラムを作っていて、コンマ以下のケタが長くて、しかも止まらない（ Label1.Text = n5.Subtract(Now).ToStringをLabel1.Text = n5.Subtract(Now).TotalMinutesにしてIf Label1.Text = "00：00：00" ThenをIf Label1.Text = "0" Thenにした時は止まりました）ので止まるようにするにはどこを変えればいいですか？ 教えてください 以下コードです Public Class Form1 Dim n5 As DatePrivate Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load n5 = Now.AddMinutes(5) Timer1.Interval = 1000 Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Text = n5.Subtract(Now).ToString If Label1.Text = "00：00：00" Then MsgBox("時間になりました。") Timer1.Stop() End If End Sub 長文ですいません

  • テキストファイルを読み込んで文字の動的表示をする方法を教えてください。

    Visual basic2005 Express Editionで、文字を動的に表示する方法は、 TextBoxとTimerをFormに貼り付けて、Timerのプロパティの動作の項目のEnabledをTrueにしてコードに Public Class Form1 Private hyouji As String = "テスト" Private nagasa As Integer = 0 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick TextBox1.Text = Microsoft.VisualBasic.Left(hyouji, nagasa) nagasa += 1 If nagasa > Len(hyouji) Then nagasa = 0 End If End Sub End Class と入力すると出来ますが、テキストファイルを読み込んで文字を動的に表示する方法が分かりません。 教えてください。よろしくお願いします。

  • 参考サイトを探しています。

    VB6.0を使っています。 OSはwindows2000です。 text1にtimerで現在時間を表示しています。 何時になったらイベントを発生させると、複数のイベント発生条件を入れられるいうものを作っているのですが、検索のしかたがわかりません。 VB　入門　タイマー　時間　イベント　複数　アラーム などを組み合わせたのですがうまいこと出てこないので参考ページお願いします。 只今こんな感じです Option Explicit Dim SetTime As String ----------------------------------------------------- Private Sub Command1_Click() SetTime = Text2.Text　←　出来れば直接の時間を設定したい。 End Sub ---------------------------------------------- Private Sub Timer1_Timer() Text1.Text = Format(Time, "hh:mm:ss") If Format(Now, "hh:mm") = SetTime Then MsgBox ("設定した時間です " & SetTime) End If End Sub -------------------------------------------- ヨロシクお願いします

  • VCのDLLを呼ぶ場合の宣言方法

    VB.NetからVC++で作成したDLLを使用する場合の宣言方法について教えてください。 VC++のDLLの関数で引数に構造体のポインタを渡すようになっているのですがマーシャリング属性の指定方法がわからなく困っています。 VB6.0では使用できたのでDLL側は問題ないと思うので(DLL側は修正ししないでVB側の修正で対応したいです)VB.Net側の問題だと思うのですがどこを直したらいいのかご教授願えないでしょうか。 以下にVC++のDLLの宣言部、VB6.0のときのソース、VB.Netのソースの必要と思われる部分を載せておきます。 ただしVB.NetのソースはVB6.0からUpGradeしたものをWeb等で調べて修正したものです。 当方VBに関してはまだ触り始めて１ヶ月も経っていないのですが仕事で急ぎで対応しなくてはならないため勉強する時間がなくどうすればいいか困っています。 よろしくお願いします。 ### VC++側ソース(概略) void __stdcall GetData( STESTDATA* pData ) struct STESTDATA { float fData1[6]; float fData2[32][6]; }; ### VB6.0の時のソース Private Type testdata Data1(5) As Single Data2(5, 31) As Single End Type Private Declare Sub GetData Lib "TestLib.dll" (ByRef pData As testdata) Private Sub TimerGetData_Timer() Dim data As testdata GetData data End sub ### VB.Net(2008)の時のソース <StructLayout(LayoutKind.Sequential)> _ Private Structure testdata <MarshalAs(UnmanagedType.ByValArray)> Dim Data1() As Single <MarshalAs(UnmanagedType.ByValArray)> Dim Data2(,) As Single Public Sub Initialize() ReDim Data1(5) ReDim Data2(5, 31) End Sub End Structure <System.Runtime.InteropServices.DllImport("TestLib")> _ Private Shared Sub GetData(ByVal pData As testdata) End Sub Private Sub TimerGetData_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles TimerGetData.Tick Dim data As testdata data.data1 = New Single(5) {} data.data2 = New Single(5, 31) {} data.Initialize() GetData(data) End Sub ※因みにVB.Netのソースを実行すると本来ならdata構造体のdata1とdata2に値にDLL内で値が設定されるのですが、現状では全て0が設定されてしまっています。

  • vc++子ウィンドウにおけるTimer動作について

    visualc++2008について。 Form2^ form12 = gcnew Form2(); form12->Show(); の記述で子ウィンドウを表示させるところまでできたのですが、その子ウィンドウでキッチンタイマーの動作をさせようと考えています。がTimer_tickが動作しません。 ShowではなくRunじゃないかとかいろいろ考えてやってみたのですが、ことごとくエラーでした。 Timerの動作部分TickにはTimer_tickを紐付けしてあります。 Timer動作もTureで、記述コードもとりあえず this->label１->Text = DateTime::Now.ToString("HH:mm:ss"); でまず、動作しているかの確認を行っています。 わかる方ご教授お願いします。

  • Tickイベントについての質問

    1秒間のループ回数を得るために下記のようなコードを記述したのですが、Tickイベントが発生せずループから抜けません。以前はVB6(Timer1_Timerイベント)を使用していたのですが、何の問題もなく使用出来ていました。誰か分る方、ご教授下さい。もちろんInterval=1000です。 '1sec間に繰り返されるループ回数 Private mlng1SecTimeCount As Long '1sec経過フラグ Private msht1SecFlg As Short '(省略) Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'ディレイタイム設定 DELAY_TIME_SETTING() End Sub Private Sub DELAY_TIME_SETTING() 'ディレイタイム設定 '解説:1sec間に実行されるループ回数の算出。 'ループ回数格納用変数 Dim lngLoopCount As Long 'タイマー1起動 Timer1.Enabled = True Do Until msht1SecFlg = 1 lngLoopCount += 1 Loop 'タイマー1停止 Timer1.Enabled = False 'データ保存 mlng1SecTimeCount = lngLoopCount End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick '解説:1sec経過後にインクリメント。 'インクリメント msht1SecFlg += 1 End Sub 以上よろしくお願い致します。

  • "Ｅｎｔｅｒキー"で閉じる方法…

    お世話になります。 ＶＢ初心者＆独学でどうしても解けない問題があり、是非、お知恵をお貸し頂けたらと思います。 アラームを作ろうと思い、下記のようなプログラムを作りました。(簡略版) 指定した時間になるとＦｏｒｍ２が開かれ、"ＯＫ"ボタンで閉じるという単純なものです。 ここで問題が発生したのですがアプリケーションがアクティブ(選択されている)状態だとＦｏｒｍ２もアクティブ状態になり"Enterキー"で閉じることが出来ますが、非アクティブ状態ですとＦｏｒｍ２も非アクティブ状態で開かれ、タスクバーが点滅して"Enterキー"で閉じれず一度マウスでクリックしてアクティブにしてからではないと閉じれません。 SetActiveWindowや、SetForcusなどでアクティブしても見た目はアクティブになっていますが、"Enterキー"で閉じることが出来ません。 メインForm1が非アクティブ状態でもForm2がアクティブになり、"Enterキー"だけで閉じる方法は無いでしょうか…。 まとまりの無い文章で難解かと思いますが、宜しく御願いします。 (VB6.0、Windows2000) *Form1* Private Sub Form_Load() Me.Timer1.Interval = 500 End Sub Private Sub Timer1_Timer() If Format(Now, "hh:mm:ss") = "12:00:00" Then Form2.Show End If End Sub *Form2* Private Sub Command1_Click() Unload Me End Sub Private Sub Form_Load() Form2.Command1.Caption = "閉じます" End Sub

  • Labelの文字をスクロールする際にちらつきが・・・

    お世話になります。 フォームにあるラベルに文字を表示し、その文字をスクロールするプログラムを作成しました。 スクロールはできるのですが、スクロールする際に文字がちらついて（早い点滅のような感じ）しまいます。 どのようにすれば、ちらつきを無くすることができますか？ よろしくお願いします。 （VB2008にて作成） Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Label1.Text = "文字のスクロール" 'タイマーのインターバルで文字の進む速度が決まります Timer1.Interval = 5 Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim objG As Graphics objG = Label1.CreateGraphics() 'ここで一旦クリアしないと真っ黒になります objG.Clear(Label1.BackColor) '左端を決めて、文字を描画する objG.DrawString(Label1.Text, Label1.Font, New SolidBrush(Label1.ForeColor), iLeft, 0) '左端をずらす iLeft += 1 If iLeft > Label1.Width Then '右端までいったら戻す iLeft = 0 End If objG.Dispose() End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する