neu

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyComboBox.vb

@@ -19,6 +19,7 @@ Public Class MyComboBox
     End Sub
     Sub fillWithSQL(sqlstr As String, Optional showValueInText As Boolean = True, Optional conn As String = "SDL", Optional firstEmpty As Boolean = False, Optional clearList As Boolean = True)
         fillWithMyListItem((New SQL).loadCboBySqlWithListItem(sqlstr, showValueInText, conn), firstEmpty, clearList)
+        _TRANSLATE()
     End Sub
 
     Public Property _value As String
@@ -134,5 +135,45 @@ Public Class MyComboBox
 
         '  MsgBox(Me._value)
     End Sub
+
+
+    Public Sub _TRANSLATE()
+        Try
+
+            If VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "" Then Exit Sub
+        If VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "DE" Then Exit Sub
+
+        Dim lanTxtAll = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = Me.FindForm.Name And x.trs_control = Me.Name And x.trs_sprache = VERAG_PROG_ALLGEMEIN.cAllgemein._LAN)
+        If lanTxtAll.Count > 0 Then
+
+            Dim listItems(Me.Items.Count) As MyListItem
+            Me.Items.CopyTo(listItems, 0)
+
+                Me.Items.Clear()
+
+                For Each l In listItems
+                    If l IsNot Nothing Then
+
+                        Dim lanTxt = l.Text
+                        For Each txt In lanTxtAll
+                        If txt.trs_subControl IsNot DBNull.Value AndAlso txt.trs_subControl = l.Text Then
+                            lanTxt = txt.trs_text
+                        End If
+                    Next
+                    '   Dim lanTxt = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.Find(Function(x) x.trs_object = Me.FindForm.Name And x.trs_control = Me.Name And x.trs_sprache = VERAG_PROG_ALLGEMEIN.cAllgemein._LAN And (x.trs_subControl IsNot DBNull.Value AndAlso x.trs_subControl = l.Text))
+                    '  MsgBox(If(lanTxt Is Nothing, "noth " & Me.Name, lanTxt.trs_text))
+                    Me.Items.Add(New MyListItem(lanTxt, l.Value))
+
+                    End If
+                Next
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+    End Sub
+
+
+
 End Class
 

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyDatagridview.vb

@@ -134,6 +134,7 @@ Public Class MyDatagridview
     Public Sub LOAD(Optional showErr As Boolean = False, Optional ByRef errOccured As Boolean = False)
         If SQL_STR <> "" Then
             Me.DataSource = SQL.loadDgvBySql_Param(SQL_STR, CONN_ART, , SQL_PARAM, showErr, errOccured)
+            Me._TRANSLATE()
         End If
     End Sub
 
@@ -291,4 +292,28 @@ Public Class MyDatagridview
     End Function
 
 #End Region
+
+
+
+    Public Sub _TRANSLATE()
+        Try
+
+            If VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "" Then Exit Sub
+            If VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "DE" Then Exit Sub
+
+            Dim lanTxtAll = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = Me.FindForm.Name And x.trs_control = Me.Name And x.trs_sprache = VERAG_PROG_ALLGEMEIN.cAllgemein._LAN)
+            If lanTxtAll.Count > 0 Then
+                For Each txt In lanTxtAll
+                    If Me.Columns(txt.trs_subControl) IsNot Nothing Then
+                        Me.Columns(txt.trs_subControl).HeaderText = txt.trs_text
+                    End If
+                Next
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+    End Sub
+
+
 End Class