From 8a30fdd7c82a9ef0479d5b9b73f7d0106991f7ff Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Fri, 8 Jan 2016 17:18:17 +0000 Subject: [PATCH] TestEIn 1.6l7 : - aggiornamento per pezzi piatti. --- EgtInterface.vb | 182 +++++++++++++++++++++++++------------ FlatParts.Designer.vb | 32 +++++-- FlatParts.resx | 2 +- FlatParts.vb | 18 ++++ My Project/AssemblyInfo.vb | 4 +- 5 files changed, 169 insertions(+), 69 deletions(-) diff --git a/EgtInterface.vb b/EgtInterface.vb index a9b6ef5..f2ea8c9 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -5057,32 +5057,6 @@ Public Function EgtPackSelectedBoxCluster(ByVal dXmin As Double, ByVal dYmin As End If End Function - -Private Function EgtGetClusterBBoxGlob_32(ByVal vId As Integer(), ByVal nCount As Integer, - ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean -End Function - -Private Function EgtGetClusterBBoxGlob_64(ByVal vId As Integer(), ByVal nCount As Integer, - ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean -End Function -Public Function EgtGetClusterBBoxGlob(ByVal vId As Integer(), - ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean - If IntPtr.Size = 4 Then - Return EgtGetClusterBBoxGlob_32(vId, vId.Count(), PtMin, PtMax) - Else - Return EgtGetClusterBBoxGlob_64(vId, vId.Count(), PtMin, PtMax) - End If -End Function -Public Function EgtGetSelectedClusterBBoxGlob(ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean - Dim vId(1) As Integer - vId(0) = GDB_ID.SEL - If IntPtr.Size = 4 Then - Return EgtGetClusterBBoxGlob_32(vId, 1, PtMin, PtMax) - Else - Return EgtGetClusterBBoxGlob_64(vId, 1, PtMin, PtMax) - End If -End Function - Private Function EgtMoveBoxCluster_32(ByVal vId As Integer(), ByVal nCount As Integer, ByRef vtMove As Vector3d, ByVal dXmin As Double, ByVal dYmin As Double, @@ -5113,64 +5087,159 @@ Public Function EgtMoveSelectedBoxCluster(ByRef vtMove As Vector3d, ByVal dXmin End If End Function - -Private Function EgtMovePartCluster_32(ByVal vId As Integer(), ByVal nCount As Integer, ByRef vtMove As Vector3d, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double) As Boolean + +Private Function EgtGetClusterBBoxGlob_32(ByVal vId As Integer(), ByVal nCount As Integer, + ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean End Function - -Private Function EgtMovePartCluster_64(ByVal vId As Integer(), ByVal nCount As Integer, ByRef vtMove As Vector3d, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double) As Boolean + +Private Function EgtGetClusterBBoxGlob_64(ByVal vId As Integer(), ByVal nCount As Integer, + ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean End Function -Public Function EgtMovePartCluster(ByVal vId As Integer(), ByRef vtMove As Vector3d, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double) As Boolean +Public Function EgtGetClusterBBoxGlob(ByVal vId As Integer(), + ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean If IntPtr.Size = 4 Then - Return EgtMovePartCluster_32(vId, vId.Count(), vtMove, dXmin, dYmin, dXmax, dYmax) + Return EgtGetClusterBBoxGlob_32(vId, vId.Count(), PtMin, PtMax) Else - Return EgtMovePartCluster_64(vId, vId.Count(), vtMove, dXmin, dYmin, dXmax, dYmax) + Return EgtGetClusterBBoxGlob_64(vId, vId.Count(), PtMin, PtMax) End If End Function -Public Function EgtMoveSelectedPartCluster(ByRef vtMove As Vector3d, ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double) As Boolean +Public Function EgtGetSelectedClusterBBoxGlob(ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean Dim vId(1) As Integer vId(0) = GDB_ID.SEL If IntPtr.Size = 4 Then - Return EgtMovePartCluster_32(vId, 1, vtMove, dXmin, dYmin, dXmax, dYmax) + Return EgtGetClusterBBoxGlob_32(vId, 1, PtMin, PtMax) Else - Return EgtMovePartCluster_64(vId, 1, vtMove, dXmin, dYmin, dXmax, dYmax) + Return EgtGetClusterBBoxGlob_64(vId, 1, PtMin, PtMax) End If End Function - -Private Function EgtRotatePartCluster_32(ByVal vId As Integer(), ByVal nCount As Integer, ByRef ptCen As Point3d, - ByRef dRotAngDeg As Double, ByVal dXmin As Double, ByVal dYmin As Double, + +Private Function EgtVerifyPartCluster_32(ByVal vId As Integer(), ByVal nCount As Integer, ByVal bReducedCut As Boolean, + ByVal dXmin As Double, ByVal dYmin As Double, ByVal dXmax As Double, ByVal dYmax As Double) As Boolean End Function - -Private Function EgtRotatePartCluster_64(ByVal vId As Integer(), ByVal nCount As Integer, ByRef ptCen As Point3d, - ByRef dRotAngDeg As Double, ByVal dXmin As Double, ByVal dYmin As Double, + +Private Function EgtVerifyPartCluster_64(ByVal vId As Integer(), ByVal nCount As Integer, ByVal bReducedCut As Boolean, + ByVal dXmin As Double, ByVal dYmin As Double, ByVal dXmax As Double, ByVal dYmax As Double) As Boolean End Function -Public Function EgtRotatePartCluster(ByVal vId As Integer(), ByVal ptCen As Point3d, ByRef dRotAngDeg As Double, +Public Function EgtVerifyPartCluster(ByVal vId As Integer(), ByVal bReducedCut As Boolean, ByVal dXmin As Double, ByVal dYmin As Double, ByVal dXmax As Double, ByVal dYmax As Double) As Boolean If IntPtr.Size = 4 Then - Return EgtRotatePartCluster_32(vId, vId.Count(), ptCen, dRotAngDeg, dXmin, dYmin, dXmax, dYmax) + Return EgtVerifyPartCluster_32(vId, vId.Count(), bReducedCut, dXmin, dYmin, dXmax, dYmax) Else - Return EgtRotatePartCluster_64(vId, vId.Count(), ptCen, dRotAngDeg, dXmin, dYmin, dXmax, dYmax) + Return EgtVerifyPartCluster_64(vId, vId.Count(), bReducedCut, dXmin, dYmin, dXmax, dYmax) End If End Function -Public Function EgtRotateSelectedPartCluster(ByVal ptCen As Point3d, ByRef dRotAngDeg As Double, +Public Function EgtVerifySelectedPartCluster(ByVal bReducedCut As Boolean, ByVal dXmin As Double, ByVal dYmin As Double, ByVal dXmax As Double, ByVal dYmax As Double) As Boolean Dim vId(1) As Integer vId(0) = GDB_ID.SEL If IntPtr.Size = 4 Then - Return EgtRotatePartCluster_32(vId, 1, ptCen, dRotAngDeg, dXmin, dYmin, dXmax, dYmax) + Return EgtVerifyPartCluster_32(vId, 1, bReducedCut, dXmin, dYmin, dXmax, dYmax) Else - Return EgtRotatePartCluster_64(vId, 1, ptCen, dRotAngDeg, dXmin, dYmin, dXmax, dYmax) + Return EgtVerifyPartCluster_64(vId, 1, bReducedCut, dXmin, dYmin, dXmax, dYmax) + End If +End Function + + +Private Function EgtPackPartCluster_32(ByVal vId As Integer(), ByVal nCount As Integer, ByVal bReducedCut As Boolean, + ByVal dXmin As Double, ByVal dYmin As Double, + ByVal dXmax As Double, ByVal dYmax As Double, ByVal bBottomUp As Boolean) As Boolean +End Function + +Private Function EgtPackPartCluster_64(ByVal vId As Integer(), ByVal nCount As Integer, ByVal bReducedCut As Boolean, + ByVal dXmin As Double, ByVal dYmin As Double, + ByVal dXmax As Double, ByVal dYmax As Double, ByVal bBottomUp As Boolean) As Boolean +End Function +Public Function EgtPackPartCluster(ByVal vId As Integer(), ByVal bReducedCut As Boolean, + ByVal dXmin As Double, ByVal dYmin As Double, + ByVal dXmax As Double, ByVal dYmax As Double, ByVal bBottomUp As Boolean) As Boolean + If IntPtr.Size = 4 Then + Return EgtPackPartCluster_32(vId, vId.Count(), bReducedCut, dXmin, dYmin, dXmax, dYmax, bBottomUp) + Else + Return EgtPackPartCluster_64(vId, vId.Count(), bReducedCut, dXmin, dYmin, dXmax, dYmax, bBottomUp) + End If +End Function +Public Function EgtPackPart(ByVal nPartId As Integer, ByVal bReducedCut As Boolean, + ByVal dXmin As Double, ByVal dYmin As Double, + ByVal dXmax As Double, ByVal dYmax As Double, ByVal bBottomUp As Boolean) As Boolean + Dim vId(1) As Integer + vId(0) = nPartId + If IntPtr.Size = 4 Then + Return EgtPackPartCluster_32(vId, 1, bReducedCut, dXmin, dYmin, dXmax, dYmax, bBottomUp) + Else + Return EgtPackPartCluster_64(vId, 1, bReducedCut, dXmin, dYmin, dXmax, dYmax, bBottomUp) + End If +End Function + + +Private Function EgtMovePartCluster_32(ByVal vId As Integer(), ByVal nCount As Integer, + ByVal bReducedCut As Boolean, ByRef vtMove As Vector3d, + ByVal dXmin As Double, ByVal dYmin As Double, + ByVal dXmax As Double, ByVal dYmax As Double) As Boolean +End Function + +Private Function EgtMovePartCluster_64(ByVal vId As Integer(), ByVal nCount As Integer, + ByVal bReducedCut As Boolean, ByRef vtMove As Vector3d, + ByVal dXmin As Double, ByVal dYmin As Double, + ByVal dXmax As Double, ByVal dYmax As Double) As Boolean +End Function +Public Function EgtMovePartCluster(ByVal vId As Integer(), + ByVal bReducedCut As Boolean, ByRef vtMove As Vector3d, + ByVal dXmin As Double, ByVal dYmin As Double, + ByVal dXmax As Double, ByVal dYmax As Double) As Boolean + If IntPtr.Size = 4 Then + Return EgtMovePartCluster_32(vId, vId.Count(), bReducedCut, vtMove, dXmin, dYmin, dXmax, dYmax) + Else + Return EgtMovePartCluster_64(vId, vId.Count(), bReducedCut, vtMove, dXmin, dYmin, dXmax, dYmax) + End If +End Function +Public Function EgtMoveSelectedPartCluster(ByVal bReducedCut As Boolean, ByRef vtMove As Vector3d, + ByVal dXmin As Double, ByVal dYmin As Double, + ByVal dXmax As Double, ByVal dYmax As Double) As Boolean + Dim vId(1) As Integer + vId(0) = GDB_ID.SEL + If IntPtr.Size = 4 Then + Return EgtMovePartCluster_32(vId, 1, bReducedCut, vtMove, dXmin, dYmin, dXmax, dYmax) + Else + Return EgtMovePartCluster_64(vId, 1, bReducedCut, vtMove, dXmin, dYmin, dXmax, dYmax) + End If +End Function + + +Private Function EgtRotatePartCluster_32(ByVal vId As Integer(), ByVal nCount As Integer, + ByVal bReducedCut As Boolean, ByRef ptCen As Point3d, ByRef dRotAngDeg As Double, + ByVal dXmin As Double, ByVal dYmin As Double, + ByVal dXmax As Double, ByVal dYmax As Double) As Boolean +End Function + +Private Function EgtRotatePartCluster_64(ByVal vId As Integer(), ByVal nCount As Integer, + ByVal bReducedCut As Boolean, ByRef ptCen As Point3d, ByRef dRotAngDeg As Double, + ByVal dXmin As Double, ByVal dYmin As Double, + ByVal dXmax As Double, ByVal dYmax As Double) As Boolean +End Function +Public Function EgtRotatePartCluster(ByVal vId As Integer(), + ByVal bReducedCut As Boolean, ByVal ptCen As Point3d, ByRef dRotAngDeg As Double, + ByVal dXmin As Double, ByVal dYmin As Double, + ByVal dXmax As Double, ByVal dYmax As Double) As Boolean + If IntPtr.Size = 4 Then + Return EgtRotatePartCluster_32(vId, vId.Count(), bReducedCut, ptCen, dRotAngDeg, dXmin, dYmin, dXmax, dYmax) + Else + Return EgtRotatePartCluster_64(vId, vId.Count(), bReducedCut, ptCen, dRotAngDeg, dXmin, dYmin, dXmax, dYmax) + End If +End Function +Public Function EgtRotateSelectedPartCluster(ByVal bReducedCut As Boolean, ByVal ptCen As Point3d, ByRef dRotAngDeg As Double, + ByVal dXmin As Double, ByVal dYmin As Double, + ByVal dXmax As Double, ByVal dYmax As Double) As Boolean + Dim vId(1) As Integer + vId(0) = GDB_ID.SEL + If IntPtr.Size = 4 Then + Return EgtRotatePartCluster_32(vId, 1, bReducedCut, ptCen, dRotAngDeg, dXmin, dYmin, dXmax, dYmax) + Else + Return EgtRotatePartCluster_64(vId, 1, bReducedCut, ptCen, dRotAngDeg, dXmin, dYmin, dXmax, dYmax) End If End Function @@ -8088,9 +8157,10 @@ End Enum Public Const LINE_BREAK As String = "
" 'Costanti : tipo creazione pezzo piatto Public Enum FPC_TYPE As Integer + NGE = 0 REGION = 1 LAYER = 2 - NGE = 3 + CLOSEDCURVE = 3 End Enum 'Costanti : posizione di inserimento grezzo su corner Public Enum MCH_CR As Integer diff --git a/FlatParts.Designer.vb b/FlatParts.Designer.vb index 084ec77..e46e146 100644 --- a/FlatParts.Designer.vb +++ b/FlatParts.Designer.vb @@ -33,6 +33,7 @@ Partial Class FlatParts Me.rbMm = New System.Windows.Forms.RadioButton() Me.rbInch = New System.Windows.Forms.RadioButton() Me.Panel1 = New System.Windows.Forms.Panel() + Me.btnUseClosedCurve = New System.Windows.Forms.Button() Me.btnReset = New System.Windows.Forms.Button() Me.btnUseLayer = New System.Windows.Forms.Button() Me.btnUseRegion = New System.Windows.Forms.Button() @@ -60,7 +61,7 @@ Partial Class FlatParts Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 26.0!)) Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 69.08212!)) Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 30.91788!)) - Me.TableLayoutPanel1.Size = New System.Drawing.Size(744, 414) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(744, 418) Me.TableLayoutPanel1.TabIndex = 0 ' 'Scene2 @@ -71,7 +72,7 @@ Partial Class FlatParts Me.Scene2.Location = New System.Drawing.Point(200, 29) Me.Scene2.Margin = New System.Windows.Forms.Padding(0, 3, 3, 0) Me.Scene2.Name = "Scene2" - Me.Scene2.Size = New System.Drawing.Size(541, 265) + Me.Scene2.Size = New System.Drawing.Size(541, 267) Me.Scene2.TabIndex = 8 ' 'tbCurrDir @@ -100,7 +101,7 @@ Partial Class FlatParts Me.ListView1.Name = "ListView1" Me.TableLayoutPanel1.SetRowSpan(Me.ListView1, 2) Me.ListView1.ShowGroups = False - Me.ListView1.Size = New System.Drawing.Size(194, 382) + Me.ListView1.Size = New System.Drawing.Size(194, 386) Me.ListView1.SmallImageList = Me.ImageList1 Me.ListView1.TabIndex = 7 Me.ListView1.UseCompatibleStateImageBehavior = False @@ -161,19 +162,29 @@ Partial Class FlatParts ' 'Panel1 ' + Me.Panel1.Controls.Add(Me.btnUseClosedCurve) Me.Panel1.Controls.Add(Me.btnReset) Me.Panel1.Controls.Add(Me.btnUseLayer) Me.Panel1.Controls.Add(Me.btnUseRegion) Me.Panel1.Controls.Add(Me.btnInsert) Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill - Me.Panel1.Location = New System.Drawing.Point(203, 297) + Me.Panel1.Location = New System.Drawing.Point(203, 299) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(538, 114) + Me.Panel1.Size = New System.Drawing.Size(538, 116) Me.Panel1.TabIndex = 11 ' + 'btnUseClosedCurve + ' + Me.btnUseClosedCurve.Location = New System.Drawing.Point(218, 23) + Me.btnUseClosedCurve.Name = "btnUseClosedCurve" + Me.btnUseClosedCurve.Size = New System.Drawing.Size(75, 23) + Me.btnUseClosedCurve.TabIndex = 4 + Me.btnUseClosedCurve.Text = "By CldCrv" + Me.btnUseClosedCurve.UseVisualStyleBackColor = True + ' 'btnReset ' - Me.btnReset.Location = New System.Drawing.Point(219, 52) + Me.btnReset.Location = New System.Drawing.Point(218, 52) Me.btnReset.Name = "btnReset" Me.btnReset.Size = New System.Drawing.Size(75, 23) Me.btnReset.TabIndex = 3 @@ -182,11 +193,11 @@ Partial Class FlatParts ' 'btnUseLayer ' - Me.btnUseLayer.Location = New System.Drawing.Point(219, 23) + Me.btnUseLayer.Location = New System.Drawing.Point(135, 23) Me.btnUseLayer.Name = "btnUseLayer" Me.btnUseLayer.Size = New System.Drawing.Size(75, 23) Me.btnUseLayer.TabIndex = 2 - Me.btnUseLayer.Text = "Use Layer" + Me.btnUseLayer.Text = "By Layer" Me.btnUseLayer.UseVisualStyleBackColor = True ' 'btnUseRegion @@ -195,7 +206,7 @@ Partial Class FlatParts Me.btnUseRegion.Name = "btnUseRegion" Me.btnUseRegion.Size = New System.Drawing.Size(75, 23) Me.btnUseRegion.TabIndex = 1 - Me.btnUseRegion.Text = "Use Region" + Me.btnUseRegion.Text = "By Region" Me.btnUseRegion.UseVisualStyleBackColor = True ' 'btnInsert @@ -211,7 +222,7 @@ Partial Class FlatParts ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(744, 414) + Me.ClientSize = New System.Drawing.Size(744, 418) Me.Controls.Add(Me.TableLayoutPanel1) Me.KeyPreview = True Me.MaximizeBox = False @@ -241,4 +252,5 @@ End Sub Friend WithEvents btnUseRegion As System.Windows.Forms.Button Friend WithEvents btnUseLayer As System.Windows.Forms.Button Friend WithEvents btnReset As System.Windows.Forms.Button + Friend WithEvents btnUseClosedCurve As System.Windows.Forms.Button End Class diff --git a/FlatParts.resx b/FlatParts.resx index 5e4eff1..6137d0d 100644 --- a/FlatParts.resx +++ b/FlatParts.resx @@ -125,7 +125,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACy - FQAAAk1TRnQBSQFMAgEBBAEAAeABAAHgAQABIAEAASABAAT/ARkBAAj/AUIBTQE2BwABNgMAASgDAAGA + FQAAAk1TRnQBSQFMAgEBBAEAAfgBAAH4AQABIAEAASABAAT/ARkBAAj/AUIBTQE2BwABNgMAASgDAAGA AwABQAMAAQEBAAEYBgABYP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A /wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A /wD/AP8A/wCQAAP+PP0D/v8APAAD/gP7PPgD+wP9mQAh6X4AAckB1wHlAZgBsQHHAZgBsQHHAZgBrwHH diff --git a/FlatParts.vb b/FlatParts.vb index a389cfa..40fe678 100644 --- a/FlatParts.vb +++ b/FlatParts.vb @@ -207,6 +207,7 @@ Public Class FlatParts Scene2.ZoomAll() ' disabilito bottoni Process e Insert btnUseLayer.Enabled = False + btnUseClosedCurve.Enabled = False btnUseRegion.Enabled = False btnReset.Enabled = False btnInsert.Enabled = False @@ -237,6 +238,7 @@ Public Class FlatParts Scene2.ZoomAll() ' abilito bottoni UseLayer e UseRegion, disabilito Reset e Insert btnUseLayer.Enabled = True + btnUseClosedCurve.Enabled = True btnUseRegion.Enabled = True btnReset.Enabled = False btnInsert.Enabled = False @@ -251,6 +253,21 @@ Public Class FlatParts Scene2.ZoomAll() ' disabilito bottoni UseLayer e UseRegion, abilito bottoni Reset e Insert btnUseLayer.Enabled = False + btnUseClosedCurve.Enabled = False + btnUseRegion.Enabled = False + btnReset.Enabled = True + btnInsert.Enabled = True + End Sub + + Private Sub btnUseClosedCurve_Click(sender As Object, e As EventArgs) Handles btnUseClosedCurve.Click + ' Creo i pezzi + Dim nType As Integer = If(m_nFileType = FT.NGE, FPC_TYPE.NGE, FPC_TYPE.CLOSEDCURVE) + EgtCreateFlatParts(nType) + ' Eseguo zoom + Scene2.ZoomAll() + ' disabilito bottoni UseLayer e UseRegion, abilito bottoni Reset e Insert + btnUseLayer.Enabled = False + btnUseClosedCurve.Enabled = False btnUseRegion.Enabled = False btnReset.Enabled = True btnInsert.Enabled = True @@ -264,6 +281,7 @@ Public Class FlatParts Scene2.ZoomAll() ' disabilito bottoni UseLayer e UseRegion, abilito bottoni Reset e Insert btnUseLayer.Enabled = False + btnUseClosedCurve.Enabled = False btnUseRegion.Enabled = False btnReset.Enabled = True btnInsert.Enabled = True diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index c116a18..0d576b6 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: ' - - + +