AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

15.06 JJ für MS

Browse Source
This commit is contained in:
SchreiberM
2016-06-15 11:07:47 +02:00
parent 621a7f0fff
commit 6a708d29e4
10 changed files with 325 additions and 551 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
app/DD-Record-Organiser/frmMain.vb
View File

@@ -420,16 +420,21 @@ Public Class frmMain
End Sub
Private Sub SetBackgroundImage()
Dim SQL As String = "SELECT BACKGROUND_IMAGE FROM TBDD_MODULES WHERE NAME = 'Record-Organizer'"
Dim bimage() As Byte = ClassDatabase.Execute_Scalar(SQL)
Try
Dim SQL As String = "SELECT BACKGROUND_IMAGE FROM TBDD_MODULES WHERE NAME = 'Record-Organizer'"
Dim bimage() As Byte = ClassDatabase.Execute_Scalar(SQL)
If Not IsDBNull(bimage) Then
If Not IsDBNull(bimage) Then
Dim image As Bitmap = ByteArrayToBitmap(bimage)
Me.BackgroundImage = image
Me.BackgroundImageLayout = ImageLayout.Center
Dim image As Bitmap = ByteArrayToBitmap(bimage)
Me.BackgroundImage = image
Me.BackgroundImageLayout = ImageLayout.Center
End If
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Load BackgroundImage: " & ex.Message)
End Try
End Sub
Sub Refresh_TaskReminder()