15 Декабрь 2008

Чертим линию от края до края формы

Timer |  Таги: , ,

Чертим линию от края до края формы

Допустим Вам будет необходимо рисовать прямую линию на форме с определенным интервалом добавляя следующий штрих через время.

Выставляем интервал от 10 до 100, чем больше тем медленнее рисует.

Option Explicit

Private Sub Command1_Click()
CurrentX = 0: CurrentY = 500
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Line -Step(50, 0)
If CurrentX > ScaleWidth Then Timer1.Enabled = False
End Sub

Запись опубликована on 15.12.2008 at 22:00 и размещена в рубрике: Timer. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.