Jump to content


Photo

When I exit the CAD screen and then re-enter it there is no functionality


3 replies to this topic

#1 timpittser

timpittser

    Member

  • Members
  • PipPip
  • 29 posts

Posted 11 July 2014 - 02:34 PM

I've built my CAD screen inside my software and it works fine when entering the CAD screen initially, but when you go into another part of the software and then try to re-enter the CAD screen, it seems to have lost all functionality.  You have to exit the entire software package and re-enter the software to get the functionality back in the CAD screen.  Any help would be greatly appreciated, thank you.



#2 Athanasios Gardos

Athanasios Gardos

    Administrator

  • Admin
  • 359 posts
  • Gender:Male

Posted 14 July 2014 - 10:25 AM

Can you please send me a small sample code that has the same behavior with your project to see where is the problem?


Athanasios Gardos
Avax-Software.com

#3 timpittser

timpittser

    Member

  • Members
  • PipPip
  • 29 posts

Posted 14 July 2014 - 07:22 PM

Not exactly sure what you're needing, but below is the code that loads when I load the screen:


Private Sub StakingCAD_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load

Me.Left = (System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2

Me.Top = (System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2

Call InitAvax()

Call ResizeControls()

Call LoadFile("")

Call CAvax1.LoadPalette(My.Application.Info.DirectoryPath & "\color.pal")

CAvax1.SetAvaxProperty(Avax.AvaxProp.ShapeZorderOn_p, True)

CAvax1.SetAvaxProperty(Avax.AvaxProp.TransparentPicOn_p, True)

Using conn = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & MDIParent1.TextBox2.Text & "\FieldSolutions.ixp;")

Dim dbAdapter2 As New OleDb.OleDbDataAdapter("SELECT * from sketchlayers", conn)

Dim dbDataSet2 As New DataSet

Dim colstyle As New DataGridViewCellStyle

dbAdapter2.Fill(dbDataSet2)

Dim dbDataTable2 As DataTable = dbDataSet2.Tables(0)

If dbDataTable2.Rows.Count > 0 Then

For a = 0 To dbDataTable2.Rows.Count - 1

ComboBox3.Items.Add(dbDataTable2.Rows(a).Item("layer_desc"))

If dbDataTable2.Rows(a).Item("layer_desc") = "General" Then

ComboBox3.Text = "General"

Button2.BackColor = System.Drawing.ColorTranslator.FromWin32(CAvax1.GetPalColor(dbDataTable2.Rows(0)("layer_color")))

TextBox8.Text = dbDataTable2.Rows(0)("layer_color")

If dbDataTable2.Rows(0)("layer_style") = "Solid" Then ComboBox4.Text = "0)" & dbDataTable2.Rows(0)("layer_style")

If dbDataTable2.Rows(0)("layer_style") = "Dashed" Then ComboBox4.Text = "1)" & dbDataTable2.Rows(0)("layer_style")

If dbDataTable2.Rows(0)("layer_style") = "Hidden" Then ComboBox4.Text = "2)" & dbDataTable2.Rows(0)("layer_style")

If dbDataTable2.Rows(0)("layer_style") = "Center" Then ComboBox4.Text = "3)" & dbDataTable2.Rows(0)("layer_style")

If dbDataTable2.Rows(0)("layer_style") = "Phantom" Then ComboBox4.Text = "4)" & dbDataTable2.Rows(0)("layer_style")

If dbDataTable2.Rows(0)("layer_style") = "Dot" Then ComboBox4.Text = "5)" & dbDataTable2.Rows(0)("layer_style")

If dbDataTable2.Rows(0)("layer_style") = "Dot Dashed" Then ComboBox4.Text = "6)" & dbDataTable2.Rows(0)("layer_style")

NumericUpDown7.Value = dbDataTable2.Rows(0)("width")

Color.Text = dbDataTable2.Rows(0)("layer_color")

TextBox8.Text = dbDataTable2.Rows(0)("layer_color")

CAvax1.PenLayer = dbDataTable2.Rows(0)("layer_number")

End If

Next

End If

End Using

Prompt1.EnableInput = True

End Sub



#4 timpittser

timpittser

    Member

  • Members
  • PipPip
  • 29 posts

Posted 04 November 2014 - 03:27 PM

Have not gotten a response on this matter, it's becoming a critical issue for me, many customers are complaining.  Some assistance would be greatly appreciated.





Reply to this topic



  


0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users