ViewVC Help

View File | Revision Log | Show Annotations | View Changeset | Root Listing

root/REPOS_ERICCA/magicsld/EnregistrementPageHandler.vb

Comparing magicsld/EnregistrementPageHandler.vb (file contents):
Revision 40 by bournival, Mon Aug 20 21:30:28 2007 UTC vs.
Revision 130 by bournival, Wed Jul 30 21:26:03 2008 UTC

#	Line 1 | Line 1
1	<	Imports SldWorks
2	<	Imports SWPublished
3	<	imports SwConst
1	>	Imports SolidWorks.Interop
2	>	Imports SolidWorks.Interop.swconst
3	>	Imports SolidWorks.Interop.swpublished
4
5		Namespace Enregistrement
6		Public Class EnregistrementPageHandler
7	<	Implements PropertyManagerPage2Handler2
7	>	Implements PropertyManagerPage2Handler4
8
9		Dim iSwApp As SldWorks.SldWorks
10		Dim userAddin As MAGIC.Magic
11
12
13
14	+	Sub OnSliderPositionChanged(ByVal id As Integer, ByVal value As Double) Implements PropertyManagerPage2Handler4.OnSliderPositionChanged
15	+	If id = 41 Then EnregistrementCode.labelRemi1.Caption = "Précision d'analyse  -->" & value : EnregistrementCode.ValeurSliderRemi = value
16	+	End Sub
17	+
18	+	Sub OnSliderTrackingCompleted(ByVal id As Integer, ByVal value As Double) Implements PropertyManagerPage2Handler4.OnSliderTrackingCompleted
19	+	If id = 41 Then EnregistrementCode.labelRemi1.Caption = "Précision d'analyse  -->" & value : EnregistrementCode.ValeurSliderRemi = value
20	+
21	+	End Sub
22	+
23	+
24	+	Function OnPreview() As Boolean Implements PropertyManagerPage2Handler4.OnPreview
25	+	Debug.WriteLine("OnPreview")
26	+	End Function
27	+
28	+	Sub oncomboboxitemchanged(ByVal id As Integer, ByVal item As Integer) Implements PropertyManagerPage2Handler4.OnComboboxSelectionChanged
29	+	Debug.WriteLine("oncomboboxitemchanged")
30	+	End Sub
31	+
32	+	Function OntabClicked(ByVal id As Integer) As Boolean Implements PropertyManagerPage2Handler4.OnTabClicked
33	+	Debug.WriteLine("OntabClicked")
34	+	End Function
35	+
36	+	Sub OnUndo() Implements PropertyManagerPage2Handler4.OnUndo
37	+	Debug.WriteLine("OnUndo")
38	+	End Sub
39	+
40	+
41	+
42	+	Function OnsubmitSelection(ByVal Id As Integer, ByVal selection As Object, ByVal seltype As Integer) As Boolean Implements PropertyManagerPage2Handler4.OnSubmitSelection
43	+	Debug.WriteLine("OnsubmitSelection")
44	+	End Function
45	+
46	+	Sub OnPopupMenuItem(ByVal Id As Integer) Implements PropertyManagerPage2Handler4.OnPopupMenuItem
47	+	Debug.WriteLine("OnPopupMenuItem")
48	+	End Sub
49	+
50	+	Sub OnPopupMenuItemCreated(ByVal id As Integer, ByRef retval As Integer) Implements PropertyManagerPage2Handler4.OnPopupMenuItemUpdate
51	+	Debug.WriteLine("OnPopupMenuItemCreated")
52	+	End Sub
53	+
54	+	Sub OnKeyStroke(ByVal wparam As Integer, ByVal message As Integer, ByVal lparam As Integer, ByVal Id As Integer) Implements PropertyManagerPage2Handler4.OnKeystroke
55	+	Debug.WriteLine("OnKeyStroke")
56	+	End Sub
57
58	<	Function Init(ByVal sw As SldWorks.SldWorks, ByVal addin As MAGIC.Magic) As Integer
58	>
59	>	Sub OnWhatsNew() Implements PropertyManagerPage2Handler4.OnWhatsNew
60	>	Debug.WriteLine("OnWhatsNew")
61	>	End Sub
62	>
63	>
64	>
65	>	Function Init(ByVal sw As sldworks.SldWorks, ByVal addin As MAGIC.Magic) As Integer
66		' on vient ici lorsque l'on choisit le complément MAGIC
67		iSwApp = sw
68		userAddin = addin
69
70	+	POGManuel = False
71	+	PogAutomatique = False
72	+
73	+
74	+
75		End Function
76
77	<	Sub AfterClose() Implements PropertyManagerPage2Handler2.AfterClose
77	>	Sub AfterClose() Implements PropertyManagerPage2Handler4.AfterClose
78
79		' un fois que la fenêtre des propriétés est fermée on vient ici.
80		' mais je crois que c'est mieux de mettre le code dans OnClose...
#	Line 33 | Line 88 | Namespace Enregistrement
88
89		End Sub
90
91	<	Sub OnCheckboxCheck(ByVal id As Integer, ByVal status As Boolean) Implements PropertyManagerPage2Handler2.OnCheckboxCheck
91	>	Sub OnCheckboxCheck(ByVal id As Integer, ByVal status As Boolean) Implements PropertyManagerPage2Handler4.OnCheckboxCheck
92		' status est true si c'est cliqué, false si on enlève le signe
93		' ID = 2 pour les topologies sous-jacentes
94		' ID = 3 pour les conditions sur une seule annotation
95
96	<
96	>	Debug.WriteLine("OnCheckboxCheck")
97		End Sub
98
99	<	Sub OnClose(ByVal reason As Integer) Implements PropertyManagerPage2Handler2.OnClose
99	>	Sub OnClose(ByVal reason As Integer) Implements PropertyManagerPage2Handler4.OnClose
100
101		'Err.Raise(1)
102
#	Line 53 | Line 108 | Namespace Enregistrement
108		'    EnregistrementCode.bGilles2 = False
109		'End If
110
111	<
111	>	Debug.WriteLine("OnClose")
112
113		If reason = 1 Then
114		EnregistrementCode.MemoriserValeurs() ' la fenêtre sera détruite ainsi que ses valeurs.  Il faut les mémoriser...
115		EnregistrementCode.sauvegarder = True
116		Else
117		EnregistrementCode.decoupe = False
118	<	POG = False
118	>	POGManuel = False
119	>	PogAutomatique = False
120		EnregistrementCode.cancel()
121		EnregistrementCode.sauvegarder = False
122		End If
123
124		End Sub
125
126	<	Sub OnComboboxEditChanged(ByVal id As Integer, ByVal text As String) Implements PropertyManagerPage2Handler2.OnComboboxEditChanged
127	<
126	>	Sub OnComboboxEditChanged(ByVal id As Integer, ByVal text As String) Implements PropertyManagerPage2Handler4.OnComboboxEditChanged
127	>	Debug.WriteLine("OnComboboxEditChanged")
128		End Sub
129
130	<	Function OnActiveXControlCreated(ByVal id As Integer, ByVal status As Boolean) As Integer Implements PropertyManagerPage2Handler2.OnActiveXControlCreated
130	>	Function OnActiveXControlCreated(ByVal id As Integer, ByVal status As Boolean) As Integer Implements PropertyManagerPage2Handler4.OnActiveXControlCreated
131		OnActiveXControlCreated = -1
132	+	Debug.WriteLine("OnActiveXControlCreated")
133		End Function
134
135	<	Sub OnButtonPress(ByVal id As Integer) Implements PropertyManagerPage2Handler2.OnButtonPress
135	>	Sub OnButtonPress(ByVal id As Integer) Implements PropertyManagerPage2Handler4.OnButtonPress
136		'MsgBox(id)
137	+	Debug.WriteLine("OnButtonPress")
138		End Sub
139
82	–	Sub OnComboboxSelectionChanged(ByVal id As Integer, ByVal item As Integer) Implements PropertyManagerPage2Handler2.OnComboboxSelectionChanged
83	–	' ici quand la sélection du combo est changée
140
141	+	Sub OnGroupCheck(ByVal id As Integer, ByVal status As Boolean) Implements PropertyManagerPage2Handler4.OnGroupCheck
142	+	Debug.WriteLine("OnGroupCheck")
143		End Sub
144
145	<	Sub OnGroupCheck(ByVal id As Integer, ByVal status As Boolean) Implements PropertyManagerPage2Handler2.OnGroupCheck
88	<	Dim volume As Double
89	<	Dim surface As Double
90	<	Dim eng As Double
91	<	Dim swMprop As SldWorks.MassProperty
92	<	swMprop = swModel.Extension.CreateMassProperty
93	<	volume = swMprop.Volume
94	<	surface = swMprop.SurfaceArea
95	<	eng = (volume / surface) / 6
96	<
97	<	EnregistrementCode.NumberENG.Value = eng
145	>	Sub OnGroupExpand(ByVal id As Integer, ByVal status As Boolean) Implements PropertyManagerPage2Handler4.OnGroupExpand
146
147		End Sub
148
149	<	Sub OnGroupExpand(ByVal id As Integer, ByVal status As Boolean) Implements PropertyManagerPage2Handler2.OnGroupExpand
102	<
103	<	End Sub
104	<
105	<	Function OnHelp() As Boolean Implements PropertyManagerPage2Handler2.OnHelp
149	>	Function OnHelp() As Boolean Implements PropertyManagerPage2Handler4.OnHelp
150		OnHelp = True
151		MsgBox("On vient de cliquer sur l'aide")
152	+	Debug.WriteLine("OnHelp")
153		End Function
154
155	<	Sub OnListboxSelectionChanged(ByVal id As Integer, ByVal item As Integer) Implements PropertyManagerPage2Handler2.OnListboxSelectionChanged
156	<
155	>	Sub OnListboxSelectionChanged(ByVal id As Integer, ByVal item As Integer) Implements PropertyManagerPage2Handler4.OnListboxSelectionChanged
156	>	Debug.WriteLine("OnListboxSelectionChanged")
157		End Sub
158
159	<	Function OnNextPage() As Boolean Implements PropertyManagerPage2Handler2.OnNextPage
159	>	Function OnNextPage() As Boolean Implements PropertyManagerPage2Handler4.OnNextPage
160		OnNextPage = True
161	<
161	>	Debug.WriteLine("OnNextPage")
162		End Function
163
164	<	Sub OnNumberboxChanged(ByVal id As Integer, ByVal val As Double) Implements PropertyManagerPage2Handler2.OnNumberboxChanged
164	>	Sub OnNumberboxChanged(ByVal id As Integer, ByVal val As Double) Implements PropertyManagerPage2Handler4.OnNumberboxChanged
165		'MsgBox(" Valeur de l'arrondi: " & EnregistrementCode.NumberArrondi.Value())
166	+	Debug.WriteLine("OnNumberboxChanged")
167		End Sub
168
169	<	Sub OnOptionCheck(ByVal id As Integer) Implements PropertyManagerPage2Handler2.OnOptionCheck
170	<
169	>	Sub OnOptionCheck(ByVal id As Integer) Implements PropertyManagerPage2Handler4.OnOptionCheck
170	>	Debug.WriteLine("OnOptionCheck")
171		End Sub
172
173	<	Function OnPreviousPage() As Boolean Implements PropertyManagerPage2Handler2.OnPreviousPage
173	>	Function OnPreviousPage() As Boolean Implements PropertyManagerPage2Handler4.OnPreviousPage
174		OnPreviousPage = True
175	+	Debug.WriteLine("OnPreviousPage")
176		End Function
177
178	<	Sub OnSelectionboxCalloutCreated(ByVal id As Integer) Implements PropertyManagerPage2Handler2.OnSelectionboxCalloutCreated
179	<
178	>	Sub OnSelectionboxCalloutCreated(ByVal id As Integer) Implements PropertyManagerPage2Handler4.OnSelectionboxCalloutCreated
179	>	Debug.WriteLine("OnSelectionboxCalloutCreated")
180		End Sub
181
182	<	Sub OnSelectionboxCalloutDestroyed(ByVal id As Integer) Implements PropertyManagerPage2Handler2.OnSelectionboxCalloutDestroyed
183	<
182	>	Sub OnSelectionboxCalloutDestroyed(ByVal id As Integer) Implements PropertyManagerPage2Handler4.OnSelectionboxCalloutDestroyed
183	>	Debug.WriteLine("OnSelectionboxCalloutDestroyed")
184		End Sub
185
186	<	Sub OnSelectionboxFocusChanged(ByVal Id As Integer) Implements PropertyManagerPage2Handler2.OnSelectionboxFocusChanged
187	<
186	>	Sub OnSelectionboxFocusChanged(ByVal Id As Integer) Implements PropertyManagerPage2Handler4.OnSelectionboxFocusChanged
187	>	Debug.WriteLine("OnSelectionboxFocusChanged")
188		End Sub
189
190	<	Sub OnSelectionboxListChanged(ByVal id As Integer, ByVal item As Integer) Implements PropertyManagerPage2Handler2.OnSelectionboxListChanged
190	>	Sub OnSelectionboxListChanged(ByVal id As Integer, ByVal item As Integer) Implements PropertyManagerPage2Handler4.OnSelectionboxListChanged
191	>	Debug.WriteLine("OnSelectionboxListChanged")
192	>	End Sub
193
194	+	Sub OnTextboxChanged(ByVal id As Integer, ByVal text As String) Implements PropertyManagerPage2Handler4.OnTextboxChanged
195	+	Debug.WriteLine("OnTextboxChanged")
196		End Sub
197
147	–	Sub OnTextboxChanged(ByVal id As Integer, ByVal text As String) Implements PropertyManagerPage2Handler2.OnTextboxChanged
198
149	–	End Sub
199		End Class
200		End Namespace

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines