revert to VB and update to new project file format

This commit is contained in:
schedpas
2020-09-25 09:04:15 +02:00
parent 04869b2814
commit 9feaf658be
313 changed files with 9895 additions and 17566 deletions

View File

@@ -0,0 +1,28 @@
Imports System.Runtime.CompilerServices
Imports System.Windows.Forms
Namespace Utils
Public Module DrawingControl
Private Const WM_SETREDRAW = 11
<Extension>
Public Sub SuspendDrawing(control As Control)
SendMessage(control.Handle, WM_SETREDRAW, False, 0)
End Sub
<Extension>
Public Sub ResumeDrawing(control As Control)
ResumeDrawing(control, True)
End Sub
<Extension>
Public Sub ResumeDrawing(control As Control, redraw As Boolean)
SendMessage(control.Handle, WM_SETREDRAW, True, 0)
If redraw Then control.Refresh()
End Sub
End Module
End Namespace