From 88b6170fa8ddf43b723bb0ea5043bd6d6030ef1e Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Tue, 14 Jul 2015 15:54:32 +0000 Subject: [PATCH] TestEIn 1.6g3 : - aggiunto dialogo per componenti definiti con script lua - piccole migliorie varie. --- Component.Designer.vb | 453 +++++++++++++++++++++++++++++++++++++ Component.resx | 278 +++++++++++++++++++++++ Component.vb | 349 ++++++++++++++++++++++++++++ ConstIni.vb | 7 + EgtInterface.vb | 180 ++++++++++++++- Form1.Designer.vb | 23 ++ Form1.resx | 13 +- Form1.vb | 94 +++++--- My Project/AssemblyInfo.vb | 4 +- Resources/Compo.png | Bin 0 -> 366 bytes Scene.vb | 105 +++++---- SelectMulti.Designer.vb | 45 +++- SelectMulti.vb | 30 +-- TestEIn.vbproj | 12 + 14 files changed, 1479 insertions(+), 114 deletions(-) create mode 100644 Component.Designer.vb create mode 100644 Component.resx create mode 100644 Component.vb create mode 100644 Resources/Compo.png diff --git a/Component.Designer.vb b/Component.Designer.vb new file mode 100644 index 0000000..d00e1e2 --- /dev/null +++ b/Component.Designer.vb @@ -0,0 +1,453 @@ + _ +Partial Class Component + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + 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 + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Component)) + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.ListBox1 = New System.Windows.Forms.ListBox() + Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel() + Me.tbName1 = New System.Windows.Forms.TextBox() + Me.tbName2 = New System.Windows.Forms.TextBox() + Me.tbName3 = New System.Windows.Forms.TextBox() + Me.tbName4 = New System.Windows.Forms.TextBox() + Me.tbName7 = New System.Windows.Forms.TextBox() + Me.tbName8 = New System.Windows.Forms.TextBox() + Me.tbName9 = New System.Windows.Forms.TextBox() + Me.tbName10 = New System.Windows.Forms.TextBox() + Me.tbName6 = New System.Windows.Forms.TextBox() + Me.tbName5 = New System.Windows.Forms.TextBox() + Me.tbValue1 = New System.Windows.Forms.TextBox() + Me.tbValue2 = New System.Windows.Forms.TextBox() + Me.tbValue3 = New System.Windows.Forms.TextBox() + Me.tbValue4 = New System.Windows.Forms.TextBox() + Me.tbValue5 = New System.Windows.Forms.TextBox() + Me.tbValue6 = New System.Windows.Forms.TextBox() + Me.tbValue7 = New System.Windows.Forms.TextBox() + Me.tbValue8 = New System.Windows.Forms.TextBox() + Me.tbValue9 = New System.Windows.Forms.TextBox() + Me.tbValue10 = New System.Windows.Forms.TextBox() + Me.btnView = New System.Windows.Forms.Button() + Me.btnInsert = New System.Windows.Forms.Button() + Me.tbMsg = New System.Windows.Forms.TextBox() + Me.Scene2 = New TestEIn.Scene() + Me.TableLayoutPanel1.SuspendLayout() + Me.TableLayoutPanel2.SuspendLayout() + Me.SuspendLayout() + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.ColumnCount = 2 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 200.0!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) + Me.TableLayoutPanel1.Controls.Add(Me.Scene2, 1, 0) + Me.TableLayoutPanel1.Controls.Add(Me.ListBox1, 0, 0) + Me.TableLayoutPanel1.Controls.Add(Me.TableLayoutPanel2, 1, 1) + Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel1.Margin = New System.Windows.Forms.Padding(0) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 2 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 260.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(744, 414) + Me.TableLayoutPanel1.TabIndex = 3 + ' + 'ListBox1 + ' + Me.ListBox1.Dock = System.Windows.Forms.DockStyle.Fill + Me.ListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.ItemHeight = 31 + Me.ListBox1.Location = New System.Drawing.Point(3, 3) + Me.ListBox1.Margin = New System.Windows.Forms.Padding(3, 3, 3, 0) + Me.ListBox1.Name = "ListBox1" + Me.TableLayoutPanel1.SetRowSpan(Me.ListBox1, 2) + Me.ListBox1.Size = New System.Drawing.Size(194, 411) + Me.ListBox1.TabIndex = 4 + ' + 'TableLayoutPanel2 + ' + Me.TableLayoutPanel2.ColumnCount = 5 + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 97.0!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 97.0!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 60.0!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel2.Controls.Add(Me.tbName1, 1, 0) + Me.TableLayoutPanel2.Controls.Add(Me.tbName2, 1, 1) + Me.TableLayoutPanel2.Controls.Add(Me.tbName3, 1, 2) + Me.TableLayoutPanel2.Controls.Add(Me.tbName4, 1, 3) + Me.TableLayoutPanel2.Controls.Add(Me.tbName7, 1, 6) + Me.TableLayoutPanel2.Controls.Add(Me.tbName8, 1, 7) + Me.TableLayoutPanel2.Controls.Add(Me.tbName9, 1, 8) + Me.TableLayoutPanel2.Controls.Add(Me.tbName10, 1, 9) + Me.TableLayoutPanel2.Controls.Add(Me.tbName6, 1, 5) + Me.TableLayoutPanel2.Controls.Add(Me.tbName5, 1, 4) + Me.TableLayoutPanel2.Controls.Add(Me.tbValue1, 2, 0) + Me.TableLayoutPanel2.Controls.Add(Me.tbValue2, 2, 1) + Me.TableLayoutPanel2.Controls.Add(Me.tbValue3, 2, 2) + Me.TableLayoutPanel2.Controls.Add(Me.tbValue4, 2, 3) + Me.TableLayoutPanel2.Controls.Add(Me.tbValue5, 2, 4) + Me.TableLayoutPanel2.Controls.Add(Me.tbValue6, 2, 5) + Me.TableLayoutPanel2.Controls.Add(Me.tbValue7, 2, 6) + Me.TableLayoutPanel2.Controls.Add(Me.tbValue8, 2, 7) + Me.TableLayoutPanel2.Controls.Add(Me.tbValue9, 2, 8) + Me.TableLayoutPanel2.Controls.Add(Me.tbValue10, 2, 9) + Me.TableLayoutPanel2.Controls.Add(Me.btnView, 4, 1) + Me.TableLayoutPanel2.Controls.Add(Me.btnInsert, 4, 3) + Me.TableLayoutPanel2.Controls.Add(Me.tbMsg, 0, 10) + Me.TableLayoutPanel2.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel2.Location = New System.Drawing.Point(203, 157) + Me.TableLayoutPanel2.Name = "TableLayoutPanel2" + Me.TableLayoutPanel2.RowCount = 11 + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!)) + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!)) + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!)) + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!)) + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!)) + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!)) + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!)) + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!)) + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!)) + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!)) + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 16.0!)) + Me.TableLayoutPanel2.Size = New System.Drawing.Size(538, 254) + Me.TableLayoutPanel2.TabIndex = 5 + ' + 'tbName1 + ' + Me.tbName1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbName1.Location = New System.Drawing.Point(142, 0) + Me.tbName1.Margin = New System.Windows.Forms.Padding(0) + Me.tbName1.Name = "tbName1" + Me.tbName1.ReadOnly = True + Me.tbName1.Size = New System.Drawing.Size(97, 24) + Me.tbName1.TabIndex = 0 + Me.tbName1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbName1.Visible = False + ' + 'tbName2 + ' + Me.tbName2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbName2.Location = New System.Drawing.Point(142, 23) + Me.tbName2.Margin = New System.Windows.Forms.Padding(0) + Me.tbName2.Name = "tbName2" + Me.tbName2.ReadOnly = True + Me.tbName2.Size = New System.Drawing.Size(97, 24) + Me.tbName2.TabIndex = 1 + Me.tbName2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbName2.Visible = False + ' + 'tbName3 + ' + Me.tbName3.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbName3.Location = New System.Drawing.Point(142, 46) + Me.tbName3.Margin = New System.Windows.Forms.Padding(0) + Me.tbName3.Name = "tbName3" + Me.tbName3.ReadOnly = True + Me.tbName3.Size = New System.Drawing.Size(97, 24) + Me.tbName3.TabIndex = 2 + Me.tbName3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbName3.Visible = False + ' + 'tbName4 + ' + Me.tbName4.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbName4.Location = New System.Drawing.Point(142, 69) + Me.tbName4.Margin = New System.Windows.Forms.Padding(0) + Me.tbName4.Name = "tbName4" + Me.tbName4.ReadOnly = True + Me.tbName4.Size = New System.Drawing.Size(97, 24) + Me.tbName4.TabIndex = 3 + Me.tbName4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbName4.Visible = False + ' + 'tbName7 + ' + Me.tbName7.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbName7.Location = New System.Drawing.Point(142, 138) + Me.tbName7.Margin = New System.Windows.Forms.Padding(0) + Me.tbName7.Name = "tbName7" + Me.tbName7.ReadOnly = True + Me.tbName7.Size = New System.Drawing.Size(97, 24) + Me.tbName7.TabIndex = 6 + Me.tbName7.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbName7.Visible = False + ' + 'tbName8 + ' + Me.tbName8.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbName8.Location = New System.Drawing.Point(142, 161) + Me.tbName8.Margin = New System.Windows.Forms.Padding(0) + Me.tbName8.Name = "tbName8" + Me.tbName8.ReadOnly = True + Me.tbName8.Size = New System.Drawing.Size(97, 24) + Me.tbName8.TabIndex = 7 + Me.tbName8.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbName8.Visible = False + ' + 'tbName9 + ' + Me.tbName9.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbName9.Location = New System.Drawing.Point(142, 184) + Me.tbName9.Margin = New System.Windows.Forms.Padding(0) + Me.tbName9.Name = "tbName9" + Me.tbName9.ReadOnly = True + Me.tbName9.Size = New System.Drawing.Size(97, 24) + Me.tbName9.TabIndex = 8 + Me.tbName9.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbName9.Visible = False + ' + 'tbName10 + ' + Me.tbName10.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbName10.Location = New System.Drawing.Point(142, 207) + Me.tbName10.Margin = New System.Windows.Forms.Padding(0) + Me.tbName10.Name = "tbName10" + Me.tbName10.ReadOnly = True + Me.tbName10.Size = New System.Drawing.Size(97, 24) + Me.tbName10.TabIndex = 9 + Me.tbName10.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbName10.Visible = False + ' + 'tbName6 + ' + Me.tbName6.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbName6.Location = New System.Drawing.Point(142, 115) + Me.tbName6.Margin = New System.Windows.Forms.Padding(0) + Me.tbName6.Name = "tbName6" + Me.tbName6.ReadOnly = True + Me.tbName6.Size = New System.Drawing.Size(97, 24) + Me.tbName6.TabIndex = 5 + Me.tbName6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbName6.Visible = False + ' + 'tbName5 + ' + Me.tbName5.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbName5.Location = New System.Drawing.Point(142, 92) + Me.tbName5.Margin = New System.Windows.Forms.Padding(0) + Me.tbName5.Name = "tbName5" + Me.tbName5.ReadOnly = True + Me.tbName5.Size = New System.Drawing.Size(97, 24) + Me.tbName5.TabIndex = 4 + Me.tbName5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbName5.Visible = False + ' + 'tbValue1 + ' + Me.tbValue1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbValue1.Location = New System.Drawing.Point(239, 0) + Me.tbValue1.Margin = New System.Windows.Forms.Padding(0) + Me.tbValue1.Name = "tbValue1" + Me.tbValue1.Size = New System.Drawing.Size(97, 24) + Me.tbValue1.TabIndex = 10 + Me.tbValue1.Visible = False + ' + 'tbValue2 + ' + Me.tbValue2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbValue2.Location = New System.Drawing.Point(239, 23) + Me.tbValue2.Margin = New System.Windows.Forms.Padding(0) + Me.tbValue2.Name = "tbValue2" + Me.tbValue2.Size = New System.Drawing.Size(97, 24) + Me.tbValue2.TabIndex = 11 + Me.tbValue2.Visible = False + ' + 'tbValue3 + ' + Me.tbValue3.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbValue3.Location = New System.Drawing.Point(239, 46) + Me.tbValue3.Margin = New System.Windows.Forms.Padding(0) + Me.tbValue3.Name = "tbValue3" + Me.tbValue3.Size = New System.Drawing.Size(97, 24) + Me.tbValue3.TabIndex = 12 + Me.tbValue3.Visible = False + ' + 'tbValue4 + ' + Me.tbValue4.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbValue4.Location = New System.Drawing.Point(239, 69) + Me.tbValue4.Margin = New System.Windows.Forms.Padding(0) + Me.tbValue4.Name = "tbValue4" + Me.tbValue4.Size = New System.Drawing.Size(97, 24) + Me.tbValue4.TabIndex = 13 + Me.tbValue4.Visible = False + ' + 'tbValue5 + ' + Me.tbValue5.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbValue5.Location = New System.Drawing.Point(239, 92) + Me.tbValue5.Margin = New System.Windows.Forms.Padding(0) + Me.tbValue5.Name = "tbValue5" + Me.tbValue5.Size = New System.Drawing.Size(97, 24) + Me.tbValue5.TabIndex = 14 + Me.tbValue5.Visible = False + ' + 'tbValue6 + ' + Me.tbValue6.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbValue6.Location = New System.Drawing.Point(239, 115) + Me.tbValue6.Margin = New System.Windows.Forms.Padding(0) + Me.tbValue6.Name = "tbValue6" + Me.tbValue6.Size = New System.Drawing.Size(97, 24) + Me.tbValue6.TabIndex = 15 + Me.tbValue6.Visible = False + ' + 'tbValue7 + ' + Me.tbValue7.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbValue7.Location = New System.Drawing.Point(239, 138) + Me.tbValue7.Margin = New System.Windows.Forms.Padding(0) + Me.tbValue7.Name = "tbValue7" + Me.tbValue7.Size = New System.Drawing.Size(97, 24) + Me.tbValue7.TabIndex = 16 + Me.tbValue7.Visible = False + ' + 'tbValue8 + ' + Me.tbValue8.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbValue8.Location = New System.Drawing.Point(239, 161) + Me.tbValue8.Margin = New System.Windows.Forms.Padding(0) + Me.tbValue8.Name = "tbValue8" + Me.tbValue8.Size = New System.Drawing.Size(97, 24) + Me.tbValue8.TabIndex = 17 + Me.tbValue8.Visible = False + ' + 'tbValue9 + ' + Me.tbValue9.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbValue9.Location = New System.Drawing.Point(239, 184) + Me.tbValue9.Margin = New System.Windows.Forms.Padding(0) + Me.tbValue9.Name = "tbValue9" + Me.tbValue9.Size = New System.Drawing.Size(97, 24) + Me.tbValue9.TabIndex = 18 + Me.tbValue9.Visible = False + ' + 'tbValue10 + ' + Me.tbValue10.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbValue10.Location = New System.Drawing.Point(239, 207) + Me.tbValue10.Margin = New System.Windows.Forms.Padding(0) + Me.tbValue10.Name = "tbValue10" + Me.tbValue10.Size = New System.Drawing.Size(97, 24) + Me.tbValue10.TabIndex = 19 + Me.tbValue10.Visible = False + ' + 'btnView + ' + Me.btnView.Dock = System.Windows.Forms.DockStyle.Left + Me.btnView.Enabled = False + Me.btnView.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnView.Location = New System.Drawing.Point(396, 23) + Me.btnView.Margin = New System.Windows.Forms.Padding(0) + Me.btnView.Name = "btnView" + Me.btnView.Size = New System.Drawing.Size(75, 23) + Me.btnView.TabIndex = 20 + Me.btnView.Text = "View" + Me.btnView.UseVisualStyleBackColor = True + ' + 'btnInsert + ' + Me.btnInsert.Dock = System.Windows.Forms.DockStyle.Left + Me.btnInsert.Enabled = False + Me.btnInsert.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnInsert.Location = New System.Drawing.Point(396, 69) + Me.btnInsert.Margin = New System.Windows.Forms.Padding(0) + Me.btnInsert.Name = "btnInsert" + Me.btnInsert.Size = New System.Drawing.Size(75, 23) + Me.btnInsert.TabIndex = 21 + Me.btnInsert.Text = "Insert" + Me.btnInsert.UseVisualStyleBackColor = True + ' + 'tbMsg + ' + Me.TableLayoutPanel2.SetColumnSpan(Me.tbMsg, 5) + Me.tbMsg.Dock = System.Windows.Forms.DockStyle.Fill + Me.tbMsg.Location = New System.Drawing.Point(3, 233) + Me.tbMsg.Name = "tbMsg" + Me.tbMsg.ReadOnly = True + Me.tbMsg.Size = New System.Drawing.Size(532, 20) + Me.tbMsg.TabIndex = 22 + ' + 'Scene2 + ' + Me.Scene2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.Scene2.Cursor = System.Windows.Forms.Cursors.Default + Me.Scene2.Dock = System.Windows.Forms.DockStyle.Fill + Me.Scene2.Location = New System.Drawing.Point(200, 0) + Me.Scene2.Margin = New System.Windows.Forms.Padding(0) + Me.Scene2.Name = "Scene2" + Me.Scene2.Size = New System.Drawing.Size(544, 154) + Me.Scene2.TabIndex = 3 + ' + 'Component + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.AutoSize = True + Me.ClientSize = New System.Drawing.Size(744, 414) + Me.Controls.Add(Me.TableLayoutPanel1) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.KeyPreview = True + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "Component" + Me.ShowIcon = False + Me.ShowInTaskbar = False + Me.TableLayoutPanel1.ResumeLayout(False) + Me.TableLayoutPanel2.ResumeLayout(False) + Me.TableLayoutPanel2.PerformLayout() + Me.ResumeLayout(False) + +End Sub + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents Scene2 As TestEIn.Scene + Friend WithEvents ListBox1 As System.Windows.Forms.ListBox + Friend WithEvents TableLayoutPanel2 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents tbName1 As System.Windows.Forms.TextBox + Friend WithEvents tbName2 As System.Windows.Forms.TextBox + Friend WithEvents tbName3 As System.Windows.Forms.TextBox + Friend WithEvents tbName4 As System.Windows.Forms.TextBox + Friend WithEvents tbName5 As System.Windows.Forms.TextBox + Friend WithEvents tbName6 As System.Windows.Forms.TextBox + Friend WithEvents tbName7 As System.Windows.Forms.TextBox + Friend WithEvents tbName8 As System.Windows.Forms.TextBox + Friend WithEvents tbName9 As System.Windows.Forms.TextBox + Friend WithEvents tbName10 As System.Windows.Forms.TextBox + Friend WithEvents tbValue1 As System.Windows.Forms.TextBox + Friend WithEvents tbValue2 As System.Windows.Forms.TextBox + Friend WithEvents tbValue3 As System.Windows.Forms.TextBox + Friend WithEvents tbValue4 As System.Windows.Forms.TextBox + Friend WithEvents tbValue5 As System.Windows.Forms.TextBox + Friend WithEvents tbValue6 As System.Windows.Forms.TextBox + Friend WithEvents tbValue7 As System.Windows.Forms.TextBox + Friend WithEvents tbValue8 As System.Windows.Forms.TextBox + Friend WithEvents tbValue9 As System.Windows.Forms.TextBox + Friend WithEvents tbValue10 As System.Windows.Forms.TextBox + Friend WithEvents btnView As System.Windows.Forms.Button + Friend WithEvents btnInsert As System.Windows.Forms.Button + Friend WithEvents tbMsg As System.Windows.Forms.TextBox + +End Class diff --git a/Component.resx b/Component.resx new file mode 100644 index 0000000..8b58edd --- /dev/null +++ b/Component.resx @@ -0,0 +1,278 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAABAAQAMDAAAAAACACoDgAARgAAACAgAAAAAAgAqAgAAO4OAAAYGAAAAAAIAMgGAACWFwAAEBAAAAAA + CABoBQAAXh4AACgAAAAwAAAAYAAAAAEACAAAAAAAAAkAAAAAAAAAAAAAAAEAAAABAAAAAAAAfDwGAFE2 + NwAYVTEAGVo1ABteOQAdYj0AbkMhAGRIPgAcGlwALCVZAD00XgAXH34AHmdBACBrRQAqaUYAIW5IACNz + TAAmelQAMnZTADN5VgA1flsAPXtbAC5teABCclYAeGNrAIVABgCERAsAiEQKAIlIDQCDRxQAjE0RAI5Q + EwCRUhUAk1UYAJZZGgCYXR0AmmAfAIhYKACQXCYAnGMiAJtlLACZaCwAn2cyAJ1tMwCbcD4AoGgmAKJs + KgCmcS0AoGwwAKVyNACpdTEAp3k2AKx6NACndDgAqXU5AKd6PACsezoAn29FAK59QgApg1sANYNeACyL + YwA2imYALpBoADKUawA2mnIAN6N5AFSHawBEmXYAZJV7AEOlfwCvgToAsoM7ALWIPwCtgUIAsIJCALaK + QQC4jUIAsoVJALWKSwC4jUwAvJFFALyUSgC/mEwAtYpSALiOVQCwg1oAvZVXAJ6IbACxhmIAvJdhALyV + bAC/mW8AsZF4AMGZSwDDnVcAxqJYAMGbZQDGomQAyaVhAMyqZQDEo20AzKpqAMakcwDLqnIAxaN5AMqs + egDUt3gAAw6DABEZggAGFJwACxqoAA4dsAAQH7AAHz2pABYmuAA2P60AJje+ACdWkgApRaUAOESwAEdy + pgBvcasAHS7BAB8wwgAlNsgALD7QACxAzwA4SMoANVXMAC5C0gA1SNYAOVDeAD5g3wA9VuAAQE/KAENR + zQBHV9cAUV/XAE9o3gBTYtsATXDcAFZ02gBhb98AZHTcAEJc4gBGZuUAVmniAExy6ABVd+gAZXjlAHF+ + 5wA5rIIAPbKHAEirhQBRrIgARrSMAEi8kwBWuZcAbKiNAGivkgBouJkAdbmdAFicrgB+uaEAV8KcAFvH + oQBlyaYAcMysAGrQrgBv0bAAedS1AHiH2AB7ltwAWoPrAGaJ6QB3iuoAaJHsAHWY7gBrmPAAdZ3wAHqm + 8wCckZUAg7WfAIy6pQCQvqoAqKKpAMenhwDOtI4A1ruDANC4kACXxrMAg9m8AKPEtACwy70A3MOFANbE + lADhy4wA48+RAObTlQDXxKMA3c21ANrSuQDg1L8Ah5jeAIKb7gCAn/AAiaHiAJWr4ACVs+EAgqz0AIi2 + 9gCTufYAqbrkALW95gCJ3cIAkdvCAL7XzgCN4MUAluPKAJ3o0QCk6tQAsu7bALTx3wCVxfkAntP9AKrC + 4wC2wucAvdDhAKDL+gCq1fsAs9z9ALvy4QDH184A3dXEAMba0wDT29cA4M/AAOHRwgDi3tsA4eDeAMLL + 6QDG0+cA0tjpAMHa+wDd5ucAyvTnANPs/gDp6OcA8PDwAPXx7QDq7PQA9PTzAPj39wD///8ASUlJSUlJ + SUlJSUlJSUlJSUlJSUlJSUlJSUlJSUlJSUlJSUlJSUlJSUlJSUlJSUlJSf////////////////////// + //////////////////////////////////////9JSf////////////////////////////////////// + //////////////////////9JSf////////////////////////////////////////////////////// + //////9JSf////////////////////////////////////////////////////////////9JSf////// + //////////////////////////////////////////////////////9JSf////////////////////// + //////////////////////////////////////9JSf////////////////////////////////////// + //////////////////////9JSf////////////////////////////////////////////////////// + //////9JSf////////////////////////////////////////////////////////////9JSf////// + //////////////////////////////////////////77+e/w/v////9JSf////////////////////// + //////////////////////v58O/Kye/+//////9JSf////////////////////////////////////// + /vnw7+7KycrJ7/////////9JSf//////////////////////////////////+/DuysrKysrKysru//// + //////9JSf/////////////////////////////+8O7JycnKysrKysrKysr///////////9JSf////7/ + /////////////////vv57+7JycrKysrKysrKysrKyr3+//////////9JSf///7/J7/v/////////+/nw + 78rJysrKysrKysrKysrKysrJvbz+//////////9JSf///71JWGJryfD7++/v7srJysrKysrKysrKysrK + ysrKysq9vbz7//////////9JSf///8xJUVFKUVhYvMrv7srKysrKysrKysrKysrKysrKyr29vbzw//// + //////9JSf////5OUVFRUVFRTkpKYr/KycrKysrKysrKysrKysrJvb29vbzv//////////9JSf////9p + TlFRUVFRUVFRUUpKUWu/v8ru7srKysrKysm9vb29vbzK//////////9JSf/////JSlFRUVFRUVFRUVFR + UU5KUWa8vMnu7srKyb29vb29vb3J//////////9JSf/////wTlFRUVFRUVFRUVFRUVFRUVFOTlhdXb3J + vb29vb29vb2///////////9JSf/////7YlFRUVFRUVFRUVFRUVFRUVFRUVFOSmtovb29vb29vb28//// + //////9JSf//////vkpRUVFRUVFRUVFRUVFRUVFRUVFWa11dXby9vb29vb28//////////9JSf////// + yk5RUVFRUVFRUVFRUVFRUVFRUVhoaF1dXV1qvb29vb28/v////////9JSf//////8FhRUVFRUVFRUVFR + UVFRUVFRWGhoXV1dXV1dXby9vb28+/////////9JSf///////mdOUVFRUVFRUVFRUVFRUVFRamhdXV1d + XV1dXV1qvb28+f////////9JSf///////75OUVFRUVFRUVFRUVFRUVhoaF1dXV1dXV1dXV1dXWu97/// + //////9JSf///////8xRUVFRUVFRUVFRUVFRWGhdXV1dXV1dXV1dXV1dXV1dyv////////9JSf////// + //tYUVFRUVFRUVFRUVFYaGhdXV1dXV1dXV1dXV1dXV1dXcn7//////9JSf////////9dTlFRUVFRUVFR + UVhoaF1dXV1dXV1dXV1dXV1dXV1dXWJr7/////9JSf/////////JSlFRUVFRUVFRWGhoXV1dXV1dXV1d + XV1dXWJiYmJiYmhqvfD///9JSf/////////5SVFRUVFRUU5YaF1dXV1iYmJiYlhiaLy9ycru8Pn7/v7+ + /v////9JSf//////////SlFRUVFRUWJramu9v8ru8Pn7/v////////////////////////9JSf////// + ////a05RUVFOYsz///////////////////////////////////////9JSf//////////7klRUUpg8P// + //////////////////////////////////////9JSf//////////+0pRTlj7//////////////////// + //////////////////////9JSf///////////2ZJVvn///////////////////////////////////// + //////9JSf///////////8lg+/////////////////////////////////////////////9JSf////// + //////nw//////////////////////////////////////////////9JSf////////////////////// + //////////////////////////////////////9JSf////////////////////////////////////// + //////////////////////9JSf////////////////////////////////////////////////////// + //////9JSf////////////////////////////////////////////////////////////9JSf////// + //////////////////////////////////////////////////////9JSf////////////////////// + //////////////////////////////////////9JSUlJSUlJSUlJSUlJSUlJSUlJSUlJSUlJSUlJSUlJ + SUlJSUlJSUlJSUlJSUlJSUlJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAACAAAABAAAAAAQAIAAAA + AAAABAAAAAAAAAAAAAAAAQAAAAEAAAAAAAB+PQcARC0zABpbNgAbXjkAHWI9ACZgPgBbQTwAf1MoACki + VAA+NV0AFx59AB5mQAAfaEIAIGtFACJuSAAjc0wAJXdQACZ6UgAoflcAOHNTADt6WQApdmYAMWl4AIRE + CwCJRgsAjEwQAI5QFQCSUxUAklUZAJVZGgCZXR4AmF4iAJxjIgCcay4AnWs8AKBpJgCibCoApXEtAKFv + MwCkbzsApHQyAKl2MwCqeDIApXQ8AKh1OQCsfjoAnnNAAKl3QQCse0YAKoNbACeJXwAtjGQAMopkAC+U + awAzkmoANZtyADuddgA0pHkAN6p+AEWEZABGiWgASI1sAEqUcwBDmXQARp96AEubeQBijnUARKR8AFCh + fwCugDkAsoM9ALiMPwCvgUAArYFIALGERAC2ikEAuI1CALGFTAC0iksAuY5PALyTSgC2jFAAuI1RALSL + WwC3kVIAu5JTALuUWgC+mGkAu5RzAL2ZdQCuoGUApqBoAKmlbQCtq3IAsbJ6AMKbTADCnVcAx6JVAMCc + YwDJpmQA07RuAMWjdADIpnMAy6tyAMKjfQDMrXsAz7F2ANGzdQDRs3wA17t8ANi8egAOFoIABRKaAAwa + pwAQHq0AFia3AB0zugAlMKsAIze4ACtVmQBhZKsAHS3AACAvwQAlNscALT7RADdFxgA2R9QAOVTbAD1V + 4QBATskAQ1XNAEhX1ABNYt0AVWTWAF983gBgb98AY33ZAHJ/3wBCW+IASGflAFRp4wBMcugAU3joAGd9 + 5wA5q4AAPbCFAEebigB2hZwASamEAFOmhABapIUAWKmIAEK2jABHu5EAVbuWAHOiigBmtpkAcr2fAH27 + ogBPwZkAWsKdAGDCngBdxqIAZcqmAHPHqQBu0a8AcdCtAG/TsQB10rMAedK0AH/WuQB92boAU5rGAGqH + 3AB8jtsAXKDAAGavxgBnssUAW4XsAGmL6AB2h+UAZ5PvAHiX6QBvm/EAd57wAHel8wCFsJsAtryEAMen + gwDLs4QAzbWNANS5hgDOtJoA1LqSANO8mQDVvqIAmsOxAIDXugCE274A3MKDAOHKiwDizpYA5tOVANbA + qADXzLMA3Mu0AN/UvgCAk9sAjqfcAJCj3gCEkesAhafpAJOj7gCHp/EAiLf2AJm/9wCpuOQAid3CAJXd + xAC71swAv9nOAL/M3QCO4MYAl+PLAJzo0ACj6dMAufHfAJfI+gCqzewAtcblAKfL+QCt0foAtNj8ALry + 4QDD1cwAxdrRAN/d3QDh1MAA4N/eANTg2QDb4e8AzPXoAMXl/QDe4vEA6OfmAOTn7ADr6uoA8O/uAPPx + 7wDr7vUA7/LwAJKSkgD+/v4AAAAAAP///wBMTExMTExMTExMTExMTExMTExMTExMTExMTExMTExMTEz/ + //////////////////////////////////////9MTP////////////////////////////////////// + /0xM////////////////////////////////////////TEz///////////////////////////////// + //////9MTP///////////////////////////////////////0xM//////////////////////////// + ///////5////TEz////////////////////////////57e3EzvX///9MTP/////////////////////5 + +fntzs/Pzs/5/////0xM//////////////////Xt+c/Pzs7Ozs7O7f//////TEz//8/t+v/////69fXP + z87Ozs7Ozs7OzsTE//////9MTP//alFov8/t7fXPzs7Ozs7Ozs7Ozs7Dvc///////0xM///1UElNTWBm + asTOzs7Ozs7Ozs7Ow8C/z///////TEz///9YUFBQUExNU1dqwMTOzs/OzsPAwMDO+P////9MTP///79N + UFBQUFBQTVBQV2O9wsTDwMDAwMT1/////0xM////zlFQUFBQUFBQUFBQTU1TZr3CwsDAxPX/////TEz/ + ///1YVBQUFBQUFBQUFBQV2ZYWGbAwsDD+f////9MTP////VmUFBQUFBQUFBQUFdmZlhYWGa9wsP1//// + /0xM/////8RQUFBQUFBQUFBXZmZYWFhYWFhmwPX/////TEz/////z1NQUFBQUFBQV2ZYWFhYWFhYWFhm + xP////9MTP/////1Y1BQUFBQUFdmWFhYWFhYWFhYWFhYbO3//0xM//////psTVBQUE1XZmRYZmZmZmZq + vcDCxMLCz///TEz//////8RNUFBMZMPCwsTOz/XPz+319fn///////9MTP//////7VFQTGj5//n5+v// + /////////////////0xM////////U0xq+f//////////////////////////TEz///////+9aP////// + //////////////////////9MTP////////X1/////////////////////////////0xM//////////// + ////////////////////////////TEz///////////////////////////////////////9MTP////// + /////////////////////////////////0xM////////////////////////////////////////TExM + TExMTExMTExMTExMTExMTExMTExMTExMTExMTExMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAGAAAADAAAAABAAgAAAAAAEAC + AAAAAAAAAAAAAAABAAAAAQAAAAAAAEo0OgAcXzoAHWI8ADArXgAeZkAAHWhDACdiQAAgbEYAIW5IACNz + TAAtc08AJXZQACV6UwApfVcAMXhWADh8XQAtYm4AfGdeAGBXfQCBQQkAgUINAINFDwCIRw0Ah0gNAIdJ + EgCNTRIAik0VAIxQFwCMVhsAkVIVAJJUFgCWWRsAmV4eAJFaIACWXyEAk14nAJBcKACXYyUAnGMiAJdl + KgCdZSgAnWwuAIxjNQCabDoAoG4nAKFqKACibywApXEuAKNyMwCrejQApXI9AKN1PACtfj0AqXdBAKx8 + RgCqekwAKoNbAC2KYgA1jWgAPo5sAD+VcQAymnAANaF3AEaIZwBIjm0AU4NnAFOPcwBLlHQATZt6AGOT + eQBGoXwAr4E7ALWIPgCvgEMAroJLALGCQQCziEIAuI1EALOFTQC/lUgArINQAKiCVwCugFgAtotRALaN + UQC2jlgAu5FUAL+ZVAC3kFkAvJRbAL+YXQC9lmUAv5tjAL2ZcwCmoGgAq6hvAK+vdgCytn4AwZpNAMOd + UgDNrGYAxaNtAMajcQDIpnYAxq1yAMurcgDNrXQA0bN3ANG0fgATG4UACBGXAAgWmwAOGaQADRupABEd + qQAQH7AAESCvABMitAAXJ7oAGSa4ABoqvAAgObAAKVOVADtIvgBbWpIAHSvAACEyxAArO8oAP03IADJF + 1QA7S9MAOU3dADhoygA8VOAAPljiAERSzQBEU9EAS1zUAEdpzABAdswAUXHNAFl1zwBEY9gASmbeAFJk + 0ABNe9AAXn7cAGl23QBCX+MARGTkAEdp5gBLbucATHLoAFRw5gBfcOUAUXXoAFR96gBldeQAbXriAHF+ + 4gBFk4cAT62HAFCjgABbpYcAVaiGAE2xjABloYYAZqSKAGimiwBhqIoAc6eQAHKrkgB7qZQAc7qeAF7H + ogBqwqIAZsypAG3PrgB3zK4AbtKwAHbVtQBPgMUAW4PIAFmS0ABij8wAf4/ZAHuW2QBXgesAXYftAGmC + 6QBijusAdYLiAHCF6QBmlO8AepvjAHOT7QB8le0AbJnwAHWg8gB+rPQAlY+fAJ+rjgC2vYUA172IANW/ + nwCE1roAidW7ANrCjgDfyIkA3siTAOPPmgDZyKoA3NG7AOjWogCQm+0Ahp/wAIii4ACUpOQAkqLuAIu4 + 5ACds+AAkrj2AIvdwgCR3sUAnt3HAKXeygCd588ApOXPAKDn0AC26tkAksD4ALXE5QC4w+cAocb4ALLO + +QCt0/oAttv8ALzy4QC74v4AxtvSAOLTwgDg394A2t/tANne8QDb6OEA3+LoAMby5ADi4OAA6ubgAOrp + 6ADw6+UA8O3oAPLz8QD4+PgA////AE5OTk5OTk5OTk5OTk5OTk5OTk5OTk5OTk7///////////////// + ////////////Tk7/////////////////////////////Tk7/////////////////////////////Tk7/ + ///////////////////////9/v//Tk7///////////////////728fHx+v//Tk7///////////////3w + 8fHx1dXx/f//Tk7//f////////rxzfHT1c3Nzc3y////Tk7/bFzN8fHxzfHx8c3Nzc3Nzcz6////Tk7/ + 1VBQUF1nzM3NzfHVzc3NbMzx////Tk7//VZUVE5OVFZcZ8zNzc3MbMzx/v//Tk7//15QVFRUVFRUTk5U + Z2zMzMzN/f//Tk7//81QVFRUVFRUVFRmZ2ZnzMzN/f//Tk7///FWVFRUVFRUVGZnXmZmZ2zN/f//Tk7/ + //pmVFRUVFRWZmdeZmZmZmds8v//Tk7///1sTlRUVFZmZ2ZmZ2dlZ2dnavH/Tk7////TUFRUTlxnZWdq + Z15rzc3V1fH/Tk7////xXE5W1fLy9v7/////////////Tk7////6Zk7x////////////////////Tk7/ + ////zdX/////////////////////Tk7/////////////////////////////Tk7///////////////// + ////////////Tk7/////////////////////////////Tk5OTk5OTk5OTk5OTk5OTk5OTk5OTk5OTgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAQAAAAIAAAAAEACAAAAAAAAAEAAAAA + AAAAAAAAAAEAAAABAAAAAAAAVDkoABNfOgASYDkAG2I/ABtlQQAeZkEAGWlEAB11TwAafFAAJH5WADN1 + VABtc0YAi0sQAJFSEwCSVBYAmV4aAJhdHgCeZiUAm2grAJxqPAChaiQAo28oAKdyJgCicC0AqnUqAKJt + OAClczUApXA4AKN0PACseTsAqng/AJppQgCjckQArn5EAKl6SAAjg1oAJo1gAHqMWQBDhWUAQ4toAEiK + awBXh20AT5BpAFmNcQBWlXYAXZx/ALOEOwCvgU4AtopPALqQSgCwhFMAtIhYALqQXwCAmWUAvZphAL6Y + ZQCKqXAAwplJAMSfVwDSq1kAxZ9gAMincgDKq3sA3rx6APHQfwAKF44AAxSpAAkatgARILIAFSa9ABgn + ugAaJb8ALjm3AFJvkABrbZ4AS06rABUnxwAdLcEAIjPGADI+xgAkO+IAL0DPADVCwAA1RMsAOUTIAD1J + 0gA5WeAAPlriAE9cwwBGWtwAUF7VAE9txQBXZNMAUmXfAFxp2ABicN0ARlvhAEFi5QBHaOYAT3bpAFd9 + 6gBLkIEASKqEAFyhhABbtZMAXL2YAGGliABczZ0AbsamAHLOrwB51rYAe9uyAF6V8QBije0AeoXmAHmL + 6wB+jOoAd430AG6Y8ABwk/sAgYCcAMOhgQDCoYUAxaqDAMmrhgDOsIQAz7WMANK2jACCwagAgs6rAITM + swDaw5cA4MaXAN3HqQDdyakAhZDmAIWf7wCLoe8An6XlAJWv9ACGsP8ArbXyAJfZwwC318kAvd7OAKXk + zgCw6tgAsu3bAIrC/QC9wu8Ap8f4ALvU+QC72/wAvuP+AOjayQDJ59wA8+PHANDV9QDZ3/oA0engAMXy + 5ADY+O4A9e7kAOfz7gDm7fwA8vn3AP38+QD5+v8A//7/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAD///8AMTExMTExMTExMTExMTExMTH//////////////////zEx//////////// + //////8xMf////////////+mo6b/MTH/////////pJubm5um/zEx/4ajpqObhoabm4ab//8xMf8/MTg/ + hIaGhoZ/m///MTH/hjIxMjExPX9/f4b//zEx//83MTExMTc4OH+G//8xMf+mejIxMTc+Pj4+faD/MTH/ + /4YyMjo9Pj44fX2G/zEx//+bMn+kpf////////8xMf//o4b/////////////MTH///////////////// + /zEx//////////////////8xMTExMTExMTExMTExMTExMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA= + + + \ No newline at end of file diff --git a/Component.vb b/Component.vb new file mode 100644 index 0000000..cd5ca0d --- /dev/null +++ b/Component.vb @@ -0,0 +1,349 @@ +'---------------------------------------------------------------------------- +' EgalTech 2015-2015 +'---------------------------------------------------------------------------- +' File : Component.vb Data : 09.07.15 Versione : 1.6g3 +' Contenuto : Classe Component (dialogo esecuzione componente parametrico). +' +' +' +' Modifiche : 08.07.15 DS Creazione modulo. +' +' +'---------------------------------------------------------------------------- + +Imports System.Globalization +Imports TestEIn.EgtInterface + +Public Class Component + ' Constants + Private Const NUM_VAR As Integer = 10 + Private Const LUA_CMP_VARS As String = "CMP" + Private Const LUA_CMP_DRAW As String = "CMP_Draw" + + ' Properties + Private m_sCompoDir As String = String.Empty + Private m_sCompoName As String = String.Empty + Private m_CVars(NUM_VAR - 1) As CompoVar + + Private Sub Component_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load + ' imposto colore di default + Dim DefColor As New Color3d(0, 0, 0) + GetPrivateProfileColor(S_GEOMDB, K_DEFAULTCOLOR, DefColor, Form1.GetIniFile()) + Scene2.SetDefaultMaterial(DefColor) + ' imposto colori sfondo + Dim BackTopColor As New Color3d(192, 192, 192) + GetPrivateProfileColor(S_SCENE, K_BACKTOP, BackTopColor, Form1.GetIniFile()) + Dim BackBotColor As New Color3d(BackTopColor) + GetPrivateProfileColor(S_SCENE, K_BACKBOTTOM, BackBotColor, Form1.GetIniFile()) + Scene2.SetViewBackground(BackTopColor, BackBotColor) + ' imposto colore di evidenziazione + Dim MarkColor As New Color3d(255, 255, 0) + GetPrivateProfileColor(S_SCENE, K_MARK, MarkColor, Form1.GetIniFile()) + Scene2.SetMarkMaterial(MarkColor) + ' imposto colore per superfici selezionate + Dim SelSurfColor As New Color3d(255, 255, 192) + GetPrivateProfileColor(S_SCENE, K_SELSURF, SelSurfColor, Form1.GetIniFile()) + Scene2.SetSelSurfMaterial(SelSurfColor) + ' imposto tipo e colore del rettangolo di zoom + Dim bOutline As Boolean = True + Dim ZwColor As New Color3d(0, 0, 0) + GetPrivateProfileZoomWin(S_SCENE, K_ZOOMWIN, bOutline, ZwColor, Form1.GetIniFile()) + Scene2.SetZoomWinAttribs(bOutline, ZwColor) + ' imposto colore della linea di distanza + Dim DstLnColor As New Color3d(255, 0, 0) + GetPrivateProfileColor(S_SCENE, K_DISTLINE, DstLnColor, Form1.GetIniFile()) + Scene2.SetDistLineMaterial(DstLnColor) + ' imposto parametri OpenGL + Dim nDriver As Integer = GetPrivateProfileInt(S_OPENGL, K_DRIVER, 3, Form1.GetIniFile()) + Dim b2Buff As Boolean = (GetPrivateProfileInt(S_OPENGL, K_DOUBLEBUFFER, 1, Form1.GetIniFile()) <> 0) + Dim nColorBits As Integer = GetPrivateProfileInt(S_OPENGL, K_COLORBITS, 32, Form1.GetIniFile()) + Dim nDepthBits As Integer = GetPrivateProfileInt(S_OPENGL, K_DEPTHBITS, 32, Form1.GetIniFile()) + Scene2.SetViewAttributes(nDriver, b2Buff, nColorBits, nDepthBits) + ' inizializzo la scena (DB geometrico + visualizzazione) + Scene2.Init() + ' assegno posizione e dimensioni finestra + Dim nFlag As Integer + Dim nLeft As Integer + Dim nTop As Integer + Dim nWidth As Integer + Dim nHeight As Integer + GetPrivateProfileWinPos(S_COMPO, K_CMPWINPLACE, nFlag, nLeft, nTop, nWidth, nHeight, Form1.GetIniFile()) + Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual + Me.Location = New Point(nLeft, nTop) + Me.Size = New Size(nWidth, nHeight) + WindowState = If(nFlag = 1, FormWindowState.Maximized, FormWindowState.Normal) + ' leggo direttorio componenti + GetPrivateProfileString(S_COMPO, K_COMPODIR, "", m_sCompoDir, Form1.GetIniFile()) + ' recupero i file lua del direttorio e li inserisco nella lista dei componenti + Dim DirInfo As New IO.DirectoryInfo(m_sCompoDir) + Dim vFi As IO.FileInfo() = DirInfo.GetFiles("*.lua") + Dim Fi As IO.FileInfo + For Each Fi In vFi + ListBox1.Items.Add(IO.Path.GetFileNameWithoutExtension(Fi.Name)) + Next + ' imposto selezione sul primo + ListBox1.SelectedIndex = 0 + LoadCurrentCompo() + End Sub + + Private Sub Component_FormClosing(sender As System.Object, e As FormClosingEventArgs) Handles MyBase.FormClosing + ' Salvo posizione finestra + Dim nFlag As Integer = If(Me.WindowState = FormWindowState.Maximized, 1, 0) + WritePrivateProfileWinPos(S_COMPO, K_CMPWINPLACE, nFlag, Me.Left, Me.Top, Me.Width, Me.Height, Form1.GetIniFile()) + ' Pulisco l'ambiente lua + EgtLuaResetGlobVar(LUA_CMP_VARS) + EgtLuaResetGlobVar(LUA_CMP_DRAW) + ' Termino la scena (DB geometrico + visualizzazione) + Scene2.Terminate() + End Sub + + Private Sub Component_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles Me.KeyDown + If e.KeyData = Keys.Escape Then + Me.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.Close() + End If + End Sub + + Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click + LoadCurrentCompo() + End Sub + + Private Sub LoadCurrentCompo() + ' Recupero item selezionato + Dim sCompo As String = ListBox1.SelectedItem.ToString() + ' verifico se cambiato + If sCompo = m_sCompoName Then + Return + End If + m_sCompoName = sCompo + 'Pulisco l'ambiente lua + EgtLuaResetGlobVar(LUA_CMP_VARS) + EgtLuaResetGlobVar(LUA_CMP_DRAW) + ' Costruisco path completa del componente + Dim sPath = m_sCompoDir & "\" & m_sCompoName & ".lua" + ' Lo eseguo + If Not EgtLuaExecFile(sPath) Then + EgtNewFile() + tbMsg.Text = "Error in component execution" + Else + tbMsg.Text = "" + End If + Scene2.ZoomAll() + ' recupero nome, tipo e valore delle variabili globali + For i As Integer = 1 To NUM_VAR + Dim CVar = New CompoVar + If CVar.NameTypeValueFromLua(i) Then + m_CVars(i - 1) = CVar + Else + m_CVars(i - 1) = Nothing + End If + Next + ' aggiorno la griglia + For i As Integer = 1 To NUM_VAR + If m_CVars(i - 1) IsNot Nothing Then + GetNameEdit(i).Text = m_CVars(i - 1).m_sName + GetNameEdit(i).Show() + GetValueEdit(i).Text = m_CVars(i - 1).ToString() + GetValueEdit(i).Show() + Else + GetNameEdit(i).Hide() + GetValueEdit(i).Hide() + End If + Next + ' abilito bottoni Vista e Inserisci + btnView.Enabled = True + btnInsert.Enabled = True + End Sub + + Private Sub btnView_Click(sender As Object, e As EventArgs) Handles btnView.Click + ' aggiorno le variabili + For i As Integer = 1 To NUM_VAR + If m_CVars(i - 1) IsNot Nothing Then + ' interpreto il valore, se non riesco ripristino default + If Not m_CVars(i - 1).FromString(GetValueEdit(i).Text) Then + GetValueEdit(i).Text = m_CVars(i - 1).ToString() + End If + ' aggiorno la corrispondente variabile lua + If Not m_CVars(i - 1).ToLua(i) Then + Dim sErr As String = String.Empty + EgtLuaGetLastError(sErr) + EgtOutLog(sErr) + End If + End If + Next + ' ricalcolo il disegno + If Not EgtLuaExecLine(LUA_CMP_DRAW & "(true)") Then + tbMsg.Text = "Error in component execution" + Else + Dim nErr As Integer = 0 + EgtLuaGetGlobIntVar(LUA_CMP_VARS & ".ERR", nErr) + If nErr <> 0 Then + Dim sMsg As String = String.Empty + EgtLuaGetGlobStringVar(LUA_CMP_VARS & ".MSG", sMsg) + tbMsg.Text = sMsg + Else + tbMsg.Text = "" + End If + End If + EgtZoom(ZM.ALL) + End Sub + + Private Sub btnInsert_Click(sender As Object, e As EventArgs) Handles btnInsert.Click + ' Lancio View per aggiornare il disegno + btnView_Click(sender, e) + ' Inserisco il componente nel DB geometrico principale + EgtSetCurrentContext(Form1.GetCtx()) + If Not EgtLuaExecLine(LUA_CMP_DRAW & "(false)") Then + Dim sErr As String = String.Empty + EgtLuaGetLastError(sErr) + EgtOutLog(sErr) + End If + Form1.LoadObjTree() + EgtZoom(ZM.ALL) + EgtSetCurrentContext(Scene2.GetCtx()) + End Sub + + Private Function GetNameEdit(ByVal nInd As Integer) As TextBox + Select Case nInd + Case 1 + Return tbName1 + Case 2 + Return tbName2 + Case 3 + Return tbName3 + Case 4 + Return tbName4 + Case 5 + Return tbName5 + Case 6 + Return tbName6 + Case 7 + Return tbName7 + Case 8 + Return tbName8 + Case 9 + Return tbName9 + Case Else + Return tbName10 + End Select + End Function + + Private Function GetValueEdit(ByVal nInd As Integer) As TextBox + Select Case nInd + Case 1 + Return tbValue1 + Case 2 + Return tbValue2 + Case 3 + Return tbValue3 + Case 4 + Return tbValue4 + Case 5 + Return tbValue5 + Case 6 + Return tbValue6 + Case 7 + Return tbValue7 + Case 8 + Return tbValue8 + Case 9 + Return tbValue9 + Case Else + Return tbValue10 + End Select + End Function + + Private Class CompoVar + + ' Public Members + Public m_sName As String + Public m_nType As Integer + Public m_bVal As Boolean + Public m_nVal As Integer + Public m_dVal As Double + Public m_sVal As String + + ' Constants + Const LUA_NAME As String = LUA_CMP_VARS & ".N" + Const LUA_TYPE As String = LUA_CMP_VARS & ".T" + Const LUA_VALUE As String = LUA_CMP_VARS & ".V" + + Public Sub New() + m_nType = 0 + End Sub + + Public Overrides Function ToString() As String + Select Case m_nType + Case 1 + Return m_bVal.ToString() + Case 2 + Return m_nVal.ToString() + Case 3 + Return m_dVal.ToString(CultureInfo.InvariantCulture) + Case 4 + Return m_sVal + End Select + Return "" + End Function + + Public Function FromString(ByVal sVal As String) As Boolean + Select Case m_nType + Case 1 + Dim bVal As Boolean = False + If Boolean.TryParse(sVal, bVal) Then + m_bVal = bVal + Return True + End If + Case 2 + Dim dVal As Double + If EgtLuaEvalNumExpr(sVal, dVal) Then + m_nVal = CInt(dVal) + Return True + End If + Case 3 + Dim dVal As Double + If EgtLuaEvalNumExpr(sVal, dVal) Then + m_dVal = dVal + Return True + End If + Case 4 + m_sVal = sVal + Return True + End Select + Return False + End Function + + Public Function ToLua(ByVal nInd As Integer) As Boolean + Select Case m_nType + Case 1 + Return EgtLuaSetGlobBoolVar(LUA_VALUE & nInd.ToString(), m_bVal) + Case 2 + Return EgtLuaSetGlobIntVar(LUA_VALUE & nInd.ToString(), m_nVal) + Case 3 + Return EgtLuaSetGlobNumVar(LUA_VALUE & nInd.ToString(), m_dVal) + Case 4 + Return EgtLuaSetGlobStringVar(LUA_VALUE & nInd.ToString(), m_sVal) + End Select + Return False + End Function + + Public Function NameTypeValueFromLua(ByVal nInd As Integer) As Boolean + Dim bOk As Boolean = True + bOk = bOk AndAlso EgtLuaGetGlobStringVar(LUA_NAME & nInd.ToString(), m_sName) + bOk = bOk AndAlso EgtLuaGetGlobIntVar(LUA_TYPE & nInd.ToString(), m_nType) + Select Case m_nType + Case 1 + Return bOk AndAlso EgtLuaGetGlobBoolVar(LUA_VALUE & nInd.ToString(), m_bVal) + Case 2 + Return bOk AndAlso EgtLuaGetGlobIntVar(LUA_VALUE & nInd.ToString(), m_nVal) + Case 3 + Return bOk AndAlso EgtLuaGetGlobNumVar(LUA_VALUE & nInd.ToString(), m_dVal) + Case 4 + Return bOk AndAlso EgtLuaGetGlobStringVar(LUA_VALUE & nInd.ToString(), m_sVal) + End Select + Return False + End Function + + End Class + +End Class diff --git a/ConstIni.vb b/ConstIni.vb index 88ffe41..7a6d82c 100644 --- a/ConstIni.vb +++ b/ConstIni.vb @@ -67,6 +67,13 @@ Public Const K_EXTSSTEP As String = "ExtSStep" Public Const K_MINLNCOLOR As String = "MinLnColor" Public Const K_MAJLNCOLOR As String = "MajLnColor" +Public Const S_TABTEST As String = "TabTest" +Public Const K_SHOWTT As String = "Show" + +Public Const S_COMPO As String = "Compo" +Public Const K_CMPWINPLACE As String = "WinPlace" +Public Const K_COMPODIR As String = "CompoDir" + Public Const S_MACH As String = "Mach" Public Const K_MACHINESDIR As String = "MachinesDir" diff --git a/EgtInterface.vb b/EgtInterface.vb index 896076e..41424af 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -122,7 +122,7 @@ Structure Vector3d dAngOrizzDeg = 0 ' se diretto come Z ElseIf Math.Abs(x) < EPS_ZERO And Math.Abs(y) < EPS_ZERO Then - dAngVertDeg = IIf(z > 0, 0, 180) + dAngVertDeg = If(z > 0, 0, 180) dAngOrizzDeg = 0 ' se altrimenti nel piano XY ElseIf Math.Abs(z) < EPS_ZERO Then @@ -814,17 +814,31 @@ End Function '---------- GeomDb ------------------------------------------------------------- - -Private Function EgtInitGeomDB_32() As Integer + +Private Function EgtInitContext_32() As Integer End Function - -Private Function EgtInitGeomDB_64() As Integer + +Private Function EgtInitContext_64() As Integer End Function -Public Function EgtInitGeomDB() As Integer +Public Function EgtInitContext() As Integer If IntPtr.Size = 4 Then - Return EgtInitGeomDB_32() + Return EgtInitContext_32() Else - Return EgtInitGeomDB_64() + Return EgtInitContext_64() + End If +End Function + + +Private Function EgtDeleteContext_32(ByVal nCtx As Integer) As Boolean +End Function + +Private Function EgtDeleteContext_64(ByVal nCtx As Integer) As Boolean +End Function +Public Function EgtDeleteContext(ByVal nCtx As Integer) As Boolean + If IntPtr.Size = 4 Then + Return EgtDeleteContext_32(nCtx) + Else + Return EgtDeleteContext_64(nCtx) End If End Function @@ -1289,6 +1303,156 @@ End Function '---------- LUA Executor ------------------------------------------------------- + +Private Function EgtLuaSetGlobBoolVar_32(ByVal sVar As String, ByVal bVal As Boolean) As Boolean +End Function + +Private Function EgtLuaSetGlobBoolVar_64(ByVal sVar As String, ByVal bVal As Boolean) As Boolean +End Function +Public Function EgtLuaSetGlobBoolVar(ByVal sVar As String, ByVal bVal As Boolean) As Boolean + If IntPtr.Size = 4 Then + Return EgtLuaSetGlobBoolVar_32(sVar, bVal) + Else + Return EgtLuaSetGlobBoolVar_64(sVar, bVal) + End If +End Function + + +Private Function EgtLuaSetGlobIntVar_32(ByVal sVar As String, ByVal nVal As Integer) As Boolean +End Function + +Private Function EgtLuaSetGlobIntVar_64(ByVal sVar As String, ByVal nVal As Integer) As Boolean +End Function +Public Function EgtLuaSetGlobIntVar(ByVal sVar As String, ByVal nVal As Integer) As Boolean + If IntPtr.Size = 4 Then + Return EgtLuaSetGlobIntVar_32(sVar, nVal) + Else + Return EgtLuaSetGlobIntVar_64(sVar, nVal) + End If +End Function + + +Private Function EgtLuaSetGlobNumVar_32(ByVal sVar As String, ByVal dVal As Double) As Boolean +End Function + +Private Function EgtLuaSetGlobNumVar_64(ByVal sVar As String, ByVal dVal As Double) As Boolean +End Function +Public Function EgtLuaSetGlobNumVar(ByVal sVar As String, ByVal dVal As Double) As Boolean + If IntPtr.Size = 4 Then + Return EgtLuaSetGlobNumVar_32(sVar, dVal) + Else + Return EgtLuaSetGlobNumVar_64(sVar, dVal) + End If +End Function + + +Private Function EgtLuaSetGlobStringVar_32(ByVal sVar As String, ByVal sVal As String) As Boolean +End Function + +Private Function EgtLuaSetGlobStringVar_64(ByVal sVar As String, ByVal sVal As String) As Boolean +End Function +Public Function EgtLuaSetGlobStringVar(ByVal sVar As String, ByVal sVal As String) As Boolean + If IntPtr.Size = 4 Then + Return EgtLuaSetGlobStringVar_32(sVar, sVal) + Else + Return EgtLuaSetGlobStringVar_64(sVar, sVal) + End If +End Function + + +Private Function EgtLuaGetGlobBoolVar_32(ByVal sVar As String, ByRef bVal As Boolean) As Boolean +End Function + +Private Function EgtLuaGetGlobBoolVar_64(ByVal sVar As String, ByRef bVal As Boolean) As Boolean +End Function +Public Function EgtLuaGetGlobBoolVar(ByVal sVar As String, ByRef bVal As Boolean) As Boolean + If IntPtr.Size = 4 Then + Return EgtLuaGetGlobBoolVar_32(sVar, bVal) + Else + Return EgtLuaGetGlobBoolVar_64(sVar, bVal) + End If +End Function + + +Private Function EgtLuaGetGlobIntVar_32(ByVal sVar As String, ByRef nVal As Integer) As Boolean +End Function + +Private Function EgtLuaGetGlobIntVar_64(ByVal sVar As String, ByRef nVal As Integer) As Boolean +End Function +Public Function EgtLuaGetGlobIntVar(ByVal sVar As String, ByRef nVal As Integer) As Boolean + If IntPtr.Size = 4 Then + Return EgtLuaGetGlobIntVar_32(sVar, nVal) + Else + Return EgtLuaGetGlobIntVar_64(sVar, nVal) + End If +End Function + + +Private Function EgtLuaGetGlobNumVar_32(ByVal sVar As String, ByRef dVal As Double) As Boolean +End Function + +Private Function EgtLuaGetGlobNumVar_64(ByVal sVar As String, ByRef dVal As Double) As Boolean +End Function +Public Function EgtLuaGetGlobNumVar(ByVal sVar As String, ByRef dVal As Double) As Boolean + If IntPtr.Size = 4 Then + Return EgtLuaGetGlobNumVar_32(sVar, dVal) + Else + Return EgtLuaGetGlobNumVar_64(sVar, dVal) + End If +End Function + + +Private Function EgtLuaGetGlobStringVar_32(ByVal sVar As String, ByRef psVal As IntPtr) As Boolean +End Function + +Private Function EgtLuaGetGlobStringVar_64(ByVal sVar As String, ByRef psVal As IntPtr) As Boolean +End Function +Public Function EgtLuaGetGlobStringVar(ByVal sVar As String, ByRef sVal As String) As Boolean + Dim psVal As IntPtr + Dim bOk As Boolean + If IntPtr.Size = 4 Then + bOk = EgtLuaGetGlobStringVar_32(sVar, psVal) + Else + bOk = EgtLuaGetGlobStringVar_64(sVar, psVal) + End If + If bOk Then + sVal = Marshal.PtrToStringUni(psVal) + EgtFreeMemory(psVal) + Else + sVal = String.Empty + End If + Return bOk +End Function + + +Private Function EgtLuaResetGlobVar_32(ByVal sVar As String) As Boolean +End Function + +Private Function EgtLuaResetGlobVar_64(ByVal sVar As String) As Boolean +End Function +Public Function EgtLuaResetGlobVar(ByVal sVar As String) As Boolean + If IntPtr.Size = 4 Then + Return EgtLuaResetGlobVar_32(sVar) + Else + Return EgtLuaResetGlobVar_64(sVar) + End If +End Function + + +Private Function EgtLuaCreateGlobTable_32(ByVal sVar As String) As Boolean +End Function + +Private Function EgtLuaCreateGlobTable_64(ByVal sVar As String) As Boolean +End Function +Public Function EgtLuaCreateGlobTable(ByVal sVar As String) As Boolean + If IntPtr.Size = 4 Then + Return EgtLuaCreateGlobTable_32(sVar) + Else + Return EgtLuaCreateGlobTable_64(sVar) + End If +End Function + + Private Function EgtLuaEvalNumExpr_32(ByVal sLine As String, ByRef dVal As Double) As Boolean End Function diff --git a/Form1.Designer.vb b/Form1.Designer.vb index d023e8b..c16daa3 100644 --- a/Form1.Designer.vb +++ b/Form1.Designer.vb @@ -183,6 +183,7 @@ Partial Class Form1 Me.MruSFile6 = New System.Windows.Forms.ToolStripMenuItem() Me.MruSFile7 = New System.Windows.Forms.ToolStripMenuItem() Me.MruSFile8 = New System.Windows.Forms.ToolStripMenuItem() + Me.btnCompo = New System.Windows.Forms.Button() Me.TableLayoutPanel1.SuspendLayout() Me.TabControl1.SuspendLayout() Me.TabFile.SuspendLayout() @@ -201,6 +202,7 @@ Partial Class Form1 Me.TabConstruct.SuspendLayout() Me.TabEdit.SuspendLayout() Me.TabTransform.SuspendLayout() + Me.TabTest.SuspendLayout() Me.StatusStrip1.SuspendLayout() Me.ContextMenuTreeView1.SuspendLayout() Me.ContextMenuMruFiles.SuspendLayout() @@ -2003,6 +2005,7 @@ Partial Class Form1 'TabTest ' Me.TabTest.BackColor = System.Drawing.SystemColors.Control + Me.TabTest.Controls.Add(Me.btnCompo) Me.TabTest.Location = New System.Drawing.Point(23, 4) Me.TabTest.Name = "TabTest" Me.TabTest.Padding = New System.Windows.Forms.Padding(3) @@ -2372,6 +2375,24 @@ Partial Class Form1 Me.MruSFile8.Size = New System.Drawing.Size(160, 22) Me.MruSFile8.Text = "File8" ' + 'btnCompo + ' + Me.btnCompo.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control + Me.btnCompo.FlatAppearance.BorderSize = 0 + Me.btnCompo.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control + Me.btnCompo.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption + Me.btnCompo.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCompo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnCompo.Image = CType(resources.GetObject("btnCompo.Image"), System.Drawing.Image) + Me.btnCompo.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnCompo.Location = New System.Drawing.Point(3, 2) + Me.btnCompo.Name = "btnCompo" + Me.btnCompo.Size = New System.Drawing.Size(56, 48) + Me.btnCompo.TabIndex = 46 + Me.btnCompo.Text = "Compo" + Me.btnCompo.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnCompo.UseVisualStyleBackColor = False + ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -2412,6 +2433,7 @@ Partial Class Form1 Me.TabConstruct.ResumeLayout(False) Me.TabEdit.ResumeLayout(False) Me.TabTransform.ResumeLayout(False) + Me.TabTest.ResumeLayout(False) Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.PerformLayout() Me.ContextMenuTreeView1.ResumeLayout(False) @@ -2581,5 +2603,6 @@ End Sub Friend WithEvents btnFillet As System.Windows.Forms.Button Friend WithEvents btnExplodeSurf As System.Windows.Forms.Button Friend WithEvents cmdSavePartLay As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents btnCompo As System.Windows.Forms.Button End Class diff --git a/Form1.resx b/Form1.resx index 9c191e9..3c0e1e4 100644 --- a/Form1.resx +++ b/Form1.resx @@ -883,7 +883,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAC2 - DQAAAk1TRnQBSQFMAgEBDgEAAaABEAGgAhABAAEQAQAE/wEJAQAI/wFCAU0BNgEEBgABNgEEAgABKAMA + DQAAAk1TRnQBSQFMAgEBDgEAAcgBEAHIAhABAAEQAQAE/wEJAQAI/wFCAU0BNgEEBgABNgEEAgABKAMA AUADAAFAAwABAQEAAQgGAAEQGAABgAIAAYADAAKAAQABgAMAAYABAAGAAQACgAIAA8ABAAHAAdwBwAEA AfABygGmAQABMwUAATMBAAEzAQABMwEAAjMCAAMWAQADHAEAAyIBAAMpAQADVQEAA00BAANCAQADOQEA AYABfAH/AQACUAH/AQABkwEAAdYBAAH/AewBzAEAAcYB1gHvAQAB1gLnAQABkAGpAa0CAAH/ATMDAAFm @@ -952,7 +952,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADW - CAAAAk1TRnQBSQFMAgEBAgEAAcABBwHAAQcBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CAAAAk1TRnQBSQFMAgEBAgEAAegBBwHoAQcBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -1476,6 +1476,15 @@ 2YdS/gEIUYjCPLwtix5CiFaQ2J+940IvOQgDzRJQlOAXbRneXwOKUvy6HRagMA8n768Bxa2U5rH2B55d AopbIFMypBP1twLFNbTMCSw+Pw6R+0rmRF0ks8f7CmFBNPhdWsYcxRDTJjFPKIWYttMHCBdJCCVzoi4o RCtI7JdvesFiCsLgcxpA0RIoWgJFS6BoCRQtgaIdbvgCS/kFfmOvgmgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAAd0SU1FB98HCA4yOw7NYPoAAAC4SURBVFhH7ZBBDsIwDARzReKdvIt/9MKZb3Dk + EUG2lGgJGyq1zraIHkapp5G9cco5bwqVz3R64BlJ27t7SYHN6gbAM5K299dLI3kLYAWSztNNQQ2AiVza + hev9Eo0/rtQYAF8/KgDOcLerDfxFAOtfcPfbG7D/AawKUO6upX4cAY4ALIA5HFxrRQCre4QHwOYu97AB + HPzByA34Ky3ADG2jpVCphEolVCqhUgmVSqhUQqUSKpVQqSOnF6xhNVQqUtiyAAAAAElFTkSuQmCC diff --git a/Form1.vb b/Form1.vb index 105987d..69362e2 100644 --- a/Form1.vb +++ b/Form1.vb @@ -56,6 +56,10 @@ Public Class Form1 Return m_sMachinesRoot End Function + Public Function GetIniFile() As String + Return m_sIniFile + End Function + Public Function GetDebug() As Integer Return m_nDebug End Function @@ -64,6 +68,9 @@ Public Class Form1 Return m_nUserLevel End Function + Public Function GetCtx() As Integer + Return Scene1.GetCtx() + End Function '-------------------------------- Form ------------------------------------------------------------ Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load @@ -206,8 +213,11 @@ Public Class Form1 AppendMenu(hSysMenu, MF_SEPARATOR, 0, "") AppendMenu(hSysMenu, MF_STRING, IDM_ABOUTBOX, "About TestEIn...") End If - ' Nascondo TabTest - TabControl2.TabPages.Remove(TabTest) + ' Visualizzo o nascondo TabTest + Dim bShowTabTest As Boolean = (GetPrivateProfileInt(S_TABTEST, K_SHOWTT, 0, m_sIniFile) <> 0) + If Not bShowTabTest Then + TabControl2.TabPages.Remove(TabTest) + End If ' Posizione e dimensioni del Form If ModifierKeys <> Keys.Shift Then Dim nFlag As Integer @@ -219,7 +229,7 @@ Public Class Form1 Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual Me.Location = New Point(nLeft, nTop) Me.Size = New Size(nWidth, nHeight) - WindowState = IIf(nFlag = 1, FormWindowState.Maximized, FormWindowState.Normal) + WindowState = If(nFlag = 1, FormWindowState.Maximized, FormWindowState.Normal) End If ' Impostazioni controller m_Controller.SetScene(Scene1) @@ -363,9 +373,9 @@ Public Class Form1 ' Salvo modo di visualizzazione WritePrivateProfileString(S_SCENE, K_SHOWMODE, EgtGetShowMode(), m_sIniFile) ' Salvo stato visualizzazione direzione curve - WritePrivateProfileString(S_SCENE, K_CURVEDIR, IIf(EgtGetShowCurveDirection(), 1, 0), m_sIniFile) + WritePrivateProfileString(S_SCENE, K_CURVEDIR, If(EgtGetShowCurveDirection(), 1, 0), m_sIniFile) ' Salvo posizione Form - Dim nFlag As Integer = IIf(Me.WindowState = FormWindowState.Maximized, 1, 0) + Dim nFlag As Integer = If(Me.WindowState = FormWindowState.Maximized, 1, 0) WritePrivateProfileWinPos(S_GENERAL, K_WINPLACE, nFlag, Me.Left, Me.Top, Me.Width, Me.Height, m_sIniFile) ' Terminazione generale di EgtInterface EgtExit() @@ -610,6 +620,7 @@ Public Class Form1 btnMergeSurf.Enabled = bSelOk btnExplodeSurf.Enabled = bSelOk btnInvertSurf.Enabled = bSelOk + btnCompo.Enabled = bLayerOk ' Edit btnDelete.Enabled = bSelOk btnChangeLayer.Enabled = bSelOk @@ -699,6 +710,7 @@ Public Class Form1 SetTextAndToolTip(btnMergeSurf, 413, 414) ' Merge / Merge Surfaces SetTextAndToolTip(btnExplodeSurf, 417, 418) ' Explode / Explode Surfaces SetTextAndToolTip(btnInvertSurf, 415, 416) ' Flip / Flip Surface Outside + SetTextAndToolTip(btnCompo, 419, 420) ' Compo / Insert Parametric Component ' Edit TabEdit.Text = EgtMsg(501) ' Edit SetTextAndToolTip(btnDelete, 503, 504) ' Delete Objects @@ -730,7 +742,8 @@ Public Class Form1 End Sub - '-------------------------------- Top Commands --------------------------------------------------- + '-------------------------------- Top Commands --------------------------------------------------- + ' ------ File ------- Private Sub btnNew_Click(sender As System.Object, e As System.EventArgs) Handles btnNew.Click m_Controller.NewProject(True) End Sub @@ -796,6 +809,7 @@ Public Class Form1 End If End Sub + ' ------ View ------- Private Sub btnWireFrame_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles btnWireFrame.CheckedChanged Scene1.WireFrame() End Sub @@ -808,31 +822,6 @@ Public Class Form1 Scene1.Shading() End Sub - Private Sub chkCurveDir_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkCurveDir.CheckedChanged - EgtSetShowCurveDirection(chkCurveDir.Checked) - End Sub - - Private Sub chkAnalyze_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkAnalyze.CheckedChanged - If chkAnalyze.Checked Then - chkGetDist.Checked = False - Scene1.SetStatusAnalyze() - Else - Scene1.ResetStatusAnalyze() - SelectIdInObjTree(GDB_ID.NULL) - End If - End Sub - - Private Sub chkGetDist_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkGetDist.CheckedChanged - If chkGetDist.Checked Then - chkAnalyze.Checked = False - Scene1.SetStatusGetDistance() - EmitStripStatusOutput("") - Else - Scene1.ResetStatusGetDistance() - EmitStripStatusOutput("") - End If - End Sub - Private Sub btnZoomAll_Click(sender As System.Object, e As System.EventArgs) Handles btnZoomAll.Click Scene1.ZoomAll() End Sub @@ -885,6 +874,32 @@ Public Class Form1 Scene1.IsoViewNW() End Sub + Private Sub chkCurveDir_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkCurveDir.CheckedChanged + EgtSetShowCurveDirection(chkCurveDir.Checked) + End Sub + + Private Sub chkAnalyze_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkAnalyze.CheckedChanged + If chkAnalyze.Checked Then + chkGetDist.Checked = False + Scene1.SetStatusAnalyze() + Else + Scene1.ResetStatusAnalyze() + SelectIdInObjTree(GDB_ID.NULL) + End If + End Sub + + Private Sub chkGetDist_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkGetDist.CheckedChanged + If chkGetDist.Checked Then + chkAnalyze.Checked = False + Scene1.SetStatusGetDistance() + EmitStripStatusOutput("") + Else + Scene1.ResetStatusGetDistance() + EmitStripStatusOutput("") + End If + End Sub + + ' ------ Grid ------- Private Sub btnCplaneTop_Click(sender As System.Object, e As System.EventArgs) Handles btnCplaneTop.Click m_Controller.SetLastInteger(GRID_TYPE.TOP) m_Controller.ExecuteCommand(CMD.GRID) @@ -950,6 +965,7 @@ Public Class Form1 ' --------------------- Commands -------------------------------- + ' ------ Draw ------- Private Sub btnPoint_Click(sender As System.Object, e As System.EventArgs) Handles btnPoint.Click If (ModifierKeys And Keys.Control) = Keys.Control Then m_Controller.ExecuteCommand(CMD.FRAME) @@ -1032,6 +1048,7 @@ Public Class Form1 End If End Sub + ' ------ Create ------- Private Sub btnPlane_Click(sender As System.Object, e As System.EventArgs) Handles btnPlane.Click m_Controller.ExecuteCommand(CMD.PLANE) End Sub @@ -1064,6 +1081,7 @@ Public Class Form1 m_Controller.ExecuteCommand(CMD.INVERTSURF) End Sub + ' ------ Modify ------- Private Sub btnDelete_Click(sender As System.Object, e As System.EventArgs) Handles btnDelete.Click m_Controller.SetLastInteger(GDB_ID.SEL) m_Controller.ExecuteCommand(CMD.DELETE) @@ -1120,6 +1138,7 @@ Public Class Form1 m_Controller.ExecuteCommand(CMD.SETCURVETHICKNESS) End Sub + ' ------ Transform ------- Private Sub btnMove_Click(sender As System.Object, e As System.EventArgs) Handles btnMove.Click m_Controller.ExecuteCommand(CMD.MOVE) End Sub @@ -1152,6 +1171,19 @@ Public Class Form1 m_Controller.ExecuteCommand(CMD.OFFSET) End Sub + ' ------ Test ------- + Private Sub btnCompo_Click(sender As System.Object, e As System.EventArgs) Handles btnCompo.Click + ' lancio dialogo componenti + Dim CompoDlg As New Component + CompoDlg.ShowDialog() + ' ripristino contesto principale + EgtSetCurrentContext(Scene1.GetCtx()) + ' aggiorno interfaccia + EmitCurrPartLayer() + LoadObjTree() + EgtZoom(ZM.ALL) + End Sub + '-------------------------------- KeyDown -------------------------------------------------------- Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles MyBase.KeyDown diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index e0f60a6..9448983 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices ' utilizzando l'asterisco (*) come descritto di seguito: ' - - + + diff --git a/Resources/Compo.png b/Resources/Compo.png new file mode 100644 index 0000000000000000000000000000000000000000..3f2fefd79370df35b581e793c9292dc93273f503 GIT binary patch literal 366 zcmeAS@N?(olHy`uVBq!ia0vp^3LwnE1|*BCs=fdzwj^(N7l!{JxM1({$v_d#0*}aI z1_r((Aj~*bn@<`j$X?><>&kwgorBNFn(u7FFQCwGPZ!6Kh{MT${{Oc>?7*a!)08i< zQ%?Ev6_yui#!1|aQ4u}79e@6-o&NCue?8BiS&g3!jeLE3^2~%C#V;MY?$Pk^|Ns9I zj(Vpyztpo`^x%KGIJ?-4)%OgFY}t!T9GNRXLw_ER7`(10t9%BL6^deZN5PFohV3m6Oxp00i_>zopr E0Po3=VgLXD literal 0 HcmV?d00001 diff --git a/Scene.vb b/Scene.vb index 6681cf7..5ffa899 100644 --- a/Scene.vb +++ b/Scene.vb @@ -137,7 +137,7 @@ Public Class Scene 'Mettere EgtExit nell'evento FormClosing Public Sub Init() - m_nGseContext = EgtInitGeomDB() + m_nGseContext = EgtInitContext() EgtSetDefaultMaterial(m_DefColor) EgtInitScene(Handle, m_nDriver, m_b2Buff, m_nColorBits, m_nDepthBits) EgtSetBackground(m_BackTopColor, m_BackBotColor) @@ -150,12 +150,23 @@ Public Class Scene RaiseEvent OnChangedSnapPointType(Me, m_nSnapType, True) End Sub + Public Sub Terminate() + If m_nGseContext <> 0 Then + EgtDeleteContext(m_nGseContext) + m_nGseContext = 0 + End If + End Sub + Public Function GetCtx() As Integer Return m_nGseContext End Function Protected Overrides Sub OnPaint(e As PaintEventArgs) MyBase.OnPaint(e) + ' Se contesto non valido, esco subito + If m_nGseContext = 0 Then + Return + End If ' Salvo il contesto corrente e imposto quello della scena Dim nOldGseCtx = EgtGetCurrentContext() If nOldGseCtx <> m_nGseContext Then @@ -175,6 +186,10 @@ Public Class Scene Protected Overrides Sub OnResize(e As System.EventArgs) MyBase.OnResize(e) + ' Se contesto non valido, esco subito + If m_nGseContext = 0 Then + Return + End If ' Salvo il contesto corrente e imposto quello della scena Dim nOldGseCtx = EgtGetCurrentContext() If nOldGseCtx <> m_nGseContext Then @@ -515,7 +530,7 @@ Public Class Scene ElseIf m_nStatus = ST.SELPOINT Then Cursor = New Cursor(Me.GetType(), "SelPoint.cur") Dim ptP As Point3d - If EgtGetGraphicSnapPoint(IIf(m_nSnapType = SP.PT_GRID, SP.PT_GRID, SP.PT_SKETCH), + If EgtGetGraphicSnapPoint(If(m_nSnapType = SP.PT_GRID, SP.PT_GRID, SP.PT_SKETCH), e.Location, DIM_SEL, DIM_SEL, ptP) Then If m_bDragOn Then RaiseEvent OnMouseMoveSelPoint(Me, ptP) @@ -1160,62 +1175,62 @@ Public Class Scene EgtZoom(ZM.OUT) End Sub - '---- Rendering Buttons ---- - Public Sub WireFrame() - EgtSetShowMode(SM.WIREFRAME) - End Sub + '---- Rendering Buttons ---- + Public Sub WireFrame() + EgtSetShowMode(SM.WIREFRAME) + End Sub - Public Sub HiddenLine() - EgtSetShowMode(SM.HIDDENLINE) - End Sub + Public Sub HiddenLine() + EgtSetShowMode(SM.HIDDENLINE) + End Sub - Public Sub Shading() - EgtSetShowMode(SM.SHADING) - End Sub + Public Sub Shading() + EgtSetShowMode(SM.SHADING) + End Sub '---- LookFrom Buttons ---- - Public Sub TopView() - EgtSetView(VT.TOP) - End Sub + Public Sub TopView() + EgtSetView(VT.TOP) + End Sub - Public Sub FrontView() - EgtSetView(VT.FRONT) - End Sub + Public Sub FrontView() + EgtSetView(VT.FRONT) + End Sub - Public Sub BackView() - EgtSetView(VT.BACK) - End Sub + Public Sub BackView() + EgtSetView(VT.BACK) + End Sub - Public Sub LeftView() - EgtSetView(VT.LEFT) - End Sub + Public Sub LeftView() + EgtSetView(VT.LEFT) + End Sub - Public Sub RightView() - EgtSetView(VT.RIGHT) - End Sub + Public Sub RightView() + EgtSetView(VT.RIGHT) + End Sub - Public Sub BottomView() - EgtSetView(VT.BOTTOM) - End Sub + Public Sub BottomView() + EgtSetView(VT.BOTTOM) + End Sub - Public Sub IsoViewSW() - EgtSetView(VT.ISO_SW) - End Sub + Public Sub IsoViewSW() + EgtSetView(VT.ISO_SW) + End Sub - Public Sub IsoViewSE() - EgtSetView(VT.ISO_SE) - End Sub + Public Sub IsoViewSE() + EgtSetView(VT.ISO_SE) + End Sub - Public Sub IsoViewNE() - EgtSetView(VT.ISO_NE) - End Sub + Public Sub IsoViewNE() + EgtSetView(VT.ISO_NE) + End Sub - Public Sub IsoViewNW() - EgtSetView(VT.ISO_NW) - End Sub + Public Sub IsoViewNW() + EgtSetView(VT.ISO_NW) + End Sub - Public Sub CPlaneView() - EgtSetView(VT.CPLANE) - End Sub + Public Sub CPlaneView() + EgtSetView(VT.CPLANE) + End Sub End Class \ No newline at end of file diff --git a/SelectMulti.Designer.vb b/SelectMulti.Designer.vb index 1420005..0337ed1 100644 --- a/SelectMulti.Designer.vb +++ b/SelectMulti.Designer.vb @@ -22,26 +22,46 @@ Partial Class SelectMulti 'Non modificarla nell'editor del codice. _ Private Sub InitializeComponent() + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() Me.ListBox1 = New System.Windows.Forms.ListBox() Me.OK_Button = New System.Windows.Forms.Button() + Me.TableLayoutPanel1.SuspendLayout() Me.SuspendLayout() ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.CausesValidation = False + Me.TableLayoutPanel1.ColumnCount = 1 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.Controls.Add(Me.ListBox1, 0, 0) + Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 1) + Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel1.Margin = New System.Windows.Forms.Padding(0) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 2 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 24.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(94, 121) + Me.TableLayoutPanel1.TabIndex = 1 + ' 'ListBox1 ' - Me.ListBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.ListBox1.Dock = System.Windows.Forms.DockStyle.Fill Me.ListBox1.FormattingEnabled = True - Me.ListBox1.Location = New System.Drawing.Point(0, 0) - Me.ListBox1.Margin = New System.Windows.Forms.Padding(0) + Me.ListBox1.Location = New System.Drawing.Point(1, 1) + Me.ListBox1.Margin = New System.Windows.Forms.Padding(1) Me.ListBox1.Name = "ListBox1" - Me.ListBox1.Size = New System.Drawing.Size(98, 108) - Me.ListBox1.TabIndex = 1 + Me.ListBox1.Size = New System.Drawing.Size(92, 95) + Me.ListBox1.TabIndex = 3 ' 'OK_Button ' - Me.OK_Button.Location = New System.Drawing.Point(23, 109) + Me.OK_Button.Dock = System.Windows.Forms.DockStyle.Bottom + Me.OK_Button.Location = New System.Drawing.Point(20, 99) + Me.OK_Button.Margin = New System.Windows.Forms.Padding(20, 2, 20, 2) Me.OK_Button.Name = "OK_Button" - Me.OK_Button.Size = New System.Drawing.Size(52, 20) + Me.OK_Button.Size = New System.Drawing.Size(54, 20) Me.OK_Button.TabIndex = 2 Me.OK_Button.Text = "OK" Me.OK_Button.UseVisualStyleBackColor = True @@ -50,10 +70,9 @@ Partial Class SelectMulti ' Me.AcceptButton = Me.OK_Button Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None - Me.ClientSize = New System.Drawing.Size(104, 131) + Me.ClientSize = New System.Drawing.Size(94, 121) Me.ControlBox = False - Me.Controls.Add(Me.OK_Button) - Me.Controls.Add(Me.ListBox1) + Me.Controls.Add(Me.TableLayoutPanel1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow Me.KeyPreview = True Me.MaximizeBox = False @@ -66,10 +85,12 @@ Partial Class SelectMulti Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent Me.Text = "MultiSel" + Me.TableLayoutPanel1.ResumeLayout(False) Me.ResumeLayout(False) End Sub - Friend WithEvents ListBox1 As System.Windows.Forms.ListBox Friend WithEvents OK_Button As System.Windows.Forms.Button + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents ListBox1 As System.Windows.Forms.ListBox End Class diff --git a/SelectMulti.vb b/SelectMulti.vb index 85e23a6..b1fffbc 100644 --- a/SelectMulti.vb +++ b/SelectMulti.vb @@ -62,19 +62,21 @@ Public Class SelectMulti EgtDraw() End Sub + Private Class SelMulItem + + Public m_sTitle As String + Public m_nId As Integer + + Public Sub New(ByVal sTitle As String, ByVal nId As Integer) + Me.m_sTitle = sTitle + Me.m_nId = nId + End Sub + + Public Overrides Function ToString() As String + Return m_sTitle + End Function + + End Class + End Class -Public Class SelMulItem - Public m_sTitle As String - Public m_nId As Integer - - Public Sub New(ByVal sTitle As String, ByVal nId As Integer) - Me.m_sTitle = sTitle - Me.m_nId = nId - End Sub - - Public Overrides Function ToString() As String - Return m_sTitle - End Function - -End Class \ No newline at end of file diff --git a/TestEIn.vbproj b/TestEIn.vbproj index 0d98fa2..98becb4 100644 --- a/TestEIn.vbproj +++ b/TestEIn.vbproj @@ -166,6 +166,12 @@ Form + + Component.vb + + + Form + @@ -212,6 +218,9 @@ AboutBox1.vb + + Component.vb + Form1.vb @@ -514,6 +523,9 @@ + + + IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\TestEIn\TestEInR32.exe