15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


Как заставить MDI окно обновиться

Public Sub Refresh()
	Call RedrawWindow(Me.hWnd, 0&, 0&, _
		RDW_ALLCHILDREN Or RDW_UPDATENOW)
End Sub

Перед использованием, эту функцию необходимо объявить, а так же необходимые константы:

Public Const RDW_ALLCHILDREN = &H80
Public Const RDW_UPDATENOW = &H100

' ЗАМЕЧАНИЕ: Тип данных параметра lprcUpdate 
' был изменён с RECT в 0& (NULL).
#If Win32 Then
	Declare Function RedrawWindow Lib _
		"user32" (ByVal hwnd As Long, _
		lprcUpdate As Any, ByVal hrgnUpdate _
		As Long, ByVal fuRedraw As Long) As Long
#ElseIf Win16 Then
	Declare Function RedrawWindow Lib "User" _
		(ByVal hWnd As Integer, lprcUpdate As Any, _
		ByVal hrgnUpdate As Integer, ByVal fuRedraw As _
		Integer) As Integer
#End If