From 27a757f8d016bef1cdb56a28d78662e5cbb66ac9 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Mon, 13 Sep 2021 12:50:40 +0200 Subject: [PATCH] Common: Show error message when attributes could not be loaded --- .../ObjectPropertyDialog/frmObjectPropertyDialog.vb | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb b/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb index 133116ac..68968ad0 100644 --- a/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb +++ b/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb @@ -170,6 +170,10 @@ Public Class frmObjectPropertyDialog Dim oAttributes = Await GetAttributesForBusinessEntity(oEntityId) + If oAttributes.Count = 0 Then + MsgBox($"Es konnten keine Attribute für das Objekt '{_ObjectId}' geladen werden!", MsgBoxStyle.Critical, Text) + End If + For Each oAttribute As Attribute In oAttributes Dim oControl = _Controls.GetControlForAttribute(oAttribute, True) Dim oItem As LayoutControlItem = AttributeLayout.AddItem() @@ -230,4 +234,8 @@ Public Class frmObjectPropertyDialog Return False End Try End Function + + Private Sub TabFormControl1_Click(sender As Object, e As EventArgs) Handles TabFormControl1.Click + + End Sub End Class \ No newline at end of file