TestEIn/Form1.vb

Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Math
Imports TestEIn.EgtInterface


Public Class Form1

'-------------------------------- Form ------------------------------------------------------------
   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
      Text = "EgalTech TestEngine"
      rbtShading.Checked = True
      Scene1.Init()
   End Sub

   Private Sub CursorPos(ByVal sender As Object, ByVal sCursorPos As String) Handles Scene1.CursorPos
      ToolStripStatusLabel1.Text = sCursorPos
   End Sub

 '-------------------------------- Buttons --------------------------------------------------------
  Private Sub btnNew_Click(sender As System.Object, e As System.EventArgs) Handles btnNew.Click
      If EgtNewFile() Then
         EgtZoom(ZM_ALL)
         Scene1.Invalidate()
      End If
   End Sub

   Private Sub btnOpen_Click(sender As System.Object, e As System.EventArgs) Handles btnOpen.Click
      OpenFileDialog.Filter = "New geometry EgalTech(*.nge)|*.nge|New font EgalTech(*.nfe)|*.nfe|All Files (*.*)|*.*"
      OpenFileDialog.FilterIndex = 1
      If OpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
         Cursor = Cursors.WaitCursor
         If EgtOpenFile(OpenFileDialog.FileName) Then
            EgtZoom(ZM_ALL)
            Scene1.Invalidate()
         End If
         Cursor = Cursors.Default
      End If
   End Sub

   Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
      If SaveFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then

      End If
   End Sub

   Private Sub btnImport_Click(sender As System.Object, e As System.EventArgs) Handles btnImport.Click
      ImportFileDialog.Filter = "Drawing Exchange Fmt(*.dxf)|*.dxf|Stereolithography (*.stl)|*.stl|All Files (*.*)|*.*"
      ImportFileDialog.FilterIndex = 1
      If ImportFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
         Dim nFileType As Integer = EgtTestImportExt(ImportFileDialog.FileName)
         If nFileType = FT_DXF Then
            Cursor = Cursors.WaitCursor
            EgtNewFile()
            If EgtImportDxf(ImportFileDialog.FileName) Then
               EgtZoom(ZM_ALL)
               Scene1.Invalidate()
            End If
            Cursor = Cursors.Default
         ElseIf nFileType = FT_STL Then
            Cursor = Cursors.WaitCursor
            EgtNewFile()
            If EgtImportStl(ImportFileDialog.FileName) Then
               EgtZoom(ZM_ALL)
               Scene1.Invalidate()
            End If
            Cursor = Cursors.Default
         End If
      End If
   End Sub

   Private Sub btnExec_Click(sender As System.Object, e As System.EventArgs) Handles btnExec.Click
      Dim bOk As Boolean
      Dim hWnd As IntPtr
      ' emetto testo in editor
      hWnd = TextBox1.Handle
      bOk = OutText(hWnd, "Testo di prova abbastanza lungo")
      ' emetto croci in picture
      hWnd = Scene1.Handle
      bOk = DrawCross(hWnd, 100, 100, 10)
      bOk = DrawCross(hWnd, 150, 100, 10)
      bOk = DrawCross(hWnd, 150, 150, 10)
      bOk = DrawCross(hWnd, 200, 150, 10)

   End Sub

   Private Sub rbtWireFrame_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbtWireFrame.CheckedChanged
      EgtSetShowMode(SM_WIREFRAME)
      Scene1.Invalidate()
   End Sub

   Private Sub rbtHiddenLine_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbtHiddenLine.CheckedChanged
      EgtSetShowMode(SM_HIDDENLINE)
      Scene1.Invalidate()
   End Sub

   Private Sub rbtShading_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbtShading.CheckedChanged
      EgtSetShowMode(SM_SHADING)
      Scene1.Invalidate()
   End Sub

   Private Sub chkCurveDir_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkCurveDir.CheckedChanged
      EgtSetShowCurveDirection(chkCurveDir.Checked)
      Scene1.Invalidate()
   End Sub

   Private Sub btnZoomAll_Click(sender As System.Object, e As System.EventArgs) Handles btnZoomAll.Click
      EgtZoom(ZM_ALL)
      Scene1.Invalidate()
   End Sub

   Private Sub btnZoomIn_Click(sender As System.Object, e As System.EventArgs) Handles btnZoomIn.Click
      EgtZoom(ZM_IN)
      Scene1.Invalidate()
   End Sub

   Private Sub btnZoomOut_Click(sender As System.Object, e As System.EventArgs) Handles btnZoomOut.Click
      EgtZoom(ZM_OUT)
      Scene1.Invalidate()
   End Sub

   Private Sub btnTop_Click(sender As System.Object, e As System.EventArgs) Handles btnTop.Click
      EgtSetView(CT_TOP)
      Scene1.Invalidate()
   End Sub

   Private Sub btnFront_Click(sender As System.Object, e As System.EventArgs) Handles btnFront.Click
      EgtSetView(CT_FRONT)
      Scene1.Invalidate()
   End Sub

   Private Sub btnLeft_Click(sender As System.Object, e As System.EventArgs) Handles btnLeft.Click
      EgtSetView(CT_LEFT)
      Scene1.Invalidate()
   End Sub

   Private Sub btnBack_Click(sender As System.Object, e As System.EventArgs) Handles btnBack.Click
      EgtSetView(CT_BACK)
      Scene1.Invalidate()
   End Sub

   Private Sub btnRight_Click(sender As System.Object, e As System.EventArgs) Handles btnRight.Click
      EgtSetView(CT_RIGHT)
      Scene1.Invalidate()
   End Sub
   Private Sub btnIso_Click(sender As System.Object, e As System.EventArgs) Handles btnIso.Click
      EgtSetView(CT_ISO_SW)
      Scene1.Invalidate()
   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)

      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

      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

      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 PictureBox1_HandleDestroyed(sender As System.Object, e As System.EventArgs)

End Sub

Private Sub PictureBox1_HandleCreated(sender As System.Object, e As System.EventArgs)

End Sub

Private Sub PictureBox1_Resize(sender As System.Object, e As System.EventArgs)

End Sub

Private Sub PictureBox1_MouseWheel(sender As System.Object, e As System.Windows.Forms.MouseEventArgs)

End Sub

Private Sub PictureBox1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs)

End Sub

Private Sub CursorPos(nType As System.Int32, dVal1 As System.Double, dVal2 As System.Double)

End Sub
End Class