diff --git a/AboutBox1.Designer.vb b/AboutBox1.Designer.vb new file mode 100644 index 0000000..e73d47f --- /dev/null +++ b/AboutBox1.Designer.vb @@ -0,0 +1,136 @@ + _ +Partial Class AboutBox1 + Inherits System.Windows.Forms.Form + + 'Form esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + 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 + + + 'Richiesto da Progettazione Windows Form + Private components As System.ComponentModel.IContainer + + 'NOTA: la procedura che segue è richiesta da Progettazione Windows Form + 'Può essere modificata in Progettazione Windows Form. + 'Non modificarla nell'editor del codice. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(AboutBox1)) + Me.LogoPictureBox = New System.Windows.Forms.PictureBox() + Me.OKButton = New System.Windows.Forms.Button() + Me.LabelCompanyName = New System.Windows.Forms.Label() + Me.LabelCopyright = New System.Windows.Forms.Label() + Me.LabelVersion = New System.Windows.Forms.Label() + Me.LabelProductName = New System.Windows.Forms.Label() + CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'LogoPictureBox + ' + Me.LogoPictureBox.Image = CType(resources.GetObject("LogoPictureBox.Image"), System.Drawing.Image) + Me.LogoPictureBox.Location = New System.Drawing.Point(23, 40) + Me.LogoPictureBox.Name = "LogoPictureBox" + Me.LogoPictureBox.Size = New System.Drawing.Size(52, 52) + Me.LogoPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.LogoPictureBox.TabIndex = 0 + Me.LogoPictureBox.TabStop = False + ' + 'OKButton + ' + Me.OKButton.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.OKButton.Location = New System.Drawing.Point(105, 114) + Me.OKButton.Name = "OKButton" + Me.OKButton.Size = New System.Drawing.Size(75, 19) + Me.OKButton.TabIndex = 0 + Me.OKButton.Text = "&OK" + ' + 'LabelCompanyName + ' + Me.LabelCompanyName.Location = New System.Drawing.Point(108, 77) + Me.LabelCompanyName.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0) + Me.LabelCompanyName.MaximumSize = New System.Drawing.Size(152, 17) + Me.LabelCompanyName.MinimumSize = New System.Drawing.Size(152, 17) + Me.LabelCompanyName.Name = "LabelCompanyName" + Me.LabelCompanyName.Size = New System.Drawing.Size(152, 17) + Me.LabelCompanyName.TabIndex = 0 + Me.LabelCompanyName.Text = "Nome società" + Me.LabelCompanyName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LabelCopyright + ' + Me.LabelCopyright.Location = New System.Drawing.Point(108, 60) + Me.LabelCopyright.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0) + Me.LabelCopyright.MaximumSize = New System.Drawing.Size(152, 17) + Me.LabelCopyright.MinimumSize = New System.Drawing.Size(152, 17) + Me.LabelCopyright.Name = "LabelCopyright" + Me.LabelCopyright.Size = New System.Drawing.Size(152, 17) + Me.LabelCopyright.TabIndex = 0 + Me.LabelCopyright.Text = "Copyright" + Me.LabelCopyright.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LabelVersion + ' + Me.LabelVersion.Location = New System.Drawing.Point(108, 43) + Me.LabelVersion.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0) + Me.LabelVersion.MaximumSize = New System.Drawing.Size(152, 17) + Me.LabelVersion.MinimumSize = New System.Drawing.Size(152, 17) + Me.LabelVersion.Name = "LabelVersion" + Me.LabelVersion.Size = New System.Drawing.Size(152, 17) + Me.LabelVersion.TabIndex = 0 + Me.LabelVersion.Text = "Versione" + Me.LabelVersion.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LabelProductName + ' + Me.LabelProductName.Location = New System.Drawing.Point(108, 26) + Me.LabelProductName.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0) + Me.LabelProductName.MaximumSize = New System.Drawing.Size(152, 17) + Me.LabelProductName.MinimumSize = New System.Drawing.Size(152, 17) + Me.LabelProductName.Name = "LabelProductName" + Me.LabelProductName.Size = New System.Drawing.Size(152, 17) + Me.LabelProductName.TabIndex = 0 + Me.LabelProductName.Text = "Nome prodotto" + Me.LabelProductName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'AboutBox1 + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.CancelButton = Me.OKButton + Me.ClientSize = New System.Drawing.Size(284, 148) + Me.Controls.Add(Me.LogoPictureBox) + Me.Controls.Add(Me.OKButton) + Me.Controls.Add(Me.LabelCompanyName) + Me.Controls.Add(Me.LabelCopyright) + Me.Controls.Add(Me.LabelVersion) + Me.Controls.Add(Me.LabelProductName) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "AboutBox1" + Me.Padding = New System.Windows.Forms.Padding(9) + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "AboutBox1" + Me.TopMost = True + CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + +End Sub + Friend WithEvents LogoPictureBox As System.Windows.Forms.PictureBox + Friend WithEvents OKButton As System.Windows.Forms.Button + Friend WithEvents LabelCompanyName As System.Windows.Forms.Label + Friend WithEvents LabelCopyright As System.Windows.Forms.Label + Friend WithEvents LabelVersion As System.Windows.Forms.Label + Friend WithEvents LabelProductName As System.Windows.Forms.Label + +End Class diff --git a/AboutBox1.resx b/AboutBox1.resx new file mode 100644 index 0000000..ab34fda --- /dev/null +++ b/AboutBox1.resx @@ -0,0 +1,419 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + + Qk3mHwAAAAAAADYAAAAoAAAANAAAADQAAAABABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxYVNxYVN + xYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVN + xYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVN + xYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVN//////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////xYVNxYVN//////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////////////////////xYVNxYVN//////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////xYVNxYVN//////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////////////////////////////////////xYVNxYVN//// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////xYVNxYVN//////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////xYVNxYVN//////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////////////////////xYVNxYVN//////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////xYVNxYVN//////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + /////////////////////////////////////////fr59uvm8NvS8NzS/v38////////xYVNxYVN//// + //////////////////////////////////////////////////////////////////////////////// + /////////////////////////////////////////////////////////////////////////vz79+3o + 8d7V6s7B5cOz5cOz7dXK/v79////////////xYVNxYVN//////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + /////////////////////////v39+PDs8uDY69HE5cS05cOz5cOz5cOz5cOz7dXK/v79//////////// + ////xYVNxYVN//////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////7++vPv8+Pb7NPH5sW25cOz + 5cOz5cOz5cOz5cOz5cOz5cOz7tjO//7+////////////////////xYVNxYVN//////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////+/Xy9OXe7dbL5sa35cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz7tjO//7+//// + ////////////////////xYVNxYVN//////////////////////////////////////////////////// + /////////////////////////////////////////////Pf19efh7tjO58i65cOz5cOz5cOz5cOz5cOz + 5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz6cy9///+////////////////////////////xYVNxYVN//// + /////////////////////////////////////////////////////////////////////////////fr4 + 9urk79rR6Mu95cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5MKv + 3rae////////////////////////////////xYVNxYVN////6tO/+fLr//////////////////////// + /////////////////////////////fv79+zn8N3U6c3A5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz + 5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz48Cs2auQ2q2T//////////////////////////// + ////xYVNxYVN////0qB1xYVNzpdo3beW7NfE+/by/////////////////////v39+O/r8d/X69DD5cO0 + 5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz + 5cOz48Ct2auQ2auQ2auQ/Pj1////////////////////////////xYVNxYVN////4sKmxYVNxYVNxYVN + xYVNxYVO0Jxv37yd7trK8eDX7NLG5sW15cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz + 5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz4r+r2auQ2auQ2auQ2auQ+O/q//////// + ////////////////////xYVNxYVN////8uPXxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNyItW2KyJ48Kt + 58i45cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz + 5cOz5cOz5cOz4r+r2auQ2auQ2auQ2auQ2auQ9Obe////////////////////////////xYVNxYVN//// + /v79yY1YxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNyo9c27GR5cSx58e45cOz5cOz5cOz + 5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cOz5cKy4b2p2auQ2auQ2auQ2auQ2auQ + 2auQ8N3S////////////////////////////xYVNxYVN////////2KyGxYVNxYVNxYVNxYVNxYVNxYVN + xYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNzJVl3bWY5ca05sa35cOz5cOz5cOz5cOz5cOz5cOz5cOz + 5cOz5cOz5cOz5cOz5cKy4b2o2auQ2auQ2auQ2auQ2auQ2auQ2auQ69TG//////////////////////// + ////xYVNxYVN////////6M+4xYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVN + xYVNxYVNxYVNxYVNxYVNz5ps3rmd5se15sa25cOz5cOz5cOz5cOz5cOz5cOz5cKz4byn2auQ2auQ2auQ + 2auQ2auQ2auQ2auQ2auQ58u6////////////////////////////xYVNxYVN////////+PDpxYVNxYVN + xYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVN + xYZO0p924Lyi5si35sW15cOz5cKz4Lum2auQ2auQ2auQ2auQ2auQ2auQ2auQ2auQ2auQ48Ku//////// + ////////////////////xYVNxYVN////////////zphoxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVN + xYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxodQ1qaA3red2auP + 2auQ2auQ2auQ2auQ2auQ2auQ2auQ2auQ2auQ37mi////////////////////////////xYVNxYVN//// + ////////3rmZxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVN + xYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNx4hS1aWCz5dw16eG2q+U2auQ2auQ2auQ2auQ2auQ2auQ2auQ + 2auQ27CW////////////////////////////xYVNxYVN////////////7tvLxYVNxYVNxYVNxYVNxYVN + xYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNx4lU + 1aWCz5dwz5dwz5dw0Jlz27KX2auQ2auQ2auQ2auQ2auQ2auQ2auQ2auQ/fv6//////////////////// + ////xYVNxYVN/////////////Pr3xohRxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVN + xYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNyItV1KSBz5dwz5dwz5dwz5dwz5dwz5dw16mI2q6T + 2auQ2auQ2auQ2auQ2auQ2auQ+fLu////////////////////////xYVNxYVN////////////////1KR6 + xYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVN + xYVNyItV1KSBz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dw0Zp03LKX2auQ2auQ2auQ2auQ2auQ9enh//// + ////////////////////xYVNxYVN////////////////5MasxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVN + xYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNyY1Z1KF+z5dwz5dwz5dwz5dwz5dwz5dw + z5dwz5dwz5dwz5dwz5dw2KqL2qyS2auQ2auQ2auQ8eDW////////////////////////xYVNxYVN//// + ////////////9OjdxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVN + xYVNxYVNxYVNyY1Z1KF+z5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dw0Zx327KX + 2auQ2auQ7dfK////////////////////////xYVNxYVN///////////////////+ypBcxYVNxYVNxYVN + xYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNy5Be06B7z5dwz5dwz5dwz5dw + z5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dw2KyN2qyR6M29//////////////////// + ////xYVNxYVN////////////////////2rGNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVN + xYVNxYVNxYVNxYVNxYVNy5Be06B7z5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dw + z5dwz5dwz5dwz5dwz5dw0p555MOu////////////////////////xYVNxYVN//////////////////// + 6tO+xYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNzJJj0p55z5dwz5dw + z5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dw37qg + +/f0////////////////xYVNxYVN////////////////////+vTvxYVNxYVNxYVNxYVNxYVNxYVNxYVN + xYVNxYVNxYVNxYVNxYVNxYVNxYVNzJJj0p56z5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dw + z5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dw06B98eDU////////////xYVNxYVN//// + ////////////////////0JxvxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNzZVo0p55 + z5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dw + z5dwz5dwz5dwz5dwz5dwz5dw4b6m/Pn3////xYVNxYVN////////////////////////4L2fxYVNxYVN + xYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNzZVo0Zx3z5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dw + z5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dw0Zt21aSD2a2O3bWZ4r+o69TE + ////xYVNxYVN////////////////////////8N/RxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVN + z5hr0Zx3z5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dwz5dw0Jlz1KJ/2KuM3LSY4Lyj5caw + 6c687dfI8eDV9enh+fLt/fv5////////////////////////////xYVNxYVN//////////////////// + /////fz6x4pUxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNz5lt0Zp0z5dwz5hx06B816mI3LKW37qh48Ot + 6M267NXF8N7S9Ofe+PDq/Pn3//////////////////////////////////////////////////////// + ////////////////////xYVNxYVN////////////////////////////1qiBxYVNxYVNxYVNxYVNxYVN + xYVNxYVN0Jxv8eHV9+7n+/bz///+//////////////////////////////////////////////////// + ////////////////////////////////////////////////////////////////////xYVNxYVN//// + ////////////////////////5sqyxYVNxYVNxYVNxYVNxYVNxYVN0Z9z/Pj1//////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////xYVNxYVN////////////////////////////9uzjxYVN + xYVNxYVNxYVNxYVN0qB1/Pj1//////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////xYVNxYVN////////////////////////////////zJNixYVNxYVNxYVN1KR6/fr4//////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////////////////////xYVNxYVN//////////////////// + ////////////3LWTxYVNxYVN1KV7/fr4//////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////xYVNxYVN////////////////////////////////7NfFxYVN16qD/vz7//// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////////////////////////////////////xYVNxYVN//// + ////////////////////////////+/fz16uF/vz7//////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////xYVNxYVN//////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////xYVNxYVN//////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////////////////////xYVNxYVN//////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////xYVNxYVN//////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////////////////////////////////////xYVNxYVN//// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////xYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVN + xYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVN + xYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVNxYVN + xYVNxYVN + + + + + 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/AboutBox1.vb b/AboutBox1.vb new file mode 100644 index 0000000..59bc18f --- /dev/null +++ b/AboutBox1.vb @@ -0,0 +1,25 @@ +Public NotInheritable Class AboutBox1 + + Private Sub AboutBox1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + ' Imposta il titolo del form. + Dim ApplicationTitle As String + If My.Application.Info.Title <> "" Then + ApplicationTitle = My.Application.Info.Title + Else + ApplicationTitle = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName) + End If + Me.Text = String.Format("Informazioni su {0}", ApplicationTitle) + ' Inizializza tutto il testo visualizzato nella finestra di dialogo Informazioni su. + ' TODO: Personalizzare le informazioni sull'assembly dell'applicazione nel riquadro "Applicazione" + ' della finestra delle proprietà del progetto (accessibile dal menu "Progetto"). + Me.LabelProductName.Text = My.Application.Info.ProductName + Me.LabelVersion.Text = String.Format("Versione {0}", My.Application.Info.Version.ToString) + Me.LabelCopyright.Text = My.Application.Info.Copyright + Me.LabelCompanyName.Text = My.Application.Info.CompanyName + End Sub + + Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click + Me.Close() + End Sub + +End Class diff --git a/EgtInterface.vb b/EgtInterface.vb index 32146dc..36e7ca0 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -20,37 +20,6 @@ Const EgtInterface As String = "EgtInterfaceR32.dll" #End If #End If -'API di test - -Public Shared Function Summ(ByVal dA As Double, ByVal dB As Double) As Double -End Function - -Public Shared Function Summ2(ByRef dA As Double, ByVal dB As Double) As Boolean -End Function - -Public Shared Function Append(ByVal sA As String, ByRef sB As IntPtr) As Boolean -End Function - -Public Shared Function FreeMemory(ByVal sB As IntPtr) As Boolean -End Function - -Public Shared Function SetPoint(ByRef ptP As Point3d) As Boolean -End Function - -Public Shared Function OutText(ByVal hW As IntPtr, ByVal sA As String) As Boolean -End Function - -Public Shared Function DrawCross(ByVal hW As IntPtr, ByVal nX As Integer, ByVal nY As Integer, ByVal nDim As Integer) As Boolean -End Function - - Public Shared Function Append(ByVal sA As String, ByRef sB As String) As Boolean - Dim sD As IntPtr - Dim bOk As Boolean = Append(sA, sD) - sB = Marshal.PtrToStringUni(sD) - FreeMemory(sD) - Return bOk - End Function - 'API 'General @@ -65,6 +34,11 @@ End Function Public Shared Function EgtSetFont(ByVal sNfeFontDir As String, ByVal sDefaultFont As String) As Boolean End Function + +Public Shared Function EgtFreeMemory(ByVal sB As IntPtr) As Boolean +End Function + + 'GeomDB Public Shared Function EgtInitGeomDB() As Integer @@ -106,6 +80,178 @@ End Function Public Shared Function EgtExportStl(ByVal nCtx As Integer, ByVal nId As Integer, ByVal sFilePath As String) As Boolean End Function + +'GeomDB Objects + +Public Shared Function EgtExistsObj(ByVal nCtx As Integer, ByVal nGroupId As Integer) As Boolean +End Function + + +Public Shared Function EgtGetFirstInGroup(ByVal nCtx As Integer, ByVal nGroupId As Integer) As Integer +End Function + + +Public Shared Function EgtGetNext(ByVal nCtx As Integer, ByVal nId As Integer) As Integer +End Function + + +Public Shared Function EgtGetLastInGroup(ByVal nCtx As Integer, ByVal nGroupId As Integer) As Integer +End Function + + +Public Shared Function EgtGetPrev(ByVal nCtx As Integer, ByVal nId As Integer) As Integer +End Function + + +Public Shared Function EgtGetType(ByVal nCtx As Integer, ByVal nId As Integer) As Integer +End Function + + +Private Shared Function EgtGetTitle(ByVal nCtx As Integer, ByVal nId As Integer, ByRef psTitle As IntPtr) As Boolean +End Function +Public Shared Function EgtGetTitle(ByVal nCtx As Integer, ByVal nId As Integer, ByRef sTitle As String) As Boolean + Dim psTitle As IntPtr + Dim bOk As Boolean = EgtGetTitle(nCtx, nId, psTitle) + sTitle = Marshal.PtrToStringUni(psTitle) + EgtFreeMemory(psTitle) + Return bOk +End Function + + +Private Shared Function EgtGroupDump(ByVal nCtx As Integer, ByVal nId As Integer, ByRef psDump As IntPtr) As Boolean +End Function +Public Shared Function EgtGroupDump(ByVal nCtx As Integer, ByVal nId As Integer, ByRef sDump As String) As Boolean + Dim psDump As IntPtr + Dim bOk As Boolean = EgtGroupDump(nCtx, nId, psDump) + sDump = Marshal.PtrToStringUni(psDump) + EgtFreeMemory(psDump) + Return bOk +End Function + + +Private Shared Function EgtGeoObjDump(ByVal nCtx As Integer, ByVal nId As Integer, ByRef psDump As IntPtr) As Boolean +End Function +Public Shared Function EgtGeoObjDump(ByVal nCtx As Integer, ByVal nId As Integer, ByRef sDump As String) As Boolean + Dim psDump As IntPtr + Dim bOk As Boolean = EgtGeoObjDump(nCtx, nId, psDump) + sDump = Marshal.PtrToStringUni(psDump) + EgtFreeMemory(psDump) + Return bOk +End Function + + +'GeomDB Obj attributes + +Public Shared Function EgtSetLevel(ByVal nCtx As Integer, ByVal nId As Integer, ByVal nLevel As Integer) As Boolean +End Function + + +Public Shared Function EgtRevertLevel(ByVal nCtx As Integer, ByVal nId As Integer) As Boolean +End Function + + +Public Shared Function EgtGetLevel(ByVal nCtx As Integer, ByVal nId As Integer, ByRef nLevel As Integer) As Boolean +End Function + + +Public Shared Function EgtGetCalcLevel(ByVal nCtx As Integer, ByVal nId As Integer, ByRef nLevel As Integer) As Boolean +End Function + + +Public Shared Function EgtSetMode(ByVal nCtx As Integer, ByVal nId As Integer, ByVal nMode As Integer) As Boolean +End Function + + +Public Shared Function EgtRevertMode(ByVal nCtx As Integer, ByVal nId As Integer) As Boolean +End Function + + +Public Shared Function EgtGetMode(ByVal nCtx As Integer, ByVal nId As Integer, ByRef nMode As Integer) As Boolean +End Function + + +Public Shared Function EgtGetCalcMode(ByVal nCtx As Integer, ByVal nId As Integer, ByRef nMode As Integer) As Boolean +End Function + + +Public Shared Function EgtSetStatus(ByVal nCtx As Integer, ByVal nId As Integer, ByVal nStat As Integer) As Boolean +End Function + + +Public Shared Function EgtRevertStatus(ByVal nCtx As Integer, ByVal nId As Integer) As Boolean +End Function + + +Public Shared Function EgtGetStatus(ByVal nCtx As Integer, ByVal nId As Integer, ByRef nStat As Integer) As Boolean +End Function + + +Public Shared Function EgtGetCalcStatus(ByVal nCtx As Integer, ByVal nId As Integer, ByRef nStat As Integer) As Boolean +End Function + + +Public Shared Function EgtSetMark(ByVal nCtx As Integer, ByVal nId As Integer) As Boolean +End Function + + +Public Shared Function EgtResetMark(ByVal nCtx As Integer, ByVal nId As Integer) As Boolean +End Function + + +Public Shared Function EgtGetMark(ByVal nCtx As Integer, ByVal nId As Integer, ByRef bMark As Boolean) As Boolean +End Function + + +Public Shared Function EgtGetCalcMark(ByVal nCtx As Integer, ByVal nId As Integer, ByRef bMark As Boolean) As Boolean +End Function + + +Public Shared Function EgtSetName(ByVal nCtx As Integer, ByVal nId As Integer, ByVal sName As String) As Boolean +End Function + + +Private Shared Function EgtGetName(ByVal nCtx As Integer, ByVal nId As Integer, ByRef psName As IntPtr) As Boolean +End Function +Public Shared Function EgtGetName(ByVal nCtx As Integer, ByVal nId As Integer, ByRef sName As String) As Boolean + Dim psName As IntPtr + Dim bOk As Boolean = EgtGetName(nCtx, nId, psName) + sName = Marshal.PtrToStringUni(psName) + EgtFreeMemory(psName) + Return bOk +End Function + + +Public Shared Function EgtExistsName(ByVal nCtx As Integer, ByVal nId As Integer) As Boolean +End Function + + +Public Shared Function EgtRemoveName(ByVal nCtx As Integer, ByVal nId As Integer) As Boolean +End Function + + +Public Shared Function EgtSetInfo(ByVal nCtx As Integer, ByVal nId As Integer, ByVal sKey As String, ByVal sInfo As String) As Boolean +End Function + + +Private Shared Function EgtGetInfo(ByVal nCtx As Integer, ByVal nId As Integer, ByVal sKey As String, ByRef psInfo As IntPtr) As Boolean +End Function +Public Shared Function EgtGetInfo(ByVal nCtx As Integer, ByVal nId As Integer, ByVal sKey As String, ByRef sInfo As String) As Boolean + Dim psInfo As IntPtr + Dim bOk As Boolean = EgtGetInfo(nCtx, nId, sKey, psInfo) + sInfo = Marshal.PtrToStringUni(psInfo) + EgtFreeMemory(psInfo) + Return bOk +End Function + + +Public Shared Function EgtExistsInfo(ByVal nCtx As Integer, ByVal nId As Integer, ByVal sKey As String) As Boolean +End Function + + +Public Shared Function EgtRemoveInfo(ByVal nCtx As Integer, ByVal nId As Integer, ByVal sKey As String) As Boolean +End Function + + 'Scene Public Shared Function EgtInitScene(ByVal nCtx As Integer, ByVal hWnd As IntPtr, ByVal nDriver As Integer, @@ -114,7 +260,8 @@ End Function Public Shared Function EgtSetBackground(ByVal nCtx As Integer, ByVal nTopRed As Integer, ByVal nTopGreen As Integer, ByVal nTopBlue As Integer, - ByVal nBottomRed As Integer, ByVal nBottomGreen As Integer, ByVal nBottomBlue As Integer) As Boolean + ByVal nBottomRed As Integer, ByVal nBottomGreen As Integer, ByVal nBottomBlue As Integer, + Optional ByVal bRedraw As Boolean = True) As Boolean End Function @@ -126,57 +273,57 @@ Public Shared Function EgtResize(ByVal nCtx As Integer, ByVal nW As Integer, ByV End Function -Public Shared Function EgtSetShowMode(ByVal nCtx As Integer, ByVal nShowMode As Integer, ByVal bRedraw As Boolean) As Boolean +Public Shared Function EgtSetShowMode(ByVal nCtx As Integer, ByVal nShowMode As Integer, Optional ByVal bRedraw As Boolean = True) As Boolean End Function -Public Shared Function EgtSetShowCurveDirection(ByVal nCtx As Integer, ByVal bShow As Boolean, ByVal bRedraw As Boolean) As Boolean +Public Shared Function EgtSetShowCurveDirection(ByVal nCtx As Integer, ByVal bShow As Boolean, Optional ByVal bRedraw As Boolean = True) As Boolean End Function -Public Shared Function EgtZoom(ByVal nCtx As Integer, ByVal nZoom As Integer, ByVal bRedraw As Boolean) As Boolean +Public Shared Function EgtZoom(ByVal nCtx As Integer, ByVal nZoom As Integer, Optional ByVal bRedraw As Boolean = True) As Boolean End Function Private Shared Function EgtZoomOnPoint(ByVal nCtx As Integer, ByVal nWinX As Integer, ByVal nWinY As Integer, ByVal dCoeff As Double, ByVal bRedraw As Boolean) As Boolean End Function -Public Shared Function EgtZoomOnPoint(ByVal nCtx As Integer, ByVal Curr As Point, ByVal dCoeff As Double, ByVal bRedraw As Boolean) As Boolean +Public Shared Function EgtZoomOnPoint(ByVal nCtx As Integer, ByVal Curr As Point, ByVal dCoeff As Double, Optional ByVal bRedraw As Boolean = True) As Boolean Return EgtZoomOnPoint(nCtx, Curr.X, Curr.Y, dCoeff, bRedraw) End Function Private Shared Function EgtSetWinRect(ByVal nCtx As Integer, ByVal nPrevX As Integer, ByVal nPrevY As Integer, ByVal nCurrX As Integer, ByVal nCurrY As Integer, ByVal bRedraw As Boolean) As Boolean End Function -Public Shared Function EgtSetWinRect(ByVal nCtx As Integer, ByVal Prev As Point, ByVal Curr As Point, ByVal bRedraw As Boolean) As Boolean +Public Shared Function EgtSetWinRect(ByVal nCtx As Integer, ByVal Prev As Point, ByVal Curr As Point, Optional ByVal bRedraw As Boolean = True) As Boolean Return EgtSetWinRect(nCtx, Prev.X, Prev.Y, Curr.X, Curr.Y, bRedraw) End Function -Public Shared Function EgtResetWinRect(ByVal nCtx As Integer, ByVal bRedraw As Boolean) As Boolean +Public Shared Function EgtResetWinRect(ByVal nCtx As Integer, Optional ByVal bRedraw As Boolean = True) As Boolean End Function Private Shared Function EgtZoomWin(ByVal nCtx As Integer, ByVal nPrevX As Integer, ByVal nPrevY As Integer, ByVal nCurrX As Integer, ByVal nCurrY As Integer, ByVal bRedraw As Boolean) As Boolean End Function -Public Shared Function EgtZoomWin(ByVal nCtx As Integer, ByVal Prev As Point, ByVal Curr As Point, ByVal bRedraw As Boolean) As Boolean +Public Shared Function EgtZoomWin(ByVal nCtx As Integer, ByVal Prev As Point, ByVal Curr As Point, Optional ByVal bRedraw As Boolean = True) As Boolean Return EgtZoomWin(nCtx, Prev.X, Prev.Y, Curr.X, Curr.Y, bRedraw) End Function -Public Shared Function EgtSetView(ByVal nCtx As Integer, ByVal nView As Integer, ByVal bRedraw As Boolean) As Boolean +Public Shared Function EgtSetView(ByVal nCtx As Integer, ByVal nView As Integer, Optional ByVal bRedraw As Boolean = True) As Boolean End Function Private Shared Function EgtPanCamera(ByVal nCtx As Integer, ByVal nPrevX As Integer, ByVal nPrevY As Integer, ByVal nCurrX As Integer, ByVal nCurrY As Integer, ByVal bRedraw As Boolean) As Boolean End Function -Public Shared Function EgtPanCamera(ByVal nCtx As Integer, ByVal Prev As Point, ByVal Curr As Point, ByVal bRedraw As Boolean) As Boolean +Public Shared Function EgtPanCamera(ByVal nCtx As Integer, ByVal Prev As Point, ByVal Curr As Point, Optional ByVal bRedraw As Boolean = True) As Boolean Return EgtPanCamera(nCtx, Prev.X, Prev.Y, Curr.X, Curr.Y, bRedraw) End Function Private Shared Function EgtRotateCamera(ByVal nCtx As Integer, ByVal nPrevX As Integer, ByVal nPrevY As Integer, ByVal nCurrX As Integer, ByVal nCurrY As Integer, ByVal bRedraw As Boolean) As Boolean End Function -Public Shared Function EgtRotateCamera(ByVal nCtx As Integer, ByVal Prev As Point, ByVal Curr As Point, ByVal bRedraw As Boolean) As Boolean +Public Shared Function EgtRotateCamera(ByVal nCtx As Integer, ByVal Prev As Point, ByVal Curr As Point, Optional ByVal bRedraw As Boolean = True) As Boolean Return EgtRotateCamera(nCtx, Prev.X, Prev.Y, Curr.X, Curr.Y, bRedraw) End Function @@ -191,6 +338,7 @@ Public Shared Function EgtUnProjectPoint(ByVal nCtx As Integer, ByVal Curr As Po Return EgtUnProjectPoint(nCtx, Curr.X, Curr.Y, ptP) End Function + 'TscExecutor Public Shared Function EgtInitTscExec(ByVal nCtx As Integer) As Boolean @@ -204,6 +352,44 @@ End Function Public Shared Function EgtTscLineExec(ByVal nCtx As Integer, ByVal sLine As String) As Boolean End Function + +'Costanti : TIPO DI FILE +Public Const FT_NULL As Integer = 0 +Public Const FT_NGE As Integer = 1 +Public Const FT_NFE As Integer = 2 +Public Const FT_DXF As Integer = 11 +Public Const FT_STL As Integer = 12 +'Costanti : FORMATO FILE NGE +Public Const NGE_TEXT As Integer = 0 +Public Const NGE_BIN As Integer = 1 +Public Const NGE_CMPTEXT As Integer = 2 +'Costanti : ID GEOMDB +Public Const GDB_ID_ROOT As Integer = 0 +Public Const GDB_ID_NULL As Integer = -1 +'Costanti : TIPO OGGETTI +Public Const TY_NONE As Integer = 0 +Public Const TY_GROUP As Integer = 2 +Public Const TY_GEO_VECTOR As Integer = 128 +Public Const TY_GEO_POINT As Integer = 129 +Public Const TY_GEO_FRAME As Integer = 130 +Public Const TY_CRV_LINE As Integer = 256 +Public Const TY_CRV_ARC As Integer = 257 +Public Const TY_CRV_BEZ As Integer = 258 +Public Const TY_CRV_COMPO As Integer = 259 +Public Const TY_SRF_MESH As Integer = 512 +Public Const TY_EXT_TEXT As Integer = 1024 +'Costanti : LIVELLO DI UN OGGETTO +Public Const GDB_LV_USER As Integer = 1 +Public Const GDB_LV_SYSTEM As Integer = 2 +Public Const GDB_LV_TEMP As Integer = 3 +'Costanti : MODO DI UN OGGETTO +Public Const GDB_MD_STD As Integer = 1 +Public Const GDB_MD_LOCKED As Integer = 2 +Public Const GDB_MD_HIDDEN As Integer = 3 +'Costanti : STATO DI UN OGGETTO +Public Const GDB_ST_OFF As Integer = 0 +Public Const GDB_ST_ON As Integer = 1 +Public Const GDB_ST_SEL As Integer = 2 'Costanti : TIPO VISUALIZZAZIONE Public Const SM_WIREFRAME As Integer = 0 Public Const SM_HIDDENLINE As Integer = 1 @@ -224,17 +410,5 @@ Public Const CT_ISO_SW As Integer = 7 Public Const CT_ISO_SE As Integer = 8 Public Const CT_ISO_NE As Integer = 9 Public Const CT_ISO_NW As Integer = 10 -'Costanti : TIPO DI FILE -Public Const FT_NULL As Integer = 0 -Public Const FT_NGE As Integer = 1 -Public Const FT_NFE As Integer = 2 -Public Const FT_DXF As Integer = 11 -Public Const FT_STL As Integer = 12 -'Costanti : FORMATO FILE NGE -Public Const NGE_TEXT As Integer = 0 -Public Const NGE_BIN As Integer = 1 -Public Const NGE_CMPTEXT As Integer = 2 -'Costanti : ID GRUPPO RADICE -Public Const GDB_ID_ROOT As Integer = 0 End Class diff --git a/Form1.Designer.vb b/Form1.Designer.vb index 4f26987..8a52de0 100644 --- a/Form1.Designer.vb +++ b/Form1.Designer.vb @@ -22,10 +22,11 @@ Partial Class Form1 'Non modificarla nell'editor del codice. _ Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1)) Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() - Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel() - Me.TextBox1 = New System.Windows.Forms.TextBox() Me.Panel1 = New System.Windows.Forms.Panel() + Me.tboxCmd = New System.Windows.Forms.TextBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.rbtShading = New System.Windows.Forms.RadioButton() Me.rbtHiddenLine = New System.Windows.Forms.RadioButton() @@ -49,14 +50,21 @@ Partial Class Form1 Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel() Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel() + Me.ToolStripStatusLabel3 = New System.Windows.Forms.ToolStripStatusLabel() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.tBoxInfo = New System.Windows.Forms.TextBox() + Me.TreeView1 = New System.Windows.Forms.TreeView() + Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) Me.OpenFileDialog = New System.Windows.Forms.OpenFileDialog() Me.SaveFileDialog = New System.Windows.Forms.SaveFileDialog() + Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel() Me.Scene1 = New TestEIn.Scene() Me.TableLayoutPanel1.SuspendLayout() - Me.FlowLayoutPanel1.SuspendLayout() Me.Panel1.SuspendLayout() Me.GroupBox1.SuspendLayout() Me.StatusStrip1.SuspendLayout() + Me.Panel2.SuspendLayout() + Me.TableLayoutPanel2.SuspendLayout() Me.SuspendLayout() ' 'TableLayoutPanel1 @@ -66,9 +74,9 @@ Partial Class Form1 Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) Me.TableLayoutPanel1.Controls.Add(Me.Scene1, 1, 0) - Me.TableLayoutPanel1.Controls.Add(Me.FlowLayoutPanel1, 0, 0) Me.TableLayoutPanel1.Controls.Add(Me.Panel1, 2, 0) Me.TableLayoutPanel1.Controls.Add(Me.StatusStrip1, 0, 1) + Me.TableLayoutPanel1.Controls.Add(Me.Panel2, 0, 0) 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(2) @@ -79,27 +87,9 @@ Partial Class Form1 Me.TableLayoutPanel1.Size = New System.Drawing.Size(685, 386) Me.TableLayoutPanel1.TabIndex = 0 ' - 'FlowLayoutPanel1 - ' - Me.FlowLayoutPanel1.Controls.Add(Me.TextBox1) - Me.FlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill - Me.FlowLayoutPanel1.FlowDirection = System.Windows.Forms.FlowDirection.TopDown - Me.FlowLayoutPanel1.Location = New System.Drawing.Point(2, 2) - Me.FlowLayoutPanel1.Margin = New System.Windows.Forms.Padding(2) - Me.FlowLayoutPanel1.Name = "FlowLayoutPanel1" - Me.FlowLayoutPanel1.Size = New System.Drawing.Size(98, 360) - Me.FlowLayoutPanel1.TabIndex = 1 - ' - 'TextBox1 - ' - Me.TextBox1.Location = New System.Drawing.Point(3, 3) - Me.TextBox1.Multiline = True - Me.TextBox1.Name = "TextBox1" - Me.TextBox1.Size = New System.Drawing.Size(94, 67) - Me.TextBox1.TabIndex = 3 - ' 'Panel1 ' + Me.Panel1.Controls.Add(Me.tboxCmd) Me.Panel1.Controls.Add(Me.GroupBox1) Me.Panel1.Controls.Add(Me.chkCurveDir) Me.Panel1.Controls.Add(Me.btnZoomOut) @@ -123,6 +113,17 @@ Partial Class Form1 Me.Panel1.Size = New System.Drawing.Size(195, 358) Me.Panel1.TabIndex = 5 ' + 'tboxCmd + ' + Me.tboxCmd.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.tboxCmd.Location = New System.Drawing.Point(0, 302) + Me.tboxCmd.Multiline = True + Me.tboxCmd.Name = "tboxCmd" + Me.tboxCmd.ScrollBars = System.Windows.Forms.ScrollBars.Vertical + Me.tboxCmd.Size = New System.Drawing.Size(194, 55) + Me.tboxCmd.TabIndex = 23 + ' 'GroupBox1 ' Me.GroupBox1.Controls.Add(Me.rbtShading) @@ -323,7 +324,7 @@ Partial Class Form1 ' Me.TableLayoutPanel1.SetColumnSpan(Me.StatusStrip1, 3) Me.StatusStrip1.Dock = System.Windows.Forms.DockStyle.Fill - Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel2, Me.ToolStripStatusLabel1}) + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel2, Me.ToolStripStatusLabel1, Me.ToolStripStatusLabel3}) Me.StatusStrip1.Location = New System.Drawing.Point(0, 364) Me.StatusStrip1.MaximumSize = New System.Drawing.Size(0, 22) Me.StatusStrip1.MinimumSize = New System.Drawing.Size(0, 22) @@ -336,7 +337,7 @@ Partial Class Form1 ' Me.ToolStripStatusLabel2.AutoSize = False Me.ToolStripStatusLabel2.Name = "ToolStripStatusLabel2" - Me.ToolStripStatusLabel2.Size = New System.Drawing.Size(485, 17) + Me.ToolStripStatusLabel2.Size = New System.Drawing.Size(300, 17) Me.ToolStripStatusLabel2.Spring = True ' 'ToolStripStatusLabel1 @@ -351,6 +352,67 @@ Partial Class Form1 Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(185, 17) Me.ToolStripStatusLabel1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' + 'ToolStripStatusLabel3 + ' + Me.ToolStripStatusLabel3.AutoSize = False + Me.ToolStripStatusLabel3.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _ + Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides) + Me.ToolStripStatusLabel3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text + Me.ToolStripStatusLabel3.MergeIndex = 2 + Me.ToolStripStatusLabel3.Name = "ToolStripStatusLabel3" + Me.ToolStripStatusLabel3.Size = New System.Drawing.Size(185, 17) + Me.ToolStripStatusLabel3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Panel2 + ' + Me.Panel2.Controls.Add(Me.TableLayoutPanel2) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel2.Location = New System.Drawing.Point(3, 3) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(200, 358) + Me.Panel2.TabIndex = 7 + ' + 'tBoxInfo + ' + Me.tBoxInfo.Dock = System.Windows.Forms.DockStyle.Fill + Me.tBoxInfo.Location = New System.Drawing.Point(3, 217) + Me.tBoxInfo.Multiline = True + Me.tBoxInfo.Name = "tBoxInfo" + Me.tBoxInfo.ScrollBars = System.Windows.Forms.ScrollBars.Vertical + Me.tBoxInfo.Size = New System.Drawing.Size(194, 138) + Me.tBoxInfo.TabIndex = 24 + ' + 'TreeView1 + ' + Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TreeView1.FullRowSelect = True + Me.TreeView1.HideSelection = False + Me.TreeView1.ImageIndex = 0 + Me.TreeView1.ImageList = Me.ImageList1 + Me.TreeView1.Location = New System.Drawing.Point(3, 3) + Me.TreeView1.Name = "TreeView1" + Me.TreeView1.SelectedImageIndex = 0 + Me.TreeView1.Size = New System.Drawing.Size(194, 208) + Me.TreeView1.TabIndex = 0 + ' + 'ImageList1 + ' + Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) + Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent + Me.ImageList1.Images.SetKeyName(0, "Maters.ico") + Me.ImageList1.Images.SetKeyName(1, "NoGeo.ico") + Me.ImageList1.Images.SetKeyName(2, "Group.ico") + Me.ImageList1.Images.SetKeyName(3, "Vector.ico") + Me.ImageList1.Images.SetKeyName(4, "Point.ico") + Me.ImageList1.Images.SetKeyName(5, "Frame.ico") + Me.ImageList1.Images.SetKeyName(6, "Line.ico") + Me.ImageList1.Images.SetKeyName(7, "Arc.ico") + Me.ImageList1.Images.SetKeyName(8, "CBezier.ico") + Me.ImageList1.Images.SetKeyName(9, "CCompo.ico") + Me.ImageList1.Images.SetKeyName(10, "STriMesh.ico") + Me.ImageList1.Images.SetKeyName(11, "text.ico") + ' 'OpenFileDialog ' Me.OpenFileDialog.DefaultExt = "Nge" @@ -360,12 +422,27 @@ Partial Class Form1 ' Me.SaveFileDialog.Title = "Save" ' + 'TableLayoutPanel2 + ' + Me.TableLayoutPanel2.ColumnCount = 1 + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel2.Controls.Add(Me.tBoxInfo, 0, 1) + Me.TableLayoutPanel2.Controls.Add(Me.TreeView1, 0, 0) + Me.TableLayoutPanel2.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel2.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel2.Name = "TableLayoutPanel2" + Me.TableLayoutPanel2.RowCount = 2 + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 60.0!)) + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 40.0!)) + Me.TableLayoutPanel2.Size = New System.Drawing.Size(200, 358) + Me.TableLayoutPanel2.TabIndex = 0 + ' 'Scene1 ' Me.Scene1.Dock = System.Windows.Forms.DockStyle.Fill - Me.Scene1.Location = New System.Drawing.Point(105, 3) + Me.Scene1.Location = New System.Drawing.Point(209, 3) Me.Scene1.Name = "Scene1" - Me.Scene1.Size = New System.Drawing.Size(376, 358) + Me.Scene1.Size = New System.Drawing.Size(272, 358) Me.Scene1.TabIndex = 1 ' 'Form1 @@ -376,30 +453,30 @@ Partial Class Form1 Me.ClientSize = New System.Drawing.Size(685, 386) Me.Controls.Add(Me.TableLayoutPanel1) Me.ForeColor = System.Drawing.SystemColors.ControlText + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Margin = New System.Windows.Forms.Padding(2) Me.Name = "Form1" Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide Me.Text = "Egaltech Interface Prova 1" Me.TableLayoutPanel1.ResumeLayout(False) Me.TableLayoutPanel1.PerformLayout() - Me.FlowLayoutPanel1.ResumeLayout(False) - Me.FlowLayoutPanel1.PerformLayout() Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() Me.GroupBox1.ResumeLayout(False) Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.PerformLayout() + Me.Panel2.ResumeLayout(False) + Me.TableLayoutPanel2.ResumeLayout(False) + Me.TableLayoutPanel2.PerformLayout() Me.ResumeLayout(False) End Sub Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel - Friend WithEvents FlowLayoutPanel1 As System.Windows.Forms.FlowLayoutPanel Friend WithEvents OpenFileDialog As System.Windows.Forms.OpenFileDialog Friend WithEvents SaveFileDialog As System.Windows.Forms.SaveFileDialog Friend WithEvents btnOpen As System.Windows.Forms.Button Friend WithEvents btnSave As System.Windows.Forms.Button Friend WithEvents btnExec As System.Windows.Forms.Button - Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents btnExport As System.Windows.Forms.Button Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents btnNew As System.Windows.Forms.Button @@ -422,5 +499,12 @@ End Sub Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip Friend WithEvents ToolStripStatusLabel1 As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents ToolStripStatusLabel2 As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents tboxCmd As System.Windows.Forms.TextBox + Friend WithEvents ToolStripStatusLabel3 As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents TreeView1 As System.Windows.Forms.TreeView + Friend WithEvents ImageList1 As System.Windows.Forms.ImageList + Friend WithEvents tBoxInfo As System.Windows.Forms.TextBox + Friend WithEvents TableLayoutPanel2 As System.Windows.Forms.TableLayoutPanel End Class diff --git a/Form1.resx b/Form1.resx index d8bca4c..b0a55bb 100644 --- a/Form1.resx +++ b/Form1.resx @@ -123,6 +123,71 @@ 281, 10 + + 398, 10 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w + LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 + ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADS + DAAAAk1TRnQBSQFMAgEBDAEAAZgBAAGYAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + AwABQAMAAUADAAEBAQABCAYAARAYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA + AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 + AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA + AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm + AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM + AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA + ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz + AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ + AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM + AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA + AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA + AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ + AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/ + AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA + AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm + ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ + Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz + AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA + AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM + AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM + ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM + Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA + AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM + AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ + AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz + AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm + AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw + AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8AXAAG/AUA + C/wqAAf8BAAC/AcAAvwHAAf8BgAC/BkAAvwDAAH8AgAB/AUAAfwBAAH8CQAD/AgAAvwaAAL8AgAB/AMA + AfwDAAH8AgAB/AkAA/wIAAL8BQAF/BAAAvwCAAH8BAAB/AEAAfwDAAH8CQAD/AgAAvwEAAf8AwAC/AoA + AvwCAAH8BAAC/AQAAfwJAAP8CAAD/AIAA/wDAAL8AwAC/AoAAvwBAAH8AQAE/AEAAvwEAAH8CAAD/AkA + BvwFAAL8AgAC/AoAAvwBAAL8BQAB/AEAAfwDAAH8CAAD/AoAA/wHAAL8AgAC/AoAAvwCAAH8BQAB/AIA + AfwCAAH8CAAD/BQAAvwCAAL8CgAC/AMAAfwDAAH8BAAB/AEAAfwIAAP8FAAC/AIAAvwKAAL8BAAC/AEA + AfwFAAL8BAAB/AMAA/wDAAH8FAAD/AgAA/wGAAL8AwAE/AQAAfwDAAP8AwAB/BUADPwIAAT8CAAL/BYA + CfyAAAH5PwAC+RQAAvwhAAr5DQAC/AQAAvwhAAr5DAAD/AQAAvwgAAL6BgAC+QwAA/wFAAL8EwAC/AkA + AvwD+gUAAfkMAAP8BgAD/BEABPwIAAL8AQAD+hAAA/wIAAL8EAAG/AcAAvwCAAP6DgAD/AkAA/wPAAb8 + BwAC/AMAA/oBAAH6CgAD/AsAA/wPAAT8CAAC/AQABPoJAAP8DAAD/BAAAvwJAAL8BQAD+ggAA/wOAAT8 + GQAC/AQABPoHAAP8EAAF/BUABvwMAAP8EwAH/BIABPwNAAL8FgAF/BMAAvyuAAP5A/oD+wP8NAAD+QP6 + A/sD/BcABPwZAAP5A/oD+wP8CQAC+QsABPwCAAL5BwAC/A0AA/kD+gP7A/wJAAL5CgAE/AEAA/kIAAP8 + DAAD+QP6A/sD/BYAAvwBAAL5AwACBAYAA/wLAAP5A/oD+wP8CQAC+QwAAvkCAAP6AgQHAAP8CgAD+QP6 + A/sD/AkAAvkLAAL5AQAE+gEAAgQIAAP8AgAC/AUAA/kD+gP7A/wKAAL5CAAD+QT6AwACBAkAA/wBAAL8 + BQAD+QP6A/sD/AsAAvkGAAL5AgAC+gUAAgQKAAX8BQAD+QP6A/sD/AcAAvkCAAL5CQAC+gIAAwcOAAT8 + BQAD+QP6A/sD/AcAAvkCAAL5CQAC+gIAAwcMAAb8BQAD+QP6A/sD/AgABPkLAAH6EQAG/AUAA/kD+gP7 + A/w0AAP5A/oD+wP8cgABQgFNAT4HAAE+AwABKAMAAUADAAFAAwABAQEAAQEGAAECFgAD/4EACv8B/gEH + AcABBwT/Af4BAwHPAecB8AEfAZ8C/wHzAbcB1wH8AX8BnwL/AfkBuwG3AfwBfwGfAQcB/wH5Ab0BdwH8 + AX8BngEDAZ8B+QG8AfcB/AF/AYwBcwGfAfkBQgF7AfwBfwHAAfkBnwH5AT4BuwH8AX8B4wH5AZ8B+QG+ + AdsB/AF/Af8B+QGfAfkB3QHrAfwBfwH/AfkBnwH5AeUB8wHcAXcC/wGPAfEB+QHDAdwBdwL/AcABAwH8 + AT8BwAEHAv8B4AEPD/8B9wb/Ac8B8wL/Ac8D/wGAAQEB/wHzAc8D/wGAAQEB/wHjAc8D/wHDAfMB/wHH + Ac8B/wH+AX8BwQH3Af8BjwHHAf8B/AE/AcgC/wEfAecB/wH4AR8BzAF/Af4BPwHjAf8B+AEfAc4BLwH8 + AX8B8QH/AfwBPwHPAQ8B+AH/AfEB/wH+AX8BzwGPAfEB/wH4AX8C/wHPAQ8B4wH/AfwBHwL/AQMB/wHH + Av8BAQL/AYcB/wHPAv8BwQL/Ac8V/wHAAQMC/wH4AR8C/wHAAQMC/wHgAWcC/wHAAQMB/gF/AdABywHn + Af8BwAEDAf4BfwGhAR0B4wH/AcABAwL/AbIBcQHxAf8BwAEDAf4BfwF5AYIB+AH/AcABAwH+AX8BcgES + AfwBZwHAAQMB/wE/AUABcgH+AScBwAEDAf8BnwEZARIB/wEHAcABAwH5AZ8BsgENAf8BhwHAAQMB+QGf + AbIBDQH+AQcBwAEDAfwBPwHbARsB/gEHAcABAwL/AucC/wHAAQMC/wH4AR8K/ws= + + 18, 8 @@ -132,4 +197,162 @@ 34 + + + + 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/Form1.vb b/Form1.vb index 7798a5a..431d00f 100644 --- a/Form1.vb +++ b/Form1.vb @@ -6,11 +6,40 @@ Imports TestEIn.EgtInterface Public Class Form1 + '-------------------------------- AboutBox ------------------------------------------------------- + +Private Shared Function GetSystemMenu(ByVal hWnd As IntPtr, ByVal bRevert As Boolean) As IntPtr +End Function + +Private Shared Function AppendMenu(ByVal hMenu As IntPtr, ByVal uFlags As Integer, + ByVal uIDNewItem As Integer, ByVal lpNewItem As String) As Boolean +End Function +Private Const MF_STRING As UInt32 = &H0 +Private Const MF_SEPARATOR As UInt32 = &H800 +Private Const WM_SYSCOMMAND As UInt32 = &H112 +Private Const IDM_ABOUTBOX As UInt32 = &H10 + '-------------------------------- Form ------------------------------------------------------------ Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Text = "EgalTech TestEIn" rbtShading.Checked = True Scene1.Init() + m_nOldIdTree = GDB_ID_NULL + ' aggiungo voce per about box nel menù di sistema + Dim hSysMenu As IntPtr = GetSystemMenu(Handle, False) + If hSysMenu <> IntPtr.Zero Then + AppendMenu(hSysMenu, MF_SEPARATOR, 0, "") + AppendMenu(hSysMenu, MF_STRING, IDM_ABOUTBOX, "About TestEIn...") + End If + End Sub + + Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) + MyBase.WndProc(m) + If m.Msg = WM_SYSCOMMAND Then + If m.WParam.ToInt32 = IDM_ABOUTBOX Then + AboutBox1.Show() + End If + End If End Sub Private Sub CursorPos(ByVal sender As Object, ByVal sCursorPos As String) Handles Scene1.CursorPos @@ -20,7 +49,8 @@ Public Class Form1 '-------------------------------- Buttons -------------------------------------------------------- Private Sub btnNew_Click(sender As System.Object, e As System.EventArgs) Handles btnNew.Click If EgtNewFile(Scene1.GetCtx) Then - EgtZoom(Scene1.GetCtx, ZM_ALL, True) + ClearObjTree() + EgtZoom(Scene1.GetCtx, ZM_ALL) End If End Sub @@ -31,7 +61,8 @@ Public Class Form1 If OpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then Cursor = Cursors.WaitCursor If EgtOpenFile(Scene1.GetCtx, OpenFileDialog.FileName) Then - EgtZoom(Scene1.GetCtx, ZM_ALL, True) + EgtZoom(Scene1.GetCtx, ZM_ALL) + LoadObjTree() End If Cursor = Cursors.Default End If @@ -43,7 +74,12 @@ Public Class Form1 SaveFileDialog.FilterIndex = 1 If SaveFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then Cursor = Cursors.WaitCursor + ' ripristino stato oggetto marcato + Dim nIdOld As Integer = RevertOldIdInObjTree() + ' eseguo salvataggio EgtSaveFile(Scene1.GetCtx, SaveFileDialog.FileName, NGE_CMPTEXT) + ' rimarco oggetto + SelectIdInObjTree(nIdOld) Cursor = Cursors.Default End If End Sub @@ -58,14 +94,16 @@ Public Class Form1 Cursor = Cursors.WaitCursor EgtNewFile(Scene1.GetCtx) If EgtImportDxf(Scene1.GetCtx, OpenFileDialog.FileName) Then - EgtZoom(Scene1.GetCtx, ZM_ALL, True) + EgtZoom(Scene1.GetCtx, ZM_ALL) + LoadObjTree() End If Cursor = Cursors.Default ElseIf nFileType = FT_STL Then Cursor = Cursors.WaitCursor EgtNewFile(Scene1.GetCtx) If EgtImportStl(Scene1.GetCtx, OpenFileDialog.FileName) Then - EgtZoom(Scene1.GetCtx, ZM_ALL, True) + EgtZoom(Scene1.GetCtx, ZM_ALL) + LoadObjTree() End If Cursor = Cursors.Default Else @@ -100,95 +138,244 @@ Public Class Form1 OpenFileDialog.FilterIndex = 1 If OpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then Cursor = Cursors.WaitCursor + ' pulisco albero degli oggetti + ClearObjTree() + ' eseguo If EgtTscFileExec(Scene1.GetCtx, OpenFileDialog.FileName) Then - EgtZoom(Scene1.GetCtx, ZM_ALL, True) + EgtZoom(Scene1.GetCtx, ZM_ALL) + LoadObjTree() End If + ' ricarico albero degli oggetti + LoadObjTree() Cursor = Cursors.Default End If End Sub Private Sub rbtWireFrame_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbtWireFrame.CheckedChanged - EgtSetShowMode(Scene1.GetCtx, SM_WIREFRAME, True) + EgtSetShowMode(Scene1.GetCtx, SM_WIREFRAME) End Sub Private Sub rbtHiddenLine_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbtHiddenLine.CheckedChanged - EgtSetShowMode(Scene1.GetCtx, SM_HIDDENLINE, True) + EgtSetShowMode(Scene1.GetCtx, SM_HIDDENLINE) End Sub Private Sub rbtShading_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbtShading.CheckedChanged - EgtSetShowMode(Scene1.GetCtx, SM_SHADING, True) + EgtSetShowMode(Scene1.GetCtx, SM_SHADING) End Sub Private Sub chkCurveDir_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkCurveDir.CheckedChanged - EgtSetShowCurveDirection(Scene1.GetCtx, chkCurveDir.Checked, True) + EgtSetShowCurveDirection(Scene1.GetCtx, chkCurveDir.Checked) End Sub Private Sub btnZoomAll_Click(sender As System.Object, e As System.EventArgs) Handles btnZoomAll.Click - EgtZoom(Scene1.GetCtx, ZM_ALL, True) + EgtZoom(Scene1.GetCtx, ZM_ALL) End Sub Private Sub btnZoomIn_Click(sender As System.Object, e As System.EventArgs) Handles btnZoomIn.Click - EgtZoom(Scene1.GetCtx, ZM_IN, True) + EgtZoom(Scene1.GetCtx, ZM_IN) End Sub Private Sub btnZoomOut_Click(sender As System.Object, e As System.EventArgs) Handles btnZoomOut.Click - EgtZoom(Scene1.GetCtx, ZM_OUT, True) + EgtZoom(Scene1.GetCtx, ZM_OUT) End Sub Private Sub btnTop_Click(sender As System.Object, e As System.EventArgs) Handles btnTop.Click - EgtSetView(Scene1.GetCtx, CT_TOP, True) + EgtSetView(Scene1.GetCtx, CT_TOP) End Sub Private Sub btnFront_Click(sender As System.Object, e As System.EventArgs) Handles btnFront.Click - EgtSetView(Scene1.GetCtx, CT_FRONT, True) + EgtSetView(Scene1.GetCtx, CT_FRONT) End Sub Private Sub btnLeft_Click(sender As System.Object, e As System.EventArgs) Handles btnLeft.Click - EgtSetView(Scene1.GetCtx, CT_LEFT, True) + EgtSetView(Scene1.GetCtx, CT_LEFT) End Sub Private Sub btnBack_Click(sender As System.Object, e As System.EventArgs) Handles btnBack.Click - EgtSetView(Scene1.GetCtx, CT_BACK, True) + EgtSetView(Scene1.GetCtx, CT_BACK) End Sub Private Sub btnRight_Click(sender As System.Object, e As System.EventArgs) Handles btnRight.Click - EgtSetView(Scene1.GetCtx, CT_RIGHT, True) + EgtSetView(Scene1.GetCtx, CT_RIGHT) End Sub Private Sub btnIso_Click(sender As System.Object, e As System.EventArgs) Handles btnIso.Click - EgtSetView(Scene1.GetCtx, CT_ISO_SW, True) + EgtSetView(Scene1.GetCtx, CT_ISO_SW) End Sub - 'Private Sub btnExport_Click(sender As System.Object, e As System.EventArgs) Handles btnExport.Click - ' Dim dA As Double - ' dA = Summ(12.5, 0.5) - ' MessageBox.Show(dA.ToString, "Summ", MessageBoxButtons.OK, MessageBoxIcon.Information) + '-------------------------------- Command Box ---------------------------------------------------- + Private Sub tboxCmd_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles tboxCmd.KeyDown + If (e.KeyCode = Keys.Enter) Then + Dim nLine As Integer = tboxCmd.GetLineFromCharIndex(tboxCmd.GetFirstCharIndexOfCurrentLine) + Dim sCmd As String = tboxCmd.Lines(nLine).ToString + If Not String.IsNullOrEmpty(sCmd) Then + ' ripristino stato oggetto marcato + Dim nIdOld As Integer = RevertOldIdInObjTree() + ' eseguo comando + If EgtTscLineExec(Scene1.GetCtx, sCmd) Then + Scene1.Invalidate() + ToolStripStatusLabel3.Text = " " + Else + ToolStripStatusLabel3.Text = "Error executing command" + End If + ' ricarico albero degli oggetti + LoadObjTree() + SelectIdInObjTree(nIdOld) + End If + End If + End Sub - ' Dim bOk As Boolean - ' Dim sA As String - ' sA = "PiΣpΣpo" - ' Dim sB As String = "" - ' bOk = Append(sA, sB) - ' If bOk Then - ' MessageBox.Show(sB, "Append", MessageBoxButtons.OK, MessageBoxIcon.Information) - ' Else - ' MessageBox.Show("Error", "Append", MessageBoxButtons.OK, MessageBoxIcon.Error) - ' End If + '-------------------------------- Tree View ------------------------------------------------------ + Private m_nOldIdTree As Integer - ' Dim dC As Double - ' dC = 22.5 - ' bOk = Summ2(dC, 0.5) - ' If bOk Then - ' MessageBox.Show(dC.ToString, "Summ2", MessageBoxButtons.OK, MessageBoxIcon.Information) - ' Else - ' MessageBox.Show("Error", "Summ2", MessageBoxButtons.OK, MessageBoxIcon.Error) - ' End If + Private Sub LoadObjTree() + ClearObjTree() + TreeView1.BeginUpdate() + TreeView1.Nodes.Add(GDB_ID_NULL.ToString, "No Selection", 0, 0) + AddGroupInObjTree(GDB_ID_ROOT, TreeView1.Nodes) + TreeView1.EndUpdate() + End Sub - ' Dim ptP As Point3d - ' ptP.x = 1 - ' ptP.y = 2 - ' ptP.z = 3 - ' bOk = SetPoint(ptP) - ' MessageBox.Show(ptP.x.ToString, "Summ2", MessageBoxButtons.OK, MessageBoxIcon.Information) - 'End Sub + Private Sub ClearObjTree() + RevertOldIdInObjTree() + TreeView1.Nodes.Clear() + End Sub + + Private Sub AddGroupInObjTree(ByVal nGroupId As Integer, ByRef PrevNodColl As TreeNodeCollection) + + Dim CurrNodColl As TreeNodeCollection + + If nGroupId = GDB_ID_ROOT Then + CurrNodColl = PrevNodColl + Else + Dim sName As String = String.Empty + Dim sText As String = String.Empty + If EgtGetName(Scene1.GetCtx, nGroupId, sName) Then + sText = sName + " (Group " + nGroupId.ToString + ")" + Else + sText = "Group " + nGroupId.ToString + End If + Dim nImage As Integer = TypeToImageInObjTree(TY_GROUP) + CurrNodColl = PrevNodColl.Add(nGroupId.ToString, sText, nImage, nImage).Nodes + End If + + Dim nId As Integer = EgtGetFirstInGroup(Scene1.GetCtx, nGroupId) + While nId <> GDB_ID_NULL + 'recupero il tipo di nodo + Dim nType As Integer = EgtGetType(Scene1.GetCtx, nId) + 'se gruppo + If nType = TY_GROUP Then + AddGroupInObjTree(nId, CurrNodColl) + 'se oggetto geometrico + ElseIf nType >= TY_GEO_VECTOR Then + Dim sTitle As String = String.Empty + EgtGetTitle(Scene1.GetCtx, nId, sTitle) + Dim sName As String = String.Empty + Dim sText As String = String.Empty + If EgtGetName(Scene1.GetCtx, nId, sName) Then + sText = sName + " (" + sTitle + " " + nId.ToString + ")" + Else + sText = sTitle + " " + nId.ToString + End If + Dim nImage As Integer = TypeToImageInObjTree(nType) + CurrNodColl.Add(nId.ToString, sText, nImage, nImage) + End If + 'passo al successivo + nId = EgtGetNext(Scene1.GetCtx, nId) + End While + End Sub + + Private Function TypeToImageInObjTree(ByVal nType As Integer) As Integer + Select Case nType + Case TY_GROUP + Return 2 + Case TY_GEO_VECTOR + Return 3 + Case TY_GEO_POINT + Return 4 + Case TY_GEO_FRAME + Return 5 + Case TY_CRV_LINE + Return 6 + Case TY_CRV_ARC + Return 7 + Case TY_CRV_BEZ + Return 8 + Case TY_CRV_COMPO + Return 9 + Case TY_SRF_MESH + Return 10 + Case TY_EXT_TEXT + Return 11 + End Select + Return 1 + End Function + + Private Sub ObjTree_AfterSelect(ByVal sender As Object, ByVal e As TreeViewEventArgs) Handles TreeView1.AfterSelect + ' recupero l'Id del nuovo oggetto selezionato + Dim nId As Integer + If Not Int32.TryParse(e.Node.Name, nId) Then + Return + End If + ' ripristino eventuale vecchio oggetto selezionato + RevertOldIdInObjTree() + ' recupero il tipo del nuovo oggetto + Dim nType As Integer = EgtGetType(Scene1.GetCtx, nId) + ' stampa dei dati del nuovo oggetto + Dim sDump As String = String.Empty + If nType = TY_NONE Then + tBoxInfo.Text = String.Empty + ElseIf nType = TY_GROUP Then + If EgtGroupDump(Scene1.GetCtx, nId, sDump) Then + tBoxInfo.Text = sDump + Else + tBoxInfo.Text = String.Empty + End If + Else + If EgtGeoObjDump(Scene1.GetCtx, nId, sDump) Then + tBoxInfo.Text = sDump + Else + tBoxInfo.Text = String.Empty + End If + End If + ' permetto in ogni caso la visualizzazione dell'oggetto e lo evidenzio + Dim nOldMode As Integer = GDB_MD_STD + EgtGetMode(Scene1.GetCtx, nId, nOldMode) + Dim nMode As Integer = IIf((nOldMode = GDB_MD_HIDDEN), GDB_MD_STD, nOldMode) + EgtSetMode(Scene1.GetCtx, nId, nMode) + Dim nOldStatus As Integer = GDB_ST_ON + EgtGetStatus(Scene1.GetCtx, nId, nOldStatus) + Dim nStat As Integer = IIf((nOldStatus = GDB_ST_OFF), GDB_ST_ON, nOldStatus) + EgtSetStatus(Scene1.GetCtx, nId, nStat) + EgtSetMark(Scene1.GetCtx, nId) + m_nOldIdTree = nId + ' imposto il ridisegno della scena + Scene1.Invalidate() + End Sub + + Private Function RevertOldIdInObjTree() As Integer + ' salvo il vecchio Id + Dim nOldId As Integer = m_nOldIdTree + ' se non nullo... + If EgtExistsObj(Scene1.GetCtx, m_nOldIdTree) Then + ' ripristino il modo e lo stato precedente dell'oggetto e lo smarco + EgtRevertMode(Scene1.GetCtx, m_nOldIdTree) + EgtRevertStatus(Scene1.GetCtx, m_nOldIdTree) + EgtResetMark(Scene1.GetCtx, m_nOldIdTree) + ' annullo oggetto da ripristinare + m_nOldIdTree = GDB_ID_NULL + End If + Return nOldId + End Function + + Private Function SelectIdInObjTree(ByVal nId As Integer) As Boolean + + Dim tNode() As TreeNode = TreeView1.Nodes.Find(nId.ToString, True) + If tNode.Length > 0 Then + TreeView1.SelectedNode = tNode(0) + Return True + Else + Return False + End If + End Function End Class diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index 152196b..4e820af 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' utilizzando l'asterisco (*) come descritto di seguito: ' - - + + diff --git a/Resources/TestEIn.ico b/Resources/TestEIn.ico new file mode 100644 index 0000000..f61aa51 Binary files /dev/null and b/Resources/TestEIn.ico differ diff --git a/Scene.vb b/Scene.vb index 5befa0a..230f437 100644 --- a/Scene.vb +++ b/Scene.vb @@ -33,7 +33,7 @@ Public Class Scene m_nGseContext = EgtInitGeomDB() EgtSetDefaultMaterial(m_nGseContext, 255, 165, 0) EgtInitScene(m_nGseContext, Handle, 3, True, 24, 32) - EgtSetBackground(m_nGseContext, 140, 154, 168, 40, 44, 48) + EgtSetBackground(m_nGseContext, 140, 154, 168, 40, 44, 48, False) EgtInitTscExec(m_nGseContext) End Sub @@ -87,7 +87,7 @@ Public Class Scene If e.Button = Windows.Forms.MouseButtons.Middle Then If m_nStatus = ST.ZOOMWIN Then EgtResetWinRect(m_nGseContext, False) - EgtZoomWin(m_nGseContext, m_PrevPoint, e.Location, True) + EgtZoomWin(m_nGseContext, m_PrevPoint, e.Location) End If If m_nStatus <> ST.NULL Then m_nStatus = ST.NULL @@ -105,15 +105,15 @@ Public Class Scene If e.Button = Windows.Forms.MouseButtons.Middle Then If m_nStatus = ST.ZOOMWIN Then Cursor = New Cursor(Me.GetType(), "ZoomWin.cur") - EgtSetWinRect(m_nGseContext, m_PrevPoint, e.Location, True) + EgtSetWinRect(m_nGseContext, m_PrevPoint, e.Location) 'Il punto di riferimento deve rimanere quello originale ElseIf m_nStatus = ST.ROT Then Cursor = New Cursor(Me.GetType(), "Rotate.cur") - EgtRotateCamera(m_nGseContext, m_PrevPoint, e.Location, True) + EgtRotateCamera(m_nGseContext, m_PrevPoint, e.Location) m_PrevPoint = e.Location ElseIf m_nStatus = ST.PAN Then Cursor = New Cursor(Me.GetType(), "Pan.cur") - EgtPanCamera(m_nGseContext, m_PrevPoint, e.Location, True) + EgtPanCamera(m_nGseContext, m_PrevPoint, e.Location) m_PrevPoint = e.Location Else m_nStatus = ST.NULL @@ -135,7 +135,7 @@ Public Class Scene dCoeff = 1 / dCoeff End If ' eseguo zoom - EgtZoomOnPoint(m_nGseContext, e.Location, dCoeff, True) + EgtZoomOnPoint(m_nGseContext, e.Location, dCoeff) End Sub Private Sub ShowCursorPos(ByVal WinXY As Point) diff --git a/TestEIn.vbproj b/TestEIn.vbproj index 5cc683d..8454330 100644 --- a/TestEIn.vbproj +++ b/TestEIn.vbproj @@ -117,6 +117,9 @@ false false + + Resources\TestEIn.ico + @@ -142,6 +145,12 @@ + + AboutBox1.vb + + + Form + Form @@ -173,6 +182,9 @@ + + AboutBox1.vb + Form1.vb @@ -225,6 +237,9 @@ + + + copy c:\EgtDev\TestEIn\bin\Release32\TestEIn.exe c:\EgtProg\TestEIn\TestEInR32.exe