REPOS_ERICCA/magicsld/RCPageHandler.vb

Imports SolidWorks.Interop
Imports SolidWorks.Interop.swconst
Imports SolidWorks.Interop.swpublished

Namespace RealConstant
    Public Class RCPageHandler
        Implements PropertyManagerPage2Handler2

        Dim iSwApp As SldWorks.SldWorks
        Dim userAddin As MAGIC.Magic

        Private Raison As Integer

        Function Init(ByVal sw As SldWorks.SldWorks, ByVal addin As MAGIC.Magic) As Integer
            ' on vient ici lorsque l'on choisit le complément MAGIC
            iSwApp = sw
            userAddin = addin

        End Function


        Sub AfterClose() Implements PropertyManagerPage2Handler2.AfterClose

            ' un fois que la fenętre des propriétés est fermée on vient ici.
            ' mais je crois que c'est mieux de mettre le code dans OnClose...

            'Dim IndentSize As Integer
            'IndentSize = System.Diagnostics.Debug.IndentSize
            'System.Diagnostics.Debug.WriteLine(IndentSize)
            Dim IndentSize As Integer
            IndentSize = System.Diagnostics.Debug.IndentSize
            System.Diagnostics.Debug.WriteLine(IndentSize)

            RCCode.debut()

        End Sub


        Public Sub OnClose(ByVal reason As Integer) Implements PropertyManagerPage2Handler2.OnClose
            ''This function must contain code, even if it does nothing, to prevent the
            ''.NET runtime environment from doing garbage collection at the wrong time.

            Dim IndentSize As Integer
            IndentSize = System.Diagnostics.Debug.IndentSize
            System.Diagnostics.Debug.WriteLine(IndentSize)


            ' si reason = 1 alors on a fermé en cliquant sur OK
            ' si reason = 2 alors on ferme en cliquant sur Cancel

            Me.Raison = reason

            If reason = 1 Then
                RCCode.memoriser()

                ''    ' si on est ici c'est qu'on a cliqué sur OK
                'If Not RCCode.debut() Then
                'MsgBox("Mettre la propriété n'a pas fonctionné!")
                'Else()
                '    swModel.Save()
                'End If
            End If

            Dim x As Double = 2
            x += 1
        End Sub


        Sub OnCheckboxCheck(ByVal id As Integer, ByVal status As Boolean) Implements PropertyManagerPage2Handler2.OnCheckboxCheck
            ' status est true si c'est cliqué, false si on enlčve le signe
            ' ID est le ID du checkbox
            If id = 1 Then ' on vient de cliquer sur le checkbox de la face_section
                If RCCode.RCCheckFacedeSection.Checked = True Then
                    ' on désactive un tas de trucs...
                    ' mais je ne sais pas trop comment...
                Else ' on les réactive

                End If
            End If


        End Sub

        Sub OnComboboxEditChanged(ByVal id As Integer, ByVal text As String) Implements PropertyManagerPage2Handler2.OnComboboxEditChanged
            MsgBox("Combobox edit change")
        End Sub

        Function OnActiveXControlCreated(ByVal id As Integer, ByVal status As Boolean) As Integer Implements PropertyManagerPage2Handler2.OnActiveXControlCreated
            OnActiveXControlCreated = -1
        End Function

        Sub OnButtonPress(ByVal id As Integer) Implements PropertyManagerPage2Handler2.OnButtonPress
            MsgBox("Button press   ID = " & id)
        End Sub

        Sub OnComboboxSelectionChanged(ByVal id As Integer, ByVal item As Integer) Implements PropertyManagerPage2Handler2.OnComboboxSelectionChanged
            ' ici quand la sélection d'un combo est changée
            If id = 4 Then RCCode.InfoPoutres(0)
        End Sub

        Sub OnGroupCheck(ByVal id As Integer, ByVal status As Boolean) Implements PropertyManagerPage2Handler2.OnGroupCheck
            'MsgBox("OnGroupCheck")
        End Sub

        Sub OnGroupExpand(ByVal id As Integer, ByVal status As Boolean) Implements PropertyManagerPage2Handler2.OnGroupExpand

        End Sub

        Function OnHelp() As Boolean Implements PropertyManagerPage2Handler2.OnHelp
            'OnHelp = True
            'MsgBox("On vient de cliquer sur l'aide")

        End Function

        Sub OnListboxSelectionChanged(ByVal id As Integer, ByVal item As Integer) Implements PropertyManagerPage2Handler2.OnListboxSelectionChanged

        End Sub

        Function OnNextPage() As Boolean Implements PropertyManagerPage2Handler2.OnNextPage
            OnNextPage = True
            MsgBox("Onnextpage")
        End Function

        Sub OnNumberboxChanged(ByVal id As Integer, ByVal val As Double) Implements PropertyManagerPage2Handler2.OnNumberboxChanged
            'MsgBox("onnumberchange")
            RCCode.InfoPoutres(id)

        End Sub

        Sub OnOptionCheck(ByVal id As Integer) Implements PropertyManagerPage2Handler2.OnOptionCheck
            'MsgBox("OnOptionCheck")
        End Sub

        Function OnPreviousPage() As Boolean Implements PropertyManagerPage2Handler2.OnPreviousPage
            OnPreviousPage = True
        End Function

        Sub OnSelectionboxCalloutCreated(ByVal id As Integer) Implements PropertyManagerPage2Handler2.OnSelectionboxCalloutCreated
            Debug.WriteLine("OnSelectionboxCalloutCreated")
        End Sub

        Sub OnSelectionboxCalloutDestroyed(ByVal id As Integer) Implements PropertyManagerPage2Handler2.OnSelectionboxCalloutDestroyed
            Debug.WriteLine("OnSelectionboxCalloutDestroyed")
        End Sub

        Sub OnSelectionboxFocusChanged(ByVal Id As Integer) Implements PropertyManagerPage2Handler2.OnSelectionboxFocusChanged
            Debug.WriteLine("OnSelectionboxFocusChanged")
        End Sub

        Sub OnSelectionboxListChanged(ByVal id As Integer, ByVal item As Integer) Implements PropertyManagerPage2Handler2.OnSelectionboxListChanged
            Debug.WriteLine("OnSelectionboxListChanged")
        End Sub

        Sub OnTextboxChanged(ByVal id As Integer, ByVal text As String) Implements PropertyManagerPage2Handler2.OnTextboxChanged
            Debug.WriteLine("OnTextboxChanged")
        End Sub

        'Function OnPreview() As Boolean Implements PropertyManagerPage2Handler2.OnPreview
        '    Debug.WriteLine("OnPreview")
        'End Function


        'Function OntabClicked(ByVal id As Integer) As Boolean Implements PropertyManagerPage2Handler2.OnTabClicked
        '    Debug.WriteLine("OntabClicked")
        'End Function

        ''Sub OnUndo() Implements PropertyManagerPage2Handler2.OnUndo
        ''    Debug.WriteLine("OnUndo")
        ''End Sub

        'Sub OnSliderPositionChanged(ByVal id As Integer, ByVal value As Double) Implements PropertyManagerPage2Handler2.OnSliderPositionChanged
        'End Sub

        ''Sub OnSliderTrackingCompleted(ByVal id As Integer, ByVal value As Double) Implements PropertyManagerPage2Handler2.OnSliderTrackingCompleted
        ''End Sub

        'Function OnsubmitSelection(ByVal Id As Integer, ByVal selection As Object, ByVal seltype As Integer) As Boolean Implements PropertyManagerPage2Handler2.OnSubmitSelection
        '    Debug.WriteLine("OnsubmitSelection")
        'End Function

        'Sub OnPopupMenuItem(ByVal Id As Integer) Implements PropertyManagerPage2Handler2.OnPopupMenuItem
        '    Debug.WriteLine("OnPopupMenuItem")
        'End Sub

        'Sub OnPopupMenuItemCreated(ByVal id As Integer, ByRef retval As Integer) Implements PropertyManagerPage2Handler2.OnPopupMenuItemUpdate
        '    Debug.WriteLine("OnPopupMenuItemCreated")
        'End Sub

        'Sub OnKeyStroke(ByVal wparam As Integer, ByVal message As Integer, ByVal lparam As Integer, ByVal Id As Integer) Implements PropertyManagerPage2Handler2.OnKeystroke
        '    Debug.WriteLine("OnKeyStroke")
        'End Sub


        'Sub OnWhatsNew() Implements PropertyManagerPage2Handler2.OnWhatsNew
        '    Debug.WriteLine("OnWhatsNew")
        'End Sub

        Protected Overrides Sub Finalize()
            MyBase.Finalize()
        End Sub
    End Class
End Namespace
Revision:	130
Committed:	Wed Jul 30 21:26:03 2008 UTC (16 years, 9 months ago) by bournival
File size:	8206 byte(s)
Log Message:	Une mise Ă jour, car on aura peut-ĂŞtre besoin de mon code.
#	User	Rev	Content
1	bournival	48	Imports SolidWorks.Interop
2			Imports SolidWorks.Interop.swconst
3			Imports SolidWorks.Interop.swpublished
4	bournival	40
5			Namespace RealConstant
6			Public Class RCPageHandler
7			Implements PropertyManagerPage2Handler2
8
9			Dim iSwApp As SldWorks.SldWorks
10			Dim userAddin As MAGIC.Magic
11
12	bournival	130	Private Raison As Integer
13
14	bournival	40	Function Init(ByVal sw As SldWorks.SldWorks, ByVal addin As MAGIC.Magic) As Integer
15			' on vient ici lorsque l'on choisit le complément MAGIC
16			iSwApp = sw
17			userAddin = addin
18
19			End Function
20
21	bournival	130
22	bournival	40	Sub AfterClose() Implements PropertyManagerPage2Handler2.AfterClose
23
24			' un fois que la fenętre des propriétés est fermée on vient ici.
25			' mais je crois que c'est mieux de mettre le code dans OnClose...
26
27	bournival	130	'Dim IndentSize As Integer
28			'IndentSize = System.Diagnostics.Debug.IndentSize
29			'System.Diagnostics.Debug.WriteLine(IndentSize)
30	bournival	40	Dim IndentSize As Integer
31			IndentSize = System.Diagnostics.Debug.IndentSize
32			System.Diagnostics.Debug.WriteLine(IndentSize)
33
34	bournival	130	RCCode.debut()
35	bournival	40
36			End Sub
37
38
39	bournival	130	Public Sub OnClose(ByVal reason As Integer) Implements PropertyManagerPage2Handler2.OnClose
40	bournival	40	''This function must contain code, even if it does nothing, to prevent the
41			''.NET runtime environment from doing garbage collection at the wrong time.
42
43			Dim IndentSize As Integer
44			IndentSize = System.Diagnostics.Debug.IndentSize
45			System.Diagnostics.Debug.WriteLine(IndentSize)
46
47	bournival	130
48	bournival	40	' si reason = 1 alors on a fermé en cliquant sur OK
49			' si reason = 2 alors on ferme en cliquant sur Cancel
50
51	bournival	130	Me.Raison = reason
52
53	bournival	40	If reason = 1 Then
54	bournival	130	RCCode.memoriser()
55
56			'' ' si on est ici c'est qu'on a cliqué sur OK
57			'If Not RCCode.debut() Then
58			'MsgBox("Mettre la propriété n'a pas fonctionné!")
59			'Else()
60			' swModel.Save()
61			'End If
62			End If
63
64			Dim x As Double = 2
65			x += 1
66			End Sub
67
68
69			Sub OnCheckboxCheck(ByVal id As Integer, ByVal status As Boolean) Implements PropertyManagerPage2Handler2.OnCheckboxCheck
70			' status est true si c'est cliqué, false si on enlčve le signe
71			' ID est le ID du checkbox
72			If id = 1 Then ' on vient de cliquer sur le checkbox de la face_section
73			If RCCode.RCCheckFacedeSection.Checked = True Then
74			' on désactive un tas de trucs...
75			' mais je ne sais pas trop comment...
76			Else ' on les réactive
77
78	bournival	40	End If
79			End If
80
81
82			End Sub
83
84			Sub OnComboboxEditChanged(ByVal id As Integer, ByVal text As String) Implements PropertyManagerPage2Handler2.OnComboboxEditChanged
85			MsgBox("Combobox edit change")
86			End Sub
87
88			Function OnActiveXControlCreated(ByVal id As Integer, ByVal status As Boolean) As Integer Implements PropertyManagerPage2Handler2.OnActiveXControlCreated
89			OnActiveXControlCreated = -1
90			End Function
91
92			Sub OnButtonPress(ByVal id As Integer) Implements PropertyManagerPage2Handler2.OnButtonPress
93			MsgBox("Button press ID = " & id)
94			End Sub
95
96			Sub OnComboboxSelectionChanged(ByVal id As Integer, ByVal item As Integer) Implements PropertyManagerPage2Handler2.OnComboboxSelectionChanged
97			' ici quand la sélection d'un combo est changée
98			If id = 4 Then RCCode.InfoPoutres(0)
99			End Sub
100
101			Sub OnGroupCheck(ByVal id As Integer, ByVal status As Boolean) Implements PropertyManagerPage2Handler2.OnGroupCheck
102			'MsgBox("OnGroupCheck")
103			End Sub
104
105			Sub OnGroupExpand(ByVal id As Integer, ByVal status As Boolean) Implements PropertyManagerPage2Handler2.OnGroupExpand
106
107			End Sub
108
109			Function OnHelp() As Boolean Implements PropertyManagerPage2Handler2.OnHelp
110	bournival	130	'OnHelp = True
111			'MsgBox("On vient de cliquer sur l'aide")
112
113	bournival	40	End Function
114
115			Sub OnListboxSelectionChanged(ByVal id As Integer, ByVal item As Integer) Implements PropertyManagerPage2Handler2.OnListboxSelectionChanged
116
117			End Sub
118
119			Function OnNextPage() As Boolean Implements PropertyManagerPage2Handler2.OnNextPage
120			OnNextPage = True
121			MsgBox("Onnextpage")
122			End Function
123
124			Sub OnNumberboxChanged(ByVal id As Integer, ByVal val As Double) Implements PropertyManagerPage2Handler2.OnNumberboxChanged
125			'MsgBox("onnumberchange")
126			RCCode.InfoPoutres(id)
127
128			End Sub
129
130			Sub OnOptionCheck(ByVal id As Integer) Implements PropertyManagerPage2Handler2.OnOptionCheck
131			'MsgBox("OnOptionCheck")
132			End Sub
133
134			Function OnPreviousPage() As Boolean Implements PropertyManagerPage2Handler2.OnPreviousPage
135			OnPreviousPage = True
136			End Function
137
138			Sub OnSelectionboxCalloutCreated(ByVal id As Integer) Implements PropertyManagerPage2Handler2.OnSelectionboxCalloutCreated
139	bournival	130	Debug.WriteLine("OnSelectionboxCalloutCreated")
140	bournival	40	End Sub
141
142			Sub OnSelectionboxCalloutDestroyed(ByVal id As Integer) Implements PropertyManagerPage2Handler2.OnSelectionboxCalloutDestroyed
143	bournival	130	Debug.WriteLine("OnSelectionboxCalloutDestroyed")
144	bournival	40	End Sub
145
146			Sub OnSelectionboxFocusChanged(ByVal Id As Integer) Implements PropertyManagerPage2Handler2.OnSelectionboxFocusChanged
147	bournival	130	Debug.WriteLine("OnSelectionboxFocusChanged")
148	bournival	40	End Sub
149
150			Sub OnSelectionboxListChanged(ByVal id As Integer, ByVal item As Integer) Implements PropertyManagerPage2Handler2.OnSelectionboxListChanged
151	bournival	130	Debug.WriteLine("OnSelectionboxListChanged")
152	bournival	40	End Sub
153
154			Sub OnTextboxChanged(ByVal id As Integer, ByVal text As String) Implements PropertyManagerPage2Handler2.OnTextboxChanged
155	bournival	130	Debug.WriteLine("OnTextboxChanged")
156			End Sub
157	bournival	40
158	bournival	130	'Function OnPreview() As Boolean Implements PropertyManagerPage2Handler2.OnPreview
159			' Debug.WriteLine("OnPreview")
160			'End Function
161
162
163			'Function OntabClicked(ByVal id As Integer) As Boolean Implements PropertyManagerPage2Handler2.OnTabClicked
164			' Debug.WriteLine("OntabClicked")
165			'End Function
166
167			''Sub OnUndo() Implements PropertyManagerPage2Handler2.OnUndo
168			'' Debug.WriteLine("OnUndo")
169			''End Sub
170
171			'Sub OnSliderPositionChanged(ByVal id As Integer, ByVal value As Double) Implements PropertyManagerPage2Handler2.OnSliderPositionChanged
172			'End Sub
173
174			''Sub OnSliderTrackingCompleted(ByVal id As Integer, ByVal value As Double) Implements PropertyManagerPage2Handler2.OnSliderTrackingCompleted
175			''End Sub
176
177			'Function OnsubmitSelection(ByVal Id As Integer, ByVal selection As Object, ByVal seltype As Integer) As Boolean Implements PropertyManagerPage2Handler2.OnSubmitSelection
178			' Debug.WriteLine("OnsubmitSelection")
179			'End Function
180
181			'Sub OnPopupMenuItem(ByVal Id As Integer) Implements PropertyManagerPage2Handler2.OnPopupMenuItem
182			' Debug.WriteLine("OnPopupMenuItem")
183			'End Sub
184
185			'Sub OnPopupMenuItemCreated(ByVal id As Integer, ByRef retval As Integer) Implements PropertyManagerPage2Handler2.OnPopupMenuItemUpdate
186			' Debug.WriteLine("OnPopupMenuItemCreated")
187			'End Sub
188
189			'Sub OnKeyStroke(ByVal wparam As Integer, ByVal message As Integer, ByVal lparam As Integer, ByVal Id As Integer) Implements PropertyManagerPage2Handler2.OnKeystroke
190			' Debug.WriteLine("OnKeyStroke")
191			'End Sub
192
193
194			'Sub OnWhatsNew() Implements PropertyManagerPage2Handler2.OnWhatsNew
195			' Debug.WriteLine("OnWhatsNew")
196			'End Sub
197
198			Protected Overrides Sub Finalize()
199			MyBase.Finalize()
200	bournival	40	End Sub
201			End Class
202			End Namespace