This commit is contained in:
2024-03-12 14:32:11 +01:00
4 changed files with 27 additions and 6 deletions

View File

@@ -71,6 +71,10 @@ Public Class usrCntlKundenuebersicht
Catch ex As Exception
End Try
Me.DoubleBuffered = True
SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
UpdateStyles()
End Sub
@@ -83,6 +87,9 @@ Public Class usrCntlKundenuebersicht
End Try
Me.DoubleBuffered = True
SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
UpdateStyles()
End Sub
Private Sub initCboKd()

View File

@@ -26,6 +26,10 @@ Public Class usrcntlKundeBearbeitenFull
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
loadControls()
Me.DoubleBuffered = True
SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
UpdateStyles()
End Sub
Sub New(kdnr)
InitializeComponent()
@@ -34,6 +38,10 @@ Public Class usrcntlKundeBearbeitenFull
'If kdnr > 0 Then
' init(kdnr)
'End If
Me.DoubleBuffered = True
SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
UpdateStyles()
End Sub