This commit is contained in:
SchreiberM 2016-11-09 11:15:40 +01:00
commit 5cb29f2d7d

View File

@ -324,6 +324,8 @@ Public Class frmMain
Dim bimg() As Byte = row.Item("MENU_IMG") Dim bimg() As Byte = row.Item("MENU_IMG")
Dim bitmap As Bitmap = ByteArrayToBitmap(bimg) Dim bitmap As Bitmap = ByteArrayToBitmap(bimg)
image2 = bitmap image2 = bitmap
Else
image2 = My.Resources.changechartlegendalignment_32x32
End If End If
Dim title = row.Item("FORM_TITLE") Dim title = row.Item("FORM_TITLE")
If title = "CAPTION (OBJ) NOT TRANSLATED" Then If title = "CAPTION (OBJ) NOT TRANSLATED" Then
@ -348,6 +350,7 @@ Public Class frmMain
AddHandler item.ItemClick, AddressOf ToolbarButtonItemClick AddHandler item.ItemClick, AddressOf ToolbarButtonItemClick
groupQuickAccessForm.ItemLinks.Add(item) groupQuickAccessForm.ItemLinks.Add(item)
image2 = Nothing
Next Next
End If End If