Конференция VBStreets

**DVV** » 11.09.2004 (Сб) 19:49

На форме устанавливаем Таймер(интервал 1000), Label1.caption=time
И Label1 показывает время. Почему в Label'е происходит мерцание?

**A.A.Z.** » 11.09.2004 (Сб) 19:51

Сделал то же самое (Timer1.Interval = 1000, Label1.Caption = Time), мерцания не заметил.

**GSerg** » 11.09.2004 (Сб) 19:52

Потому что она меняется... Так и должно быть, нет?

**DVV** » 11.09.2004 (Сб) 19:55

Но в VB.NET нет такого!

**GSerg** » 11.09.2004 (Сб) 19:58

Ну дык и что?

Ты не заметил потому, что комп быстрый

А ты заметил по обратной причине

А в NET не мерцает, может быть, потому, что там это STATIC, а не обёртка псевдооконная...

**CyberYen** » 11.09.2004 (Сб) 20:04

A.A.Z писал(а):Сделал то же самое (Timer1.Interval = 1000, Label1.Caption = Time), мерцания не заметил.

Эт самый простой пример мерцания.
Попробуй для гр. в таймере:
Image1.left = image1.left + 10
Мерцает? :wink:

Теперь вопрос: ПОЧЕМУ? :wink:

**DVV** » 11.09.2004 (Сб) 20:09

Я хочу сделать часы и это из-за этого мерцания
они будут выгдядеть некачественно!

**A.A.Z.** » 11.09.2004 (Сб) 20:15

CyberYen, нет, не мерцает!
DVV, попробуй, как вариант, "превратить" TextBox в Label:

Код: Выделить всё: Option Explicit Private Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long Private Sub Form_Activate() HideCaret Text1.hwnd End Sub Private Sub Form_Load() With Text1 .Locked = True .BorderStyle = 0 .BackColor = &H8000000F End With Timer1.Interval = 1000 End Sub Private Sub Text1_GotFocus() HideCaret Text1.hwnd End Sub Private Sub Text1_LostFocus() HideCaret Text1.hwnd End Sub Private Sub Timer1_Timer() Text1.Text = Time End Sub