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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-12-16 10:02:49 +01:00
parent 3bc1c8a309
commit 1c8b5afac9
19 changed files with 2061 additions and 1893 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
VERAG_PROG_ALLGEMEIN/cAllgemein.vb
View File

@@ -43,7 +43,7 @@ Public Class cAllgemein
Public Shared BENUTZER_BERECHTIGUNGS_GRUPPEN As cBerechtigungenBenutzerGruppenZuordnung_List = Nothing
Public Shared PARAMS As cParameterList = Nothing
Public Shared TRANSLATE As cTranslate_LIST = Nothing
Public Shared _LAN As String = "" '"EN"
Public Shared _LAN As String = "DE" '"EN"
Public Shared SESSION As New cSession
@@ -57,6 +57,7 @@ Public Class cAllgemein
If MITARBEITER.LOAD(USRID) Then
USR_NNAME = MITARBEITER.mit_nname
USR_VNAME = MITARBEITER.mit_vname
_LAN = MITARBEITER.mit_sprache
USR_HrFrNAME = ""
Select Case MITARBEITER.mit_geschlecht
@@ -129,17 +130,57 @@ Public Class cAllgemein
'o... Form
's... SubContainer
'c... Control
' MsgBox(o.GetType.ToString & " - " & o.name)
Dim TextTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = o.Name And x.trs_sprache = lan)
If TextTmp IsNot Nothing Then
For Each TXT As cTranslate In TextTmp
Dim found = o.Controls.Find(TXT.trs_control, True)
' MsgBox(TXT.trs_control)
If found IsNot Nothing AndAlso found.Count > 0 Then
' MsgBox("JA")
Dim obj As System.Windows.Forms.Control = found(0)
If obj IsNot Nothing Then
If (TypeOf obj Is System.Windows.Forms.Label) Then
DirectCast(obj, System.Windows.Forms.Label).Text = TXT.trs_text
End If
If (TypeOf obj Is System.Windows.Forms.Button) Or (TypeOf obj Is VERAG_PROG_ALLGEMEIN.FlatButton) Then
DirectCast(obj, System.Windows.Forms.Button).Text = TXT.trs_text
End If
If (TypeOf obj Is System.Windows.Forms.TabPage) Then
DirectCast(obj, System.Windows.Forms.TabPage).Text = TXT.trs_text
End If
If (TypeOf obj Is System.Windows.Forms.RadioButton) Or (TypeOf obj Is VERAG_PROG_ALLGEMEIN.MyRadioButton) Then
DirectCast(obj, System.Windows.Forms.RadioButton).Text = TXT.trs_text
End If
If (TypeOf obj Is System.Windows.Forms.GroupBox) Then
DirectCast(obj, System.Windows.Forms.GroupBox).Text = TXT.trs_text
End If
'If (TypeOf obj Is System.Windows.Forms.TabControl) Then -->in Tabpage geregelt
' For Each tb As System.Windows.Forms.TabPage In DirectCast(obj, System.Windows.Forms.TabControl).TabPages
' If tb.Name = TXT.trs_subControl Then
' tb.Text = TXT.trs_text
' End If
' Next
'End If
If (TypeOf obj Is System.Windows.Forms.ComboBox) Or (TypeOf obj Is VERAG_PROG_ALLGEMEIN.MyComboBox) Then
'DirectCast(obj, System.Windows.Forms.Label).Text = TXT.trs_text
End If
'If (TypeOf obj Is VERAG_PROG_ALLGEMEIN.MyComboBox) Then
' Dim cboItems = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = o.Name And x.trs_sprache = lan And x.trs_control = TXT.trs_control)
' For Each item As VERAG_PROG_ALLGEMEIN.MyListItem In DirectCast(obj, VERAG_PROG_ALLGEMEIN.MyComboBox).Items
' For Each sitem As cTranslate In cboItems
' If item.Text = sitem.trs_subControl Then
' Dim index = DirectCast(obj, VERAG_PROG_ALLGEMEIN.MyComboBox).Items(0).Equals
' DirectCast(DirectCast(obj, VERAG_PROG_ALLGEMEIN.MyComboBox).Items(item), VERAG_PROG_ALLGEMEIN.MyListItem).Text = sitem.trs_text
' End If
' Next
' Next
'End If
End If
End If
Next