new
This commit is contained in:
@@ -154,18 +154,18 @@ Public Class MyComboBox
|
||||
|
||||
Me.Items.Clear()
|
||||
|
||||
For Each l In listItems
|
||||
If l IsNot Nothing Then
|
||||
For Each li In listItems
|
||||
If li IsNot Nothing Then
|
||||
|
||||
Dim lanTxt = l.Text
|
||||
Dim lanTxt = li.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))
|
||||
If txt.trs_subControl IsNot DBNull.Value AndAlso txt.trs_subControl = li.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, li.Value))
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
@@ -22,8 +22,9 @@ Partial Class frmPDFScanList
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
|
||||
Me.cntxtMulti = New System.Windows.Forms.ContextMenuStrip()
|
||||
Me.cntxtMulti = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.DateiScannenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
|
||||
|
||||
@@ -10,10 +10,8 @@ Public Class frmPDFScanList
|
||||
|
||||
Public Event FileAdded(ScanID As Integer, path As String, name As String)
|
||||
Sub New()
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -28,22 +28,29 @@ Partial Class usrcntlUnterposEntry
|
||||
'
|
||||
'txtAnzahl
|
||||
'
|
||||
Me.txtAnzahl._DateTimeOnly = False
|
||||
Me.txtAnzahl._numbersOnly = True
|
||||
Me.txtAnzahl._numbersOnlyKommastellen = ""
|
||||
Me.txtAnzahl._Prozent = False
|
||||
Me.txtAnzahl._ShortDateNew = False
|
||||
Me.txtAnzahl._TimeOnly = False
|
||||
Me.txtAnzahl._value = Nothing
|
||||
Me.txtAnzahl._ShortDateOnly = False
|
||||
Me.txtAnzahl._TimeOnly = False
|
||||
Me.txtAnzahl._value = ""
|
||||
Me.txtAnzahl._Waehrung = False
|
||||
Me.txtAnzahl._WaehrungZeichen = True
|
||||
Me.txtAnzahl.Location = New System.Drawing.Point(3, 0)
|
||||
Me.txtAnzahl.MaxLength = 2
|
||||
Me.txtAnzahl.MaxLength = 4
|
||||
Me.txtAnzahl.MaxLineLength = -1
|
||||
Me.txtAnzahl.MaxLines_Warning = ""
|
||||
Me.txtAnzahl.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAnzahl.Name = "txtAnzahl"
|
||||
Me.txtAnzahl.Size = New System.Drawing.Size(28, 20)
|
||||
Me.txtAnzahl.Size = New System.Drawing.Size(41, 20)
|
||||
Me.txtAnzahl.TabIndex = 106
|
||||
'
|
||||
'lblBezeichnung
|
||||
'
|
||||
Me.lblBezeichnung.AutoSize = True
|
||||
Me.lblBezeichnung.Location = New System.Drawing.Point(37, 3)
|
||||
Me.lblBezeichnung.Location = New System.Drawing.Point(45, 3)
|
||||
Me.lblBezeichnung.Name = "lblBezeichnung"
|
||||
Me.lblBezeichnung.Size = New System.Drawing.Size(28, 13)
|
||||
Me.lblBezeichnung.TabIndex = 107
|
||||
|
||||
Reference in New Issue
Block a user