Partial Class frmMain Inherits DevExpress.XtraBars.Ribbon.RibbonForm 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Wird vom Windows Form-Designer benötigt. Private components As System.ComponentModel.IContainer 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain)) Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.txtPW = New System.Windows.Forms.TextBox() Me.txtDomain = New System.Windows.Forms.TextBox() Me.txtWMServer = New System.Windows.Forms.TextBox() Me.txtUser = New System.Windows.Forms.TextBox() Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() Me.BarStaticinfo = New DevExpress.XtraBars.BarStaticItem() Me.bsiWMConnect = New DevExpress.XtraBars.BarStaticItem() Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() Me.btnStartTest = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonGroupTest = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonGroupWindream = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonGroupMisc = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.Label6 = New System.Windows.Forms.Label() Me.txtWMRelpath = New System.Windows.Forms.TextBox() Me.Label5 = New System.Windows.Forms.Label() Me.txtWMDrive = New System.Windows.Forms.TextBox() Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.Label7 = New System.Windows.Forms.Label() Me.txtCommands = New System.Windows.Forms.TextBox() Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.TextBox2 = New System.Windows.Forms.TextBox() Me.Label8 = New System.Windows.Forms.Label() Me.TextBox1 = New System.Windows.Forms.TextBox() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox1.SuspendLayout() Me.GroupBox3.SuspendLayout() Me.GroupBox2.SuspendLayout() Me.SuspendLayout() ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(6, 28) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(56, 13) Me.Label1.TabIndex = 5 Me.Label1.Text = "UserName" ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(6, 55) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(51, 13) Me.Label2.TabIndex = 6 Me.Label2.Text = "Passwort" ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(6, 82) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(42, 13) Me.Label3.TabIndex = 7 Me.Label3.Text = "Domain" ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(6, 109) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(60, 13) Me.Label4.TabIndex = 8 Me.Label4.Text = "WM Server" ' 'txtPW ' Me.txtPW.Location = New System.Drawing.Point(80, 52) Me.txtPW.Name = "txtPW" Me.txtPW.Size = New System.Drawing.Size(261, 21) Me.txtPW.TabIndex = 4 Me.txtPW.UseSystemPasswordChar = True ' 'txtDomain ' Me.txtDomain.Location = New System.Drawing.Point(80, 79) Me.txtDomain.Name = "txtDomain" Me.txtDomain.Size = New System.Drawing.Size(261, 21) Me.txtDomain.TabIndex = 3 ' 'txtWMServer ' Me.txtWMServer.Location = New System.Drawing.Point(80, 106) Me.txtWMServer.Name = "txtWMServer" Me.txtWMServer.Size = New System.Drawing.Size(261, 21) Me.txtWMServer.TabIndex = 2 ' 'txtUser ' Me.txtUser.Location = New System.Drawing.Point(80, 25) Me.txtUser.Name = "txtUser" Me.txtUser.Size = New System.Drawing.Size(261, 21) Me.txtUser.TabIndex = 1 ' 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarStaticinfo, Me.bsiWMConnect, Me.BarButtonItem3, Me.BarButtonItem4, Me.btnStartTest, Me.BarButtonItem5}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) Me.RibbonControl1.MaxItemId = 9 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.Size = New System.Drawing.Size(874, 158) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 ' 'BarButtonItem1 ' Me.BarButtonItem1.Caption = "Speichern" Me.BarButtonItem1.Id = 1 Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem1.Name = "BarButtonItem1" ' 'BarButtonItem2 ' Me.BarButtonItem2.Caption = "Test WMConnect" Me.BarButtonItem2.Id = 2 Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem2.Name = "BarButtonItem2" ' 'BarStaticinfo ' Me.BarStaticinfo.Id = 3 Me.BarStaticinfo.Name = "BarStaticinfo" ' 'bsiWMConnect ' Me.bsiWMConnect.Caption = "Windream connected" Me.bsiWMConnect.Id = 4 Me.bsiWMConnect.ImageOptions.SvgImage = CType(resources.GetObject("bsiWMConnect.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.bsiWMConnect.Name = "bsiWMConnect" Me.bsiWMConnect.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph Me.bsiWMConnect.Visibility = DevExpress.XtraBars.BarItemVisibility.Never ' 'BarButtonItem3 ' Me.BarButtonItem3.Caption = "Log Speicherort" Me.BarButtonItem3.Id = 5 Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem3.Name = "BarButtonItem3" ' 'BarButtonItem4 ' Me.BarButtonItem4.Caption = "Log Speicherort" Me.BarButtonItem4.Id = 6 Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItem4.Name = "BarButtonItem4" ' 'btnStartTest ' Me.btnStartTest.Caption = "Starte Test" Me.btnStartTest.Id = 7 Me.btnStartTest.ImageOptions.SvgImage = CType(resources.GetObject("btnStartTest.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.btnStartTest.Name = "btnStartTest" ' 'BarButtonItem5 ' Me.BarButtonItem5.Caption = "Datenbankverbindung konfigurieren" Me.BarButtonItem5.Id = 8 Me.BarButtonItem5.ImageOptions.SvgImage = Global.WIDIG.My.Resources.Resources.managedatasource Me.BarButtonItem5.Name = "BarButtonItem5" ' 'RibbonPage1 ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonGroupTest, Me.RibbonGroupWindream, Me.RibbonPageGroup1, Me.RibbonGroupMisc}) Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Text = "Einstellungen" ' 'RibbonGroupTest ' Me.RibbonGroupTest.Enabled = False Me.RibbonGroupTest.ItemLinks.Add(Me.btnStartTest) Me.RibbonGroupTest.Name = "RibbonGroupTest" Me.RibbonGroupTest.Text = "Test" ' 'RibbonGroupWindream ' Me.RibbonGroupWindream.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far Me.RibbonGroupWindream.Enabled = False Me.RibbonGroupWindream.ItemLinks.Add(Me.BarButtonItem1) Me.RibbonGroupWindream.ItemLinks.Add(Me.BarButtonItem2) Me.RibbonGroupWindream.Name = "RibbonGroupWindream" Me.RibbonGroupWindream.Text = "Windream Connection" ' 'RibbonPageGroup1 ' Me.RibbonPageGroup1.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem5) Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Text = "Datenbank Verbindung" ' 'RibbonGroupMisc ' Me.RibbonGroupMisc.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far Me.RibbonGroupMisc.ItemLinks.Add(Me.BarButtonItem4) Me.RibbonGroupMisc.Name = "RibbonGroupMisc" Me.RibbonGroupMisc.Text = "Weiteres" ' 'RibbonStatusBar1 ' Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticinfo) Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiWMConnect) Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 627) Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 Me.RibbonStatusBar1.Size = New System.Drawing.Size(874, 24) ' 'GroupBox1 ' Me.GroupBox1.Controls.Add(Me.Label6) Me.GroupBox1.Controls.Add(Me.txtWMRelpath) Me.GroupBox1.Controls.Add(Me.Label5) Me.GroupBox1.Controls.Add(Me.txtWMDrive) Me.GroupBox1.Controls.Add(Me.Label1) Me.GroupBox1.Controls.Add(Me.Label4) Me.GroupBox1.Controls.Add(Me.txtUser) Me.GroupBox1.Controls.Add(Me.Label3) Me.GroupBox1.Controls.Add(Me.txtWMServer) Me.GroupBox1.Controls.Add(Me.Label2) Me.GroupBox1.Controls.Add(Me.txtDomain) Me.GroupBox1.Controls.Add(Me.txtPW) Me.GroupBox1.Location = New System.Drawing.Point(12, 420) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(350, 200) Me.GroupBox1.TabIndex = 11 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Windream Connection" ' 'Label6 ' Me.Label6.AutoSize = True Me.Label6.Location = New System.Drawing.Point(6, 163) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(65, 13) Me.Label6.TabIndex = 12 Me.Label6.Text = "WM RelPath" ' 'txtWMRelpath ' Me.txtWMRelpath.Location = New System.Drawing.Point(80, 160) Me.txtWMRelpath.Name = "txtWMRelpath" Me.txtWMRelpath.Size = New System.Drawing.Size(261, 21) Me.txtWMRelpath.TabIndex = 11 ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.Location = New System.Drawing.Point(6, 136) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(53, 13) Me.Label5.TabIndex = 10 Me.Label5.Text = "WM Drive" ' 'txtWMDrive ' Me.txtWMDrive.Location = New System.Drawing.Point(80, 133) Me.txtWMDrive.Name = "txtWMDrive" Me.txtWMDrive.Size = New System.Drawing.Size(261, 21) Me.txtWMDrive.TabIndex = 9 ' 'GroupBox3 ' Me.GroupBox3.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.GroupBox3.Controls.Add(Me.Label7) Me.GroupBox3.Controls.Add(Me.txtCommands) Me.GroupBox3.Location = New System.Drawing.Point(368, 420) Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.Size = New System.Drawing.Size(494, 200) Me.GroupBox3.TabIndex = 14 Me.GroupBox3.TabStop = False Me.GroupBox3.Text = "Test Aufruf-Argumente" ' 'Label7 ' Me.Label7.AutoSize = True Me.Label7.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) Me.Label7.Location = New System.Drawing.Point(7, 21) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(217, 13) Me.Label7.TabIndex = 1 Me.Label7.Text = "Hier bitte mit ""|"" als Trenner testen!!" ' 'txtCommands ' Me.txtCommands.AcceptsReturn = True Me.txtCommands.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txtCommands.Location = New System.Drawing.Point(6, 37) Me.txtCommands.Multiline = True Me.txtCommands.Name = "txtCommands" Me.txtCommands.Size = New System.Drawing.Size(482, 153) Me.txtCommands.TabIndex = 0 ' 'GroupBox2 ' Me.GroupBox2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.GroupBox2.Controls.Add(Me.TextBox2) Me.GroupBox2.Controls.Add(Me.Label8) Me.GroupBox2.Controls.Add(Me.TextBox1) Me.GroupBox2.Location = New System.Drawing.Point(12, 164) Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Size = New System.Drawing.Size(850, 250) Me.GroupBox2.TabIndex = 17 Me.GroupBox2.TabStop = False Me.GroupBox2.Text = "Beispiel für Aufruf:" ' 'TextBox2 ' Me.TextBox2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.TextBox2.Location = New System.Drawing.Point(310, 33) Me.TextBox2.Multiline = True Me.TextBox2.Name = "TextBox2" Me.TextBox2.ReadOnly = True Me.TextBox2.Size = New System.Drawing.Size(534, 207) Me.TextBox2.TabIndex = 2 Me.TextBox2.Text = resources.GetString("TextBox2.Text") ' 'Label8 ' Me.Label8.AutoSize = True Me.Label8.Location = New System.Drawing.Point(307, 17) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(75, 13) Me.Label8.TabIndex = 1 Me.Label8.Text = "Beschreibung:" ' 'TextBox1 ' Me.TextBox1.Location = New System.Drawing.Point(9, 20) Me.TextBox1.Multiline = True Me.TextBox1.Name = "TextBox1" Me.TextBox1.ReadOnly = True Me.TextBox1.Size = New System.Drawing.Size(292, 220) Me.TextBox1.TabIndex = 0 Me.TextBox1.Text = "-Mode@IMPV -Source@E:\Importfiles\Test.pdf -Target@""W:\Import\Testfile.pdf"" -WMOT" & "@""IhrObjekttyp"" -index@Integer 24={0815}#~#Vektor_Text1={ValueX~#~ValueY}" ' 'frmMain ' Me.Appearance.Options.UseFont = True Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(874, 651) Me.Controls.Add(Me.GroupBox2) Me.Controls.Add(Me.GroupBox3) Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.GroupBox1) Me.Controls.Add(Me.RibbonControl1) Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Name = "frmMain" Me.Ribbon = Me.RibbonControl1 Me.StatusBar = Me.RibbonStatusBar1 Me.Text = "WindreamImporter Digital Data (WiDig)" CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() Me.GroupBox3.ResumeLayout(False) Me.GroupBox3.PerformLayout() Me.GroupBox2.ResumeLayout(False) Me.GroupBox2.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents txtUser As TextBox Friend WithEvents txtWMServer As TextBox Friend WithEvents txtDomain As TextBox Friend WithEvents txtPW As TextBox Friend WithEvents Label1 As Label Friend WithEvents Label2 As Label Friend WithEvents Label3 As Label Friend WithEvents Label4 As Label Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonGroupWindream As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem Friend WithEvents GroupBox1 As GroupBox Friend WithEvents Label5 As Label Friend WithEvents txtWMDrive As TextBox Friend WithEvents Label6 As Label Friend WithEvents txtWMRelpath As TextBox Friend WithEvents BarStaticinfo As DevExpress.XtraBars.BarStaticItem Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar Friend WithEvents bsiWMConnect As DevExpress.XtraBars.BarStaticItem Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem Friend WithEvents RibbonGroupMisc As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem Friend WithEvents GroupBox3 As GroupBox Friend WithEvents txtCommands As TextBox Friend WithEvents btnStartTest As DevExpress.XtraBars.BarButtonItem Friend WithEvents RibbonGroupTest As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents Label7 As Label Friend WithEvents GroupBox2 As GroupBox Friend WithEvents TextBox2 As TextBox Friend WithEvents Label8 As Label Friend WithEvents TextBox1 As TextBox Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup End Class