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

**step** » 11.02.2005 (Пт) 13:03

Вот столкнулся я с проблемой: делаю, что-бы у окна каждую секунду форма менярась, и при этом остаётся след от старой формы, ну я думаю может экран обновить? Если кто знает пишите! Всем большое спасибо!

**Ramzes** » 11.02.2005 (Пт) 13:16

Попробуй
me.AutoRedraw = True

**step** » 11.02.2005 (Пт) 13:50

Как я помню me.AutoRedraw = True - это автообновление формы, а мне надо обновить место под формой!

**KDima** » 11.02.2005 (Пт) 16:51

Это уже не к тебе!
Винда сама решает!

**_Мика_** » 11.02.2005 (Пт) 18:52

Ну вообще надо сэмитировать нажатие клавиши F5 и все :wink:

**Ramzes** » 11.02.2005 (Пт) 19:12

Ага, и при этом будет мерцать рабочий стол

**SHURUP** » 11.02.2005 (Пт) 19:15

Если мне не изменяет память, то была такая АПИ-шка RedrawWindow
--------

KDima писал(а):Это уже не к тебе!
Винда сама решает!

А кто у нее спрашивать будет?? :lol:

**Ramzes** » 11.02.2005 (Пт) 19:22

SHURUP писал(а):--------
KDima писал(а):Это уже не к тебе!
Винда сама решает!
А кто у нее спрашивать будет??

**_Мика_** » 12.02.2005 (Сб) 11:34

SHURUP писал(а):Если мне не изменяет память, то была такая АПИ-шка RedrawWindow
--------
KDima писал(а):Это уже не к тебе!
Винда сама решает!
А кто у нее спрашивать будет??

Так нужно что бы не окно перерисовалось (это делает AutoRedraw) а что бы след от старого окна пропал, для этого надо делать Redraw винды :roll:

**step** » 12.02.2005 (Сб) 11:55

КАК МНЕ СДЕЛАТЬ, ЧТО-бЫ ЧИСЛА ОТОБРАЖАЛИСЬ НОРМАЛЬНО?

Private Declare Function SelectClipPath Lib "gdi32" _
(ByVal hdc As Long, ByVal iMode As Long) As Long
Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function PathToRegion Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" _
(ByVal hwnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long

Private Const RGN_COPY = 5
Dim q As Single

Private Sub Timer1_Timer()
q = q + 1
On Error Resume Next
Dim hRgn As Long
Font.Name = "Times New Roman"
Font.Bold = True
Font.Size = 60
Width = TextWidth(q)
Height = TextHeight(q)
BeginPath hdc
CurrentX = 0
CurrentY = 0
Print q

EndPath hdc
hRgn = PathToRegion(hdc)
SetWindowRgn hwnd, hRgn, False
End Sub

**tyomitch** » 12.02.2005 (Сб) 13:28

Последний параметр в вызове SetWindowRgn замени на True ;-)

**step** » 12.02.2005 (Сб) 13:35

tyomitch ОГРОМНОЕ СПАСИБО!

ЭТО ЧЁ-ТО Я ПРОГНАЛ ПРОСТО!

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

КАК ОБНОВИТЬ ЭКРАН?

КАК ОБНОВИТЬ ЭКРАН?

Кто сейчас на конференции