Initial
This commit is contained in:
483
EDOKA/Backup/EDEX/Serienbriefe/Controls/ucnoedit.vb
Normal file
483
EDOKA/Backup/EDEX/Serienbriefe/Controls/ucnoedit.vb
Normal file
@@ -0,0 +1,483 @@
|
||||
Public Class ucnoedit
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
'UserControl überschreibt den Löschvorgang zum Bereinigen der Komponentenliste.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents grpUsed As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents usedlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents GrpIDV As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents idvwerteList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
|
||||
Friend WithEvents mnuposdoc As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents verklist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents mnulink1 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu
|
||||
Friend WithEvents mnulink2 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents ContextMenu3 As System.Windows.Forms.ContextMenu
|
||||
Friend WithEvents mnuDelVerk As System.Windows.Forms.MenuItem
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(ucnoedit))
|
||||
Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
||||
Dim GridLines2 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
||||
Dim GridLines3 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
||||
Me.grpUsed = New System.Windows.Forms.GroupBox()
|
||||
Me.usedlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
|
||||
Me.mnuposdoc = New System.Windows.Forms.MenuItem()
|
||||
Me.mnulink1 = New System.Windows.Forms.MenuItem()
|
||||
Me.GrpIDV = New System.Windows.Forms.GroupBox()
|
||||
Me.idvwerteList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.ContextMenu2 = New System.Windows.Forms.ContextMenu()
|
||||
Me.mnulink2 = New System.Windows.Forms.MenuItem()
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.verklist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.ContextMenu3 = New System.Windows.Forms.ContextMenu()
|
||||
Me.mnuDelVerk = New System.Windows.Forms.MenuItem()
|
||||
Me.grpUsed.SuspendLayout()
|
||||
CType(Me.usedlist, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.GrpIDV.SuspendLayout()
|
||||
CType(Me.idvwerteList, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
CType(Me.verklist, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'grpUsed
|
||||
'
|
||||
Me.grpUsed.Controls.AddRange(New System.Windows.Forms.Control() {Me.usedlist})
|
||||
Me.grpUsed.Location = New System.Drawing.Point(8, 8)
|
||||
Me.grpUsed.Name = "grpUsed"
|
||||
Me.grpUsed.Size = New System.Drawing.Size(336, 152)
|
||||
Me.grpUsed.TabIndex = 3
|
||||
Me.grpUsed.TabStop = False
|
||||
Me.grpUsed.Text = "Platzhalter im Dokument"
|
||||
'
|
||||
'usedlist
|
||||
'
|
||||
Me.usedlist.AllowDelete = True
|
||||
Me.usedlist.AllowFilter = True
|
||||
Me.usedlist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
||||
Me.usedlist.AllowSort = True
|
||||
Me.usedlist.AlternatingRows = True
|
||||
Me.usedlist.CaptionHeight = 17
|
||||
Me.usedlist.CollapseColor = System.Drawing.Color.Black
|
||||
Me.usedlist.ContextMenu = Me.ContextMenu1
|
||||
Me.usedlist.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.usedlist.DataChanged = False
|
||||
Me.usedlist.DeadAreaBackColor = System.Drawing.Color.Empty
|
||||
Me.usedlist.ExpandColor = System.Drawing.Color.Black
|
||||
Me.usedlist.FetchRowStyles = True
|
||||
Me.usedlist.FilterBar = True
|
||||
Me.usedlist.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.usedlist.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
|
||||
Me.usedlist.Location = New System.Drawing.Point(3, 16)
|
||||
Me.usedlist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
||||
Me.usedlist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
|
||||
Me.usedlist.Name = "usedlist"
|
||||
Me.usedlist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.usedlist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.usedlist.PreviewInfo.ZoomFactor = 75
|
||||
Me.usedlist.PrintInfo.ShowOptionsDialog = False
|
||||
Me.usedlist.RecordSelectorWidth = 16
|
||||
GridLines1.Color = System.Drawing.Color.DarkGray
|
||||
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
||||
Me.usedlist.RowDivider = GridLines1
|
||||
Me.usedlist.RowHeight = 15
|
||||
Me.usedlist.RowSubDividerColor = System.Drawing.Color.DarkGray
|
||||
Me.usedlist.ScrollTips = True
|
||||
Me.usedlist.Size = New System.Drawing.Size(325, 128)
|
||||
Me.usedlist.TabIndex = 28
|
||||
Me.usedlist.Text = "C1TrueDBGrid1"
|
||||
Me.usedlist.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
||||
"r""><Data>Style11{}Style12{}Style13{}Style5{}Style4{}Style7{}Style6{}EvenRow{Back" & _
|
||||
"Color:White;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Heading{Wrap:" & _
|
||||
"True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:" & _
|
||||
"Control;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Filte" & _
|
||||
"rBar{BackColor:255, 255, 192;}OddRow{BackColor:224, 224, 224;}Footer{}Caption{Al" & _
|
||||
"ignHorz:Center;}Style27{}Normal{BackColor:Control;}Style26{}HighlightRow{ForeCol" & _
|
||||
"or:HighlightText;BackColor:Highlight;}Style10{AlignHorz:Near;}Editor{}RecordSele" & _
|
||||
"ctor{AlignImage:Center;}Style9{}Style8{}Style3{}Style2{}Group{BackColor:ControlD" & _
|
||||
"ark;Border:None,,0, 0, 0, 0;AlignVert:Center;}Style1{}</Data></Styles><Splits><C" & _
|
||||
"1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""1" & _
|
||||
"7"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" Filter" & _
|
||||
"Bar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWid" & _
|
||||
"th=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 321," & _
|
||||
" 124</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Heading"" me=""St" & _
|
||||
"yle10"" /><EditorStyle parent=""Editor"" me=""Style2"" /><EvenRowStyle parent=""EvenRo" & _
|
||||
"w"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style27"" /><FooterStyle " & _
|
||||
"parent=""Footer"" me=""Style4"" /><GroupStyle parent=""Group"" me=""Style12"" /><Heading" & _
|
||||
"Style parent=""Heading"" me=""Style3"" /><HighLightRowStyle parent=""HighlightRow"" me" & _
|
||||
"=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style6"" /><OddRowStyle parent=""" & _
|
||||
"OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" " & _
|
||||
"/><SelectedStyle parent=""Selected"" me=""Style5"" /><Style parent=""Normal"" me=""Styl" & _
|
||||
"e1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=" & _
|
||||
"""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Foo" & _
|
||||
"ter"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inacti" & _
|
||||
"ve"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" " & _
|
||||
"/><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow""" & _
|
||||
" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelect" & _
|
||||
"or"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group""" & _
|
||||
" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Mod" & _
|
||||
"ified</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 321, " & _
|
||||
"124</ClientArea></Blob>"
|
||||
'
|
||||
'ContextMenu1
|
||||
'
|
||||
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuposdoc, Me.mnulink1})
|
||||
'
|
||||
'mnuposdoc
|
||||
'
|
||||
Me.mnuposdoc.Index = 0
|
||||
Me.mnuposdoc.Text = "Cursor &im Dokument positionieren"
|
||||
'
|
||||
'mnulink1
|
||||
'
|
||||
Me.mnulink1.Index = 1
|
||||
Me.mnulink1.Text = "&Platzhalter mit dok. spez. Wert verknüpfen"
|
||||
'
|
||||
'GrpIDV
|
||||
'
|
||||
Me.GrpIDV.Controls.AddRange(New System.Windows.Forms.Control() {Me.idvwerteList})
|
||||
Me.GrpIDV.Location = New System.Drawing.Point(8, 168)
|
||||
Me.GrpIDV.Name = "GrpIDV"
|
||||
Me.GrpIDV.Size = New System.Drawing.Size(336, 104)
|
||||
Me.GrpIDV.TabIndex = 4
|
||||
Me.GrpIDV.TabStop = False
|
||||
Me.GrpIDV.Text = "Verfügbare dokumentspezifische Werte"
|
||||
'
|
||||
'idvwerteList
|
||||
'
|
||||
Me.idvwerteList.AllowDelete = True
|
||||
Me.idvwerteList.AllowFilter = True
|
||||
Me.idvwerteList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
||||
Me.idvwerteList.AllowSort = True
|
||||
Me.idvwerteList.AlternatingRows = True
|
||||
Me.idvwerteList.CaptionHeight = 17
|
||||
Me.idvwerteList.CollapseColor = System.Drawing.Color.Black
|
||||
Me.idvwerteList.ContextMenu = Me.ContextMenu2
|
||||
Me.idvwerteList.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.idvwerteList.DataChanged = False
|
||||
Me.idvwerteList.DeadAreaBackColor = System.Drawing.Color.Empty
|
||||
Me.idvwerteList.ExpandColor = System.Drawing.Color.Black
|
||||
Me.idvwerteList.FetchRowStyles = True
|
||||
Me.idvwerteList.FilterBar = True
|
||||
Me.idvwerteList.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.idvwerteList.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
|
||||
Me.idvwerteList.Location = New System.Drawing.Point(3, 16)
|
||||
Me.idvwerteList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
||||
Me.idvwerteList.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
|
||||
Me.idvwerteList.Name = "idvwerteList"
|
||||
Me.idvwerteList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.idvwerteList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.idvwerteList.PreviewInfo.ZoomFactor = 75
|
||||
Me.idvwerteList.PrintInfo.ShowOptionsDialog = False
|
||||
Me.idvwerteList.RecordSelectorWidth = 16
|
||||
GridLines2.Color = System.Drawing.Color.DarkGray
|
||||
GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
||||
Me.idvwerteList.RowDivider = GridLines2
|
||||
Me.idvwerteList.RowHeight = 15
|
||||
Me.idvwerteList.RowSubDividerColor = System.Drawing.Color.DarkGray
|
||||
Me.idvwerteList.ScrollTips = True
|
||||
Me.idvwerteList.Size = New System.Drawing.Size(325, 80)
|
||||
Me.idvwerteList.TabIndex = 28
|
||||
Me.idvwerteList.Text = "C1TrueDBGrid1"
|
||||
Me.idvwerteList.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
||||
"r""><Data>Style11{}Style12{}Style13{}Style5{}Style4{}Style7{}Style6{}EvenRow{Back" & _
|
||||
"Color:White;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Heading{Wrap:" & _
|
||||
"True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert" & _
|
||||
":Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Filte" & _
|
||||
"rBar{BackColor:255, 255, 192;}Footer{}Caption{AlignHorz:Center;}Editor{}Normal{B" & _
|
||||
"ackColor:Control;}Style27{}Style26{}HighlightRow{ForeColor:HighlightText;BackCol" & _
|
||||
"or:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage:" & _
|
||||
"Center;}Style9{}Style8{}Style3{}Style2{}Group{AlignVert:Center;Border:None,,0, 0" & _
|
||||
", 0, 0;BackColor:ControlDark;}Style10{AlignHorz:Near;}</Data></Styles><Splits><C" & _
|
||||
"1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""1" & _
|
||||
"7"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" Filter" & _
|
||||
"Bar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWid" & _
|
||||
"th=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 321," & _
|
||||
" 76</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Heading"" me=""Sty" & _
|
||||
"le10"" /><EditorStyle parent=""Editor"" me=""Style2"" /><EvenRowStyle parent=""EvenRow" & _
|
||||
""" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style27"" /><FooterStyle p" & _
|
||||
"arent=""Footer"" me=""Style4"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingS" & _
|
||||
"tyle parent=""Heading"" me=""Style3"" /><HighLightRowStyle parent=""HighlightRow"" me=" & _
|
||||
"""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style6"" /><OddRowStyle parent=""O" & _
|
||||
"ddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /" & _
|
||||
"><SelectedStyle parent=""Selected"" me=""Style5"" /><Style parent=""Normal"" me=""Style" & _
|
||||
"1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""" & _
|
||||
"Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Foot" & _
|
||||
"er"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactiv" & _
|
||||
"e"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /" & _
|
||||
"><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" " & _
|
||||
"/><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelecto" & _
|
||||
"r"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" " & _
|
||||
"/></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Modi" & _
|
||||
"fied</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 321, 7" & _
|
||||
"6</ClientArea></Blob>"
|
||||
'
|
||||
'ContextMenu2
|
||||
'
|
||||
Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnulink2})
|
||||
'
|
||||
'mnulink2
|
||||
'
|
||||
Me.mnulink2.Index = 0
|
||||
Me.mnulink2.Text = "&Platzhalter mit dok. spez. Wert verknüpfen"
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.verklist})
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(8, 280)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(336, 144)
|
||||
Me.GroupBox1.TabIndex = 5
|
||||
Me.GroupBox1.TabStop = False
|
||||
Me.GroupBox1.Text = "Zugeordnete, dokumentspezifische Werte"
|
||||
'
|
||||
'verklist
|
||||
'
|
||||
Me.verklist.AllowDelete = True
|
||||
Me.verklist.AllowFilter = True
|
||||
Me.verklist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
||||
Me.verklist.AllowSort = True
|
||||
Me.verklist.AlternatingRows = True
|
||||
Me.verklist.CaptionHeight = 17
|
||||
Me.verklist.CollapseColor = System.Drawing.Color.Black
|
||||
Me.verklist.ContextMenu = Me.ContextMenu3
|
||||
Me.verklist.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.verklist.DataChanged = False
|
||||
Me.verklist.DeadAreaBackColor = System.Drawing.Color.Empty
|
||||
Me.verklist.ExpandColor = System.Drawing.Color.Black
|
||||
Me.verklist.FetchRowStyles = True
|
||||
Me.verklist.FilterBar = True
|
||||
Me.verklist.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.verklist.Images.Add(CType(resources.GetObject("resource.Images2"), System.Drawing.Bitmap))
|
||||
Me.verklist.Location = New System.Drawing.Point(3, 16)
|
||||
Me.verklist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
||||
Me.verklist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
|
||||
Me.verklist.Name = "verklist"
|
||||
Me.verklist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.verklist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.verklist.PreviewInfo.ZoomFactor = 75
|
||||
Me.verklist.PrintInfo.ShowOptionsDialog = False
|
||||
Me.verklist.RecordSelectorWidth = 16
|
||||
GridLines3.Color = System.Drawing.Color.DarkGray
|
||||
GridLines3.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
||||
Me.verklist.RowDivider = GridLines3
|
||||
Me.verklist.RowHeight = 15
|
||||
Me.verklist.RowSubDividerColor = System.Drawing.Color.DarkGray
|
||||
Me.verklist.ScrollTips = True
|
||||
Me.verklist.Size = New System.Drawing.Size(325, 120)
|
||||
Me.verklist.TabIndex = 28
|
||||
Me.verklist.Text = "C1TrueDBGrid1"
|
||||
Me.verklist.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
||||
"r""><Data>Style11{}Style12{}Style13{}Style5{}Style4{}Style7{}Style6{}EvenRow{Back" & _
|
||||
"Color:White;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Heading{Wrap:" & _
|
||||
"True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:" & _
|
||||
"Control;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Filte" & _
|
||||
"rBar{BackColor:255, 255, 192;}OddRow{BackColor:224, 224, 224;}Footer{}Caption{Al" & _
|
||||
"ignHorz:Center;}Style27{}Normal{BackColor:Control;}Style26{}HighlightRow{ForeCol" & _
|
||||
"or:HighlightText;BackColor:Highlight;}Style10{AlignHorz:Near;}Editor{}RecordSele" & _
|
||||
"ctor{AlignImage:Center;}Style9{}Style8{}Style3{}Style2{}Group{BackColor:ControlD" & _
|
||||
"ark;Border:None,,0, 0, 0, 0;AlignVert:Center;}Style1{}</Data></Styles><Splits><C" & _
|
||||
"1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""1" & _
|
||||
"7"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" Filter" & _
|
||||
"Bar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWid" & _
|
||||
"th=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 321," & _
|
||||
" 116</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Heading"" me=""St" & _
|
||||
"yle10"" /><EditorStyle parent=""Editor"" me=""Style2"" /><EvenRowStyle parent=""EvenRo" & _
|
||||
"w"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style27"" /><FooterStyle " & _
|
||||
"parent=""Footer"" me=""Style4"" /><GroupStyle parent=""Group"" me=""Style12"" /><Heading" & _
|
||||
"Style parent=""Heading"" me=""Style3"" /><HighLightRowStyle parent=""HighlightRow"" me" & _
|
||||
"=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style6"" /><OddRowStyle parent=""" & _
|
||||
"OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" " & _
|
||||
"/><SelectedStyle parent=""Selected"" me=""Style5"" /><Style parent=""Normal"" me=""Styl" & _
|
||||
"e1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=" & _
|
||||
"""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Foo" & _
|
||||
"ter"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inacti" & _
|
||||
"ve"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" " & _
|
||||
"/><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow""" & _
|
||||
" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelect" & _
|
||||
"or"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group""" & _
|
||||
" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Mod" & _
|
||||
"ified</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 321, " & _
|
||||
"116</ClientArea></Blob>"
|
||||
'
|
||||
'ContextMenu3
|
||||
'
|
||||
Me.ContextMenu3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuDelVerk})
|
||||
'
|
||||
'mnuDelVerk
|
||||
'
|
||||
Me.mnuDelVerk.Index = 0
|
||||
Me.mnuDelVerk.Text = "&Verknüpfung löschen"
|
||||
'
|
||||
'ucnoedit
|
||||
'
|
||||
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox1, Me.GrpIDV, Me.grpUsed})
|
||||
Me.Name = "ucnoedit"
|
||||
Me.Size = New System.Drawing.Size(352, 432)
|
||||
Me.grpUsed.ResumeLayout(False)
|
||||
CType(Me.usedlist, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.GrpIDV.ResumeLayout(False)
|
||||
CType(Me.idvwerteList, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.GroupBox1.ResumeLayout(False)
|
||||
CType(Me.verklist, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "Deklarationen"
|
||||
Dim StdFelder As New DataTable()
|
||||
Dim IDVFelder As New DataTable()
|
||||
Dim USEDFelder As New DataTable()
|
||||
Dim VerkFelder As New DataTable()
|
||||
|
||||
Public Event OnGetStandardvorlagenfelder(ByRef list As DataTable)
|
||||
Public Event OnGetIDVFelder(ByRef list As DataTable)
|
||||
Public Event OnGetUsedFelder(ByRef list As DataTable)
|
||||
Public Event OnGetVerknuepfteFelder(ByRef list As DataTable)
|
||||
|
||||
Public Event OnInsert_TM(ByVal TMName As String, ByVal isfield As Boolean)
|
||||
Public Event OnGoto_TM(ByVal TMName As String, ByVal isfield As Boolean)
|
||||
Public Event OnDelete_TM(ByVal TMName As String, ByVal isfield As Boolean)
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Private Sub ucnoedit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Dim i As Integer
|
||||
|
||||
RaiseEvent OnGetUsedFelder(Me.USEDFelder)
|
||||
Me.usedlist.DataSource = Me.USEDFelder
|
||||
Me.usedlist.DataMember = Me.USEDFelder.TableName
|
||||
DivFnkt.SpaltenTitel_Aktualisieren(Me.usedlist, Me.USEDFelder, "edex_sb_vorlagenfelder")
|
||||
|
||||
'With Me.usedlist
|
||||
' For i = 0 To .Splits(0).DisplayColumns.Count - 1
|
||||
' .Splits(0).DisplayColumns(i).Visible = False
|
||||
' Next
|
||||
' .Splits(0).DisplayColumns(0).Visible = True
|
||||
' .Splits(0).DisplayColumns(0).Width = Me.usedlist.Width * 0.1
|
||||
' .Splits(0).DisplayColumns(1).Visible = True
|
||||
' .Splits(0).DisplayColumns(1).Width = Me.usedlist.Width * 0.8
|
||||
'End With
|
||||
|
||||
|
||||
RaiseEvent OnGetIDVFelder(Me.IDVFelder)
|
||||
Me.idvwerteList.DataSource = Me.IDVFelder
|
||||
Me.idvwerteList.DataMember = Me.IDVFelder.TableName
|
||||
DivFnkt.SpaltenTitel_Aktualisieren(Me.idvwerteList, Me.IDVFelder, "edex_sb_verk")
|
||||
'With Me.idvwerteList
|
||||
' For i = 0 To .Splits(0).DisplayColumns.Count - 1
|
||||
' .Splits(0).DisplayColumns(i).Visible = False
|
||||
' Next
|
||||
' .Splits(0).DisplayColumns(0).Visible = True
|
||||
' .Splits(0).DisplayColumns(0).Width = Me.usedlist.Width * 0.9
|
||||
' .Splits(0).DisplayColumns(1).Visible = False
|
||||
'End With
|
||||
|
||||
RaiseEvent OnGetVerknuepfteFelder(Me.VerkFelder)
|
||||
Me.verklist.DataSource = Me.VerkFelder
|
||||
Me.verklist.DataMember = Me.VerkFelder.TableName
|
||||
DivFnkt.SpaltenTitel_Aktualisieren(Me.verklist, Me.VerkFelder, "edex_sb_verk")
|
||||
'With Me.verklist
|
||||
' For i = 0 To .Splits(0).DisplayColumns.Count - 1
|
||||
' .Splits(0).DisplayColumns(i).Visible = False
|
||||
' Next
|
||||
' .Splits(0).DisplayColumns(0).Visible = True
|
||||
' .Splits(0).DisplayColumns(0).Width = Me.usedlist.Width * 0.45
|
||||
' .Splits(0).DisplayColumns(1).Visible = True
|
||||
' .Splits(0).DisplayColumns(1).Width = Me.usedlist.Width * 0.45
|
||||
'End With
|
||||
End Sub
|
||||
|
||||
Private Sub mnuposdoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuposdoc.Click
|
||||
If Me.usedlist.Columns("Feldname").Text <> "" Then
|
||||
RaiseEvent OnGoto_TM(Me.usedlist.Columns("feldname").Text, True)
|
||||
Exit Sub
|
||||
End If
|
||||
If Me.usedlist.Columns("beginntextmarke").Text <> "" Then
|
||||
RaiseEvent OnGoto_TM(Me.usedlist.Columns("beginntextmarke").Text, False)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If Me.usedlist.Columns("endetextmarke").Text <> "" Then
|
||||
RaiseEvent OnGoto_TM(Me.usedlist.Columns("endetextmarke").Text, False)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ContextMenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup, ContextMenu2.Popup
|
||||
If Me.USEDFelder.Rows.Count = 0 Then
|
||||
Me.mnuposdoc.Enabled = False
|
||||
Me.mnulink1.Enabled = False
|
||||
Me.mnulink2.Enabled = False
|
||||
Else
|
||||
Me.mnuposdoc.Enabled = True
|
||||
Me.mnulink1.Enabled = True
|
||||
Me.mnulink2.Enabled = True
|
||||
End If
|
||||
|
||||
If Me.IDVFelder.Rows.Count = 0 Then
|
||||
Me.mnulink1.Enabled = False
|
||||
Me.mnulink2.Enabled = False
|
||||
Else
|
||||
Me.mnulink1.Enabled = True
|
||||
Me.mnulink2.Enabled = True
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub mnulink1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnulink1.Click, mnulink2.Click
|
||||
Dim row As DataRow
|
||||
row = Me.VerkFelder.NewRow
|
||||
row.Item(0) = Me.idvwerteList.Columns(0).Text
|
||||
row.Item(1) = Me.usedlist.Columns(1).Text
|
||||
row.Item(2) = Me.usedlist.Columns(0).Text
|
||||
Me.VerkFelder.Rows.Add(row)
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub ContextMenu3_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu3.Popup
|
||||
If Me.VerkFelder.Rows.Count = 0 Then
|
||||
Me.mnuDelVerk.Enabled = False
|
||||
Else
|
||||
Me.mnuDelVerk.Enabled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub mnuDelVerk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDelVerk.Click
|
||||
Me.verklist.Delete()
|
||||
Me.verklist.UpdateData()
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user