1 SolidWorks API Help
2 Create PropertyManager Page Example (VB.NET)
3 This example shows how to create a PropertyManager page that contains two selection boxes, a combo box,
4
5 and a list box. This example also shows how to handle focus events for these controls.
6
7
8
9 NOTE: If the model is an assembly and it contains multiple components and you want to allow the user to
10
11 select edges, faces, or vertices, then you must specify swSelCOMPSDONTOVERRIDE as an element of
12
13 SelType for the ISldWorks::SetSelectionFilters method. Otherwise, if the user attempts to select an
14
15 edge, face, or vertex, then the entire component might get selected and not the edge, face, or vertex.
16
17 This example demonstrates how to specify the elements for SelType.
18
19
20
21 ‘----------------------------------------------------------------------------
22
23 ‘ Preconditions:
24
25 ‘ 1. Copy Modules - main to your project.
26
27 ‘ 2. Copy Class Modules - clsPropMgr to a class in your project.
28
29 ‘ 3. Add the SolidWorks.Interop.swpublished primary interop assembly
30
31 ‘ reference to your project (right-click the name of your project, select
32
33 ‘ Add Reference, and select SolidWorks.Interop.swpublished on the .NET
34
35 ‘ tab.
36
37 ‘ 4. Ensure that the assembly document opened by the macro exists.
38
39 ‘ 5. Run the macro to open the assembly document and PropertyManager page.
40
41 ‘
42
43 ‘ Postconditions:
44
45 ‘ A PropertyManager page called Comps is created. Comps contains a selection box
46
47 ‘ where the user‘s selections are shown, a drop-down combo box where Value 2
48
49 ‘ is selected, and a list box where Value 1 is selected.
50
51 ‘
52
53 ‘ Examine the contents of Comps and the Immediate Window as you
54
55 ‘ perform each of these steps:
56
57 ‘ 1. Click a component in the assembly to add to the
58
59 ‘ first selection box.
60
61 ‘ 2. Locate, but do not move, the cursor in the graphics area.
62
63 ‘ 3. Press the right-mouse button.
64
65 ‘ 4. Click a component in the assembly to add to the second selection box.
66
67 ‘ 5. Click Value 4 in the list box at the bottom of Comps.
68
69 ‘ 6. Click Value 1 in the list box at the bottom of Comps.
70
71 ‘ 7. Click the first selection box.
72
73 ‘ 8. Close the PropertyManager page.
74
75 ‘
76
77 ‘ NOTES:
78
79 ‘ * After running this macro, select the
80
81 ‘ Tools > Options > System Options > Stop VSTA debugger
82
83 ‘ on macro exit checkbox.
84
85 ‘ * Because the assembly document is used elsewhere,
86
87 ‘ do not save any changes when closing the document.
88
89 ‘----------------------------------------------------------------------------
90
91 ‘Modules - main
92
93 Imports SolidWorks.Interop.sldworks
94
95 Imports SolidWorks.Interop.swconst
96
97 Imports System
98
99
100
101 Partial Class SolidWorksMacro
102
103
104
105 Public Part As ModelDoc2
106
107 Public WithEvents pm As clsPropMgr
108
109
110
111 Sub main()
112
113
114
115 Dim openDocErrors As Long
116
117 Dim OpenDocWarnings As Long
118
119
120
121 swApp.SetUserPreferenceToggle(swUserPreferenceToggle_e.swStopDebuggingVstaOnExit, False)
122
123
124
125 Part = swApp.OpenDoc6("c:\Program Files\SolidWorks Corp\SolidWorks\samples\tutorial\advdrawings\bladed shaft.sldasm", swDocumentTypes_e.swDocASSEMBLY, swOpenDocOptions_e.swOpenDocOptions_Silent, "", openDocErrors, OpenDocWarnings)
126
127
128
129 ‘Create a new instance of the PropertyManager class
130
131 pm = New clsPropMgr(swApp)
132
133 pm.Show()
134
135
136
137 End Sub
138
139
140
141 Public swApp As SldWorks
142
143
144
145 End Class
146
147
148
149 Back to top
150
151 ‘Class Modules - clsPropMgr
152
153 Imports SolidWorks.Interop.sldworks
154
155 Imports SolidWorks.Interop.swconst
156
157 Imports SolidWorks.Interop.swpublished
158
159 Imports System
160
161 Imports System.Runtime.InteropServices
162
163 Imports System.Diagnostics
164
165
166
167 <ComVisibleAttribute(True)> _
168
169 Public Class clsPropMgr
170
171
172
173 Implements PropertyManagerPage2Handler9
174
175
176
177 Dim swApp As SldWorks
178
179
180
181 ‘General objects required for the PropertyManager page
182
183 Dim pm_Page As PropertyManagerPage2
184
185 Dim pm_Group As PropertyManagerPageGroup
186
187 Dim pm_Selection As PropertyManagerPageSelectionbox
188
189 Dim pm_Selection2 As PropertyManagerPageSelectionbox
190
191 Dim pm_Label As PropertyManagerPageLabel
192
193 Dim pm_Combo As PropertyManagerPageCombobox
194
195 Dim pm_List As PropertyManagerPageListbox
196
197
198
199 ‘Each object in the page needs a unique ID
200
201 Const GroupID As Integer = 1
202
203 Const LabelID As Integer = 2
204
205 Const SelectionID As Integer = 3
206
207 Const ComboID As Integer = 4
208
209 Const ListID As Integer = 5
210
211 Const Selection2ID As Integer = 6
212
213
214
215 Dim ClickedCancel As Boolean
216
217 Dim retVal As Integer
218
219
220
221 Sub Show()
222
223 pm_Page.Show2(0)
224
225 End Sub
226
227
228
229 ‘The following runs when a new instance
230
231 ‘of the class is created
232
233 Public Sub New(ByVal swApp As SldWorks)
234
235
236
237 Dim PageTitle As String
238
239 Dim caption As String
240
241 Dim tip As String
242
243 Dim options As Long
244
245 Dim longerrors As Long
246
247 Dim controlType As Integer
248
249 Dim alignment As Integer
250
251 Dim listItems(3) As String
252
253
254
255 ‘Set the variables for the page
256
257 PageTitle = "Comps"
258
259 options = swPropertyManagerButtonTypes_e.swPropertyManager_OkayButton _
260
261 + swPropertyManagerButtonTypes_e.swPropertyManager_CancelButton _
262
263 + swPropertyManagerPageOptions_e.swPropertyManagerOptions_LockedPage _
264
265 + swPropertyManagerPageOptions_e.swPropertyManagerOptions_PushpinButton
266
267
268
269 ‘Create the PropertyManager page
270
271 pm_Page = CType(swApp.CreatePropertyManagerPage(PageTitle, _
272
273 options, Me, longerrors), PropertyManagerPage2)
274
275
276
277 ‘Make sure that the page was created properly
278
279 If longerrors = swPropertyManagerPageStatus_e.swPropertyManagerPage_Okay Then
280
281 ‘Begin adding the controls to the page
282
283
284
285 ‘Create the group box
286
287 caption = "Comps"
288
289 options = swAddGroupBoxOptions_e.swGroupBoxOptions_Visible + _
290
291 swAddGroupBoxOptions_e.swGroupBoxOptions_Expanded
292
293 pm_Group = pm_Page.AddGroupBox(GroupID, caption, options)
294
295
296
297 ‘Create two selection boxes
298
299 controlType = swPropertyManagerPageControlType_e.swControlType_Selectionbox
300
301 caption = "" ‘ No caption for selection boxes
302
303 alignment = swPropertyManagerPageControlLeftAlign_e.swControlAlign_Indent
304
305 options = swAddControlOptions_e.swControlOptions_Visible + _
306
307 swAddControlOptions_e.swControlOptions_Enabled
308
309 tip = "Select an edge, face, vertex, solid body, or a component"
310
311 pm_Selection = pm_Group.AddControl(SelectionID, _
312
313 controlType, caption, alignment, options, tip)
314
315 pm_Selection2 = pm_Group.AddControl(Selection2ID, _
316
317 controlType, caption, alignment, options, tip)
318
319 Dim filters(6) As swSelectType_e
320
321 filters(0) = swSelectType_e.swSelEDGES
322
323 filters(1) = swSelectType_e.swSelREFEDGES
324
325 filters(2) = swSelectType_e.swSelFACES
326
327 filters(3) = swSelectType_e.swSelVERTICES
328
329 filters(4) = swSelectType_e.swSelSOLIDBODIES
330
331 filters(5) = swSelectType_e.swSelCOMPONENTS
332
333 filters(6) = swSelectType_e.swSelCOMPSDONTOVERRIDE
334
335 Dim filterObj As Object
336
337 filterObj = filters
338
339 pm_Selection.SingleEntityOnly = False
340
341 pm_Selection.AllowMultipleSelectOfSameEntity = True
342
343 pm_Selection.Height = 50
344
345 pm_Selection.SetSelectionFilters(filterObj)
346
347 pm_Selection2.SingleEntityOnly = False
348
349 pm_Selection2.AllowMultipleSelectOfSameEntity = True
350
351 pm_Selection2.Height = 50
352
353 pm_Selection2.SetSelectionFilters(filterObj)
354
355
356
357 ‘ Create a combo box
358
359 controlType = swPropertyManagerPageControlType_e.swControlType_Combobox
360
361 caption = ""
362
363 alignment = swPropertyManagerPageControlLeftAlign_e.swControlAlign_Indent
364
365 options = swAddControlOptions_e.swControlOptions_Visible + _
366
367 swAddControlOptions_e.swControlOptions_Enabled
368
369
370
371 tip = "Select a value from the drop-down"
372
373 pm_Combo = pm_Group.AddControl(ComboID, _
374
375 controlType, caption, alignment, options, tip)
376
377 If Not pm_Combo Is Nothing Then
378
379 pm_Combo.Height = 50
380
381 listItems(0) = "Value 1"
382
383 listItems(1) = "Value 2"
384
385 listItems(2) = "Value 3"
386
387 listItems(3) = "Value 4"
388
389 pm_Combo.AddItems(listItems)
390
391 pm_Combo.CurrentSelection = 0
392
393 End If
394
395
396
397 ‘ Create a list box
398
399 controlType = swPropertyManagerPageControlType_e.swControlType_Listbox
400
401 caption = ""
402
403 alignment = swPropertyManagerPageControlLeftAlign_e.swControlAlign_Indent
404
405 options = swAddControlOptions_e.swControlOptions_Visible + _
406
407 swAddControlOptions_e.swControlOptions_Enabled
408
409 tip = "Multi-select values from the list box"
410
411 pm_List = pm_Group.AddControl(ListID, _
412
413 controlType, caption, alignment, options, tip)
414
415 pm_List.Style = swPropMgrPageListBoxStyle_e.swPropMgrPageListBoxStyle_MultipleItemSelect
416
417 pm_List.Height = 50
418
419 If Not pm_List Is Nothing Then
420
421 pm_List.Height = 50
422
423 listItems(0) = "Value 1"
424
425 listItems(1) = "Value 2"
426
427 listItems(2) = "Value 3"
428
429 listItems(3) = "Value 4"
430
431 pm_List.AddItems(listItems)
432
433 pm_List.SetSelectedItem(1, True)
434
435 End If
436
437
438
439 Else ‘If the page is not created
440
441
442
443 MsgBox("An error occurred while attempting to create the " _
444
445 & "PropertyManager Page", vbCritical)
446
447
448
449 End If
450
451
452
453 End Sub
454
455
456
457 Public Sub AfterActivation() Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.AfterActivation
458
459 End Sub
460
461
462
463 Public Sub AfterClose() Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.AfterClose
464
465 End Sub
466
467
468
469 Public Function OnActiveXControlCreated(ByVal Id As Integer, ByVal Status As Boolean) As Integer Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnActiveXControlCreated
470
471 End Function
472
473
474
475 Public Sub OnButtonPress(ByVal Id As Integer) Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnButtonPress
476
477 End Sub
478
479
480
481 Public Sub OnCheckboxCheck(ByVal Id As Integer, ByVal Checked As Boolean) Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnCheckboxCheck
482
483 End Sub
484
485
486
487 Public Sub OnClose(ByVal Reason As Integer) Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnClose
488
489 If Reason = swPropertyManagerPageCloseReasons_e.swPropertyManagerPageClose_Cancel Then
490
491 ‘Cancel button was clicked
492
493 ClickedCancel = True
494
495 ElseIf Reason = swPropertyManagerPageCloseReasons_e.swPropertyManagerPageClose_Okay Then
496
497 ‘OK button was clicked
498
499 ClickedCancel = False
500
501 End If
502
503 End Sub
504
505
506
507 Public Sub OnComboboxEditChanged(ByVal Id As Integer, ByVal Text As String) Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnComboboxEditChanged
508
509 End Sub
510
511
512
513 Public Sub OnComboboxSelectionChanged(ByVal Id As Integer, ByVal Item As Integer) Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnComboboxSelectionChanged
514
515 End Sub
516
517
518
519 Public Sub OnGainedFocus(ByVal Id As Integer) Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnGainedFocus
520
521 Dim varArray As Object
522
523 Debug.Print("Control box " & Id & " has gained focus")
524
525 varArray = pm_List.GetSelectedItems
526
527 pm_Combo.CurrentSelection = varArray(0)
528
529 End Sub
530
531
532
533 Public Sub OnGroupCheck(ByVal Id As Integer, ByVal Checked As Boolean) Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnGroupCheck
534
535 End Sub
536
537
538
539 Public Sub OnGroupExpand(ByVal Id As Integer, ByVal Expanded As Boolean) Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnGroupExpand
540
541 End Sub
542
543
544
545 Public Function OnHelp() As Boolean Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnHelp
546
547 End Function
548
549
550
551 Public Function OnKeystroke(ByVal Wparam As Integer, ByVal Message As Integer, ByVal Lparam As Integer, ByVal Id As Integer) As Boolean Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnKeystroke
552
553 End Function
554
555
556
557 Public Sub OnListboxSelectionChanged(ByVal Id As Integer, ByVal Item As Integer) Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnListboxSelectionChanged
558
559 End Sub
560
561
562
563 Public Sub OnLostFocus(ByVal Id As Integer) Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnLostFocus
564
565 Debug.Print("Control box " & Id & " has lost focus")
566
567 End Sub
568
569
570
571 Public Function OnNextPage() As Boolean Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnNextPage
572
573 End Function
574
575
576
577 Public Sub OnNumberboxChanged(ByVal Id As Integer, ByVal Value As Double) Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnNumberboxChanged
578
579 End Sub
580
581
582
583 Public Sub OnOptionCheck(ByVal Id As Integer) Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnOptionCheck
584
585 End Sub
586
587
588
589 Public Sub OnPopupMenuItem(ByVal Id As Integer) Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnPopupMenuItem
590
591 End Sub
592
593
594
595 Public Sub OnPopupMenuItemUpdate(ByVal Id As Integer, ByRef retval As Integer) Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnPopupMenuItemUpdate
596
597 End Sub
598
599
600
601 Public Function OnPreview() As Boolean Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnPreview
602
603 End Function
604
605
606
607 Public Function OnPreviousPage() As Boolean Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnPreviousPage
608
609 End Function
610
611
612
613 Public Sub OnRedo() Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnRedo
614
615 End Sub
616
617
618
619 Public Sub OnSelectionboxCalloutCreated(ByVal Id As Integer) Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnSelectionboxCalloutCreated
620
621 End Sub
622
623
624
625 Public Sub OnSelectionboxCalloutDestroyed(ByVal Id As Integer) Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnSelectionboxCalloutDestroyed
626
627 End Sub
628
629
630
631 Public Sub OnSelectionboxFocusChanged(ByVal Id As Integer) Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnSelectionboxFocusChanged
632
633 Debug.Print("The focus has moved to selection box " & Id)
634
635 End Sub
636
637
638
639 Public Sub OnSelectionboxListChanged(ByVal Id As Integer, ByVal Count As Integer) Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnSelectionboxListChanged
640
641 ‘ Move focus to next selection box if right-mouse button pressed
642
643 pm_Page.SetCursor(swPropertyManagerPageCursors_e.swPropertyManagerPageCursors_Advance)
644
645 Debug.Print("The list in selection box " & Id & " has changed")
646
647 End Sub
648
649
650
651 Public Sub OnSliderPositionChanged(ByVal Id As Integer, ByVal Value As Double) Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnSliderPositionChanged
652
653 End Sub
654
655
656
657 Public Sub OnSliderTrackingCompleted(ByVal Id As Integer, ByVal Value As Double) Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnSliderTrackingCompleted
658
659 End Sub
660
661
662
663 Public Function OnSubmitSelection(ByVal Id As Integer, ByVal Selection As Object, ByVal SelType As Integer, ByRef ItemText As String) As Boolean Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnSubmitSelection
664
665 OnSubmitSelection = True
666
667 End Function
668
669
670
671 Public Function OnTabClicked(ByVal Id As Integer) As Boolean Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnTabClicked
672
673 End Function
674
675
676
677 Public Sub OnTextboxChanged(ByVal Id As Integer, ByVal Text As String) Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnTextboxChanged
678
679 End Sub
680
681
682
683 Public Sub OnUndo() Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnUndo
684
685 End Sub
686
687
688
689 Public Sub OnWhatsNew() Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnWhatsNew
690
691 End Sub
692
693
694
695 Public Sub OnListBoxRMBUp(ByVal Id As Integer, ByVal posX As Integer, ByVal posY As Integer) Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnListboxRMBUp
696
697 End Sub
698
699
700 Public Function OnWindowFromHandleControlCreated(ByVal Id As Integer, ByVal Status As Boolean) As Integer Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnWindowFromHandleControlCreated
701
702 End Function
703
704
705
706 Public Sub OnNumberBoxTrackingCompleted(ByVal Id As Integer, ByVal Value As Double) Implements SolidWorks.Interop.swpublished.IPropertyManagerPage2Handler9.OnNumberBoxTrackingCompleted
707
708 End Sub
709
710 End Class
711
Create PropertyManager Page Example (VB.NET)
时间： 2024-08-27 13:43:27