edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SND DoubleBuffer

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-03-07 22:14:22 +01:00
parent 2e1b49e441
commit e7aeec67aa
2 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.9.7.8")> <Assembly: AssemblyVersion("3.9.7.9")>
<Assembly: AssemblyFileVersion("3.9.7.8")> <Assembly: AssemblyFileVersion("3.9.7.9")>

12
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -38,11 +38,20 @@ Public Class frmSendungsdetailsNEU
Sub New() Sub New()
InitializeComponent() InitializeComponent()
Me.DoubleBuffered = True
SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
UpdateStyles()
End Sub End Sub
Sub New(AvisoId, SendungID) Sub New(AvisoId, SendungID)
InitializeComponent() InitializeComponent()
Me.AvisoId = AvisoId Me.AvisoId = AvisoId
Me.SendungID = SendungID Me.SendungID = SendungID
Me.DoubleBuffered = True
SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
UpdateStyles()
End Sub End Sub
Private Sub frmSendungsdetails_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Private Sub frmSendungsdetails_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
@@ -1136,6 +1145,7 @@ Public Class frmSendungsdetailsNEU
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
loaded = False loaded = False
Try Try
SuspendLayout()
lblAbfNr_Err.Visible = False lblAbfNr_Err.Visible = False
' lblAtrAufschubEustTxt.Visible = False ' lblAtrAufschubEustTxt.Visible = False
@@ -1508,11 +1518,11 @@ Public Class frmSendungsdetailsNEU
'SAVE_ME ??????!!!!!!! 'SAVE_ME ??????!!!!!!!
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
ResumeLayout()
loaded = True loaded = True
' Me.Enabled = True ' Me.Enabled = True
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default