VB初心者友の会 - はじめたばかりの人専用Q&A掲示板過去ログ

xもstaticで宣言してみませう。(^^)

> 以下は、私が考えたタイマーコントロールを使った時計と、一秒ごとにラインが
> 100ピクセルずつ伸びるようなものです。やはり間違っていたようで、ラインは
> 伸びません。もしよろしければ、どなたかご助言をおねがいいたします。
> 
> Private Sub tmrClock_Timer()
> 
>     Static LastTime As String
>     Dim x
>     If LastTime <> Time Then lblTime.Caption = Time
>     LastTime = Time
>     x = x + 100
>     Line (500, 1000)-(500 + x, 1000)
>     
> End Sub

まず、Time関数の戻り値は Date型なので、変数"LastTime"は Date型にすべきでしょう。

それと、変数"x"がローカルな動的変数になっていますので、このプロシージャが実行される度に
領域確保&初期化され、終了時に開放されています。したがって、xの値は常に100です。
つまり、何度実行されても 座標(500,1000)-(600,1000)のラインになってますね。

ついでに、本質的な事ではないですが、この記述では変数"x"はバリアント型になっています。
無意味なバリアント型は、発見し辛い不具合の温床になりますし、型宣言を省略した書き方も
止めた方がいいです。バリアント型ならきちんと"As Variant"と書くような癖を付けた方がい
いですよ。

１秒単位で線を延ばしたいのなら、Load時の時間を記憶しておいて、これと現在時間の差を取ったほうが
良いでしょう。　Timer コントロールのイベントは、いい加減ですから。

Dim dw As Date

Private Sub Form_Load()
    dw = Now
End Sub

Private Sub Timer1_Timer()
    Line (500, 1000)-(500 + DateDiff("s", dw, Now), 1000)
End Sub

こんだけですね。　Timer の Interval は、１秒よりも小さい値、特に 500ms 以下に設定するほうが
正確です。