| blob | 40506b7a93a700f5d0f45894a70336ed1047dbb0 |
3 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="PropertiesGet" script:language="StarBasic">REM =======================================================================================================================
4 REM === The Access2Base library is a part of the LibreOffice project. ===
5 REM === Full documentation is available on http://www.access2base.com ===
6 REM =======================================================================================================================
8 Option Explicit
10 REM -----------------------------------------------------------------------------------------------------------------------
11 Public Function getAbsolutePosition(Optional pvObject As Variant) As Boolean
12 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getAbsolutePosition")
14 End Function ' getAbsolutePosition
16 REM -----------------------------------------------------------------------------------------------------------------------
17 Public Function getAllowAdditions(Optional pvObject As Variant) As Boolean
18 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getAllowAdditions")
20 End Function ' getAllowAdditions
22 REM -----------------------------------------------------------------------------------------------------------------------
23 Public Function getAllowDeletions(Optional pvObject As Variant) As Boolean
24 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getAllowDeletions")
26 End Function ' getAllowDeletions
28 REM -----------------------------------------------------------------------------------------------------------------------
29 Public Function getAllowEdits(Optional pvObject As Variant) As Boolean
32 End Function ' getAllowEdits
34 REM -----------------------------------------------------------------------------------------------------------------------
35 Public Function getBackColor(Optional pvObject As Variant) As Variant
38 End Function ' getBackColor
40 REM -----------------------------------------------------------------------------------------------------------------------
41 Public Function getBeginGroup(Optional pvObject As Variant) As Variant
44 End Function ' getBeginGroup
46 REM -----------------------------------------------------------------------------------------------------------------------
47 Public Function getBOF(Optional pvObject As Variant) As Variant
50 End Function ' getBOF
52 REM -----------------------------------------------------------------------------------------------------------------------
53 Public Function getBookmark(Optional pvObject As Variant) As Variant
56 End Function ' getBookmark
58 REM -----------------------------------------------------------------------------------------------------------------------
59 Public Function getBookmarkable(Optional pvObject As Variant) As Variant
60 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getBookmarkable")
62 End Function ' getBookmarkable
64 REM -----------------------------------------------------------------------------------------------------------------------
65 Public Function getBorderColor(Optional pvObject As Variant) As Variant
66 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getBorderColor")
68 End Function ' getBorderColor
70 REM -----------------------------------------------------------------------------------------------------------------------
71 Public Function getBorderStyle(Optional pvObject As Variant) As Variant
72 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getBorderStyle")
74 End Function ' getBorderStyle
76 REM -----------------------------------------------------------------------------------------------------------------------
77 Public Function getBuiltIn(Optional pvObject As Variant) As Boolean
80 End Function ' getBuiltIn
82 REM -----------------------------------------------------------------------------------------------------------------------
83 Public Function getButtonLeft(Optional pvObject As Variant) As Boolean
86 End Function ' getButtonLeft
88 REM -----------------------------------------------------------------------------------------------------------------------
89 Public Function getButtonMiddle(Optional pvObject As Variant) As Boolean
90 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getButtonMiddle")
92 End Function ' getButtonMiddle
94 REM -----------------------------------------------------------------------------------------------------------------------
95 Public Function getButtonRight(Optional pvObject As Variant) As Boolean
96 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getButtonRight")
98 End Function ' getButtonRight
100 REM -----------------------------------------------------------------------------------------------------------------------
101 Public Function getCancel(Optional pvObject As Variant) As Variant
104 End Function ' getCancel
106 REM -----------------------------------------------------------------------------------------------------------------------
107 Public Function getCaption(Optional pvObject As Variant) As Variant
110 End Function ' getCaption
112 REM -----------------------------------------------------------------------------------------------------------------------
113 Public Function getClickCount(Optional pvObject As Variant) As Long
114 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getClickCount")
116 End Function ' getClickCount
118 REM -----------------------------------------------------------------------------------------------------------------------
119 Public Function getContextShortcut(Optional pvObject As Variant) As String
120 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getContextShortcut")
122 End Function ' getContextShortcut
124 REM -----------------------------------------------------------------------------------------------------------------------
125 Public Function getControlSource(Optional pvObject As Variant) As Variant
126 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getControlSource")
128 End Function ' getControlSource
130 REM -----------------------------------------------------------------------------------------------------------------------
131 Public Function getControlTipText(Optional pvObject As Variant) As Variant
132 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getControlTipText")
134 End Function ' getControlTipText
136 REM -----------------------------------------------------------------------------------------------------------------------
137 Public Function getControlType(Optional pvObject As Variant) As Integer
138 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getControlType")
140 End Function ' getControlType
142 REM -----------------------------------------------------------------------------------------------------------------------
143 Public Function getCount(Optional pvObject As Variant) As Integer
146 End Function ' getCount
148 REM -----------------------------------------------------------------------------------------------------------------------
149 Public Function getCurrentRecord(Optional pvObject As Variant) As Variant
150 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getCurrentRecord")
152 End Function ' getCurrentRecord
154 REM -----------------------------------------------------------------------------------------------------------------------
155 Public Function getDataType(Optional pvObject As Variant) As Variant
158 End Function ' getDataType
160 REM -----------------------------------------------------------------------------------------------------------------------
161 Public Function getDbType(Optional pvObject As Variant) As Variant
164 End Function ' getDbType
166 REM -----------------------------------------------------------------------------------------------------------------------
167 Public Function getDefault(Optional pvObject As Variant) As Variant
170 End Function ' getDefault
172 REM -----------------------------------------------------------------------------------------------------------------------
173 Public Function getDefaultValue(Optional pvObject As Variant) As Variant
174 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getDefaultValue")
176 End Function ' getDefaultValue
178 REM -----------------------------------------------------------------------------------------------------------------------
179 Public Function getDescription(Optional pvObject As Variant) As Variant
180 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getDescription")
182 End Function ' getDescription
184 REM -----------------------------------------------------------------------------------------------------------------------
185 Public Function getEditMode(Optional pvObject As Variant) As Variant
188 End Function ' getEditMode
190 REM -----------------------------------------------------------------------------------------------------------------------
191 Public Function getEnabled(Optional pvObject As Variant) As Variant
194 End Function ' getEnabled
196 REM -----------------------------------------------------------------------------------------------------------------------
197 Public Function getEOF(Optional pvObject As Variant) As Variant
200 End Function ' getEOF
202 REM -----------------------------------------------------------------------------------------------------------------------
203 Public Function getEventName(Optional pvObject As Variant) As String
206 End Function ' getEventName
208 REM -----------------------------------------------------------------------------------------------------------------------
209 Public Function getEventType(Optional pvObject As Variant) As String
212 End Function ' getEventType
214 REM -----------------------------------------------------------------------------------------------------------------------
215 Public Function getFieldSize(Optional pvObject As Variant) As Variant
218 End Function ' getFieldSize
220 REM -----------------------------------------------------------------------------------------------------------------------
221 Public Function getFilter(Optional pvObject As Variant) As String
224 End Function ' getFilter
226 REM -----------------------------------------------------------------------------------------------------------------------
227 Public Function getFilterOn(Optional pvObject As Variant) As Boolean
230 End Function ' getFilterOn
232 REM -----------------------------------------------------------------------------------------------------------------------
233 Public Function getFocusChangeTemporary(Optional pvObject As Variant) As Boolean
234 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getFocusChangeTemporary")
235 getFocusChangeTemporary = PropertiesGet._getProperty(pvObject, "FocusChangeTemporary")
236 End Function ' getFocusChangeTemporary
238 REM -----------------------------------------------------------------------------------------------------------------------
239 Public Function getFontBold(Optional pvObject As Variant) As Variant
242 End Function ' getFontBold
244 REM -----------------------------------------------------------------------------------------------------------------------
245 Public Function getFontItalic(Optional pvObject As Variant) As Variant
246 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getFontItalic")
248 End Function ' getFontItalic
250 REM -----------------------------------------------------------------------------------------------------------------------
251 Public Function getFontName(Optional pvObject As Variant) As Variant
254 End Function ' getFontName
256 REM -----------------------------------------------------------------------------------------------------------------------
257 Public Function getFontSize(Optional pvObject As Variant) As Variant
260 End Function ' getFontSize
262 REM -----------------------------------------------------------------------------------------------------------------------
263 Public Function getFontUnderline(Optional pvObject As Variant) As Variant
264 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getFontUnderline")
266 End Function ' getFontUnderline
268 REM -----------------------------------------------------------------------------------------------------------------------
269 Public Function getFontWeight(Optional pvObject As Variant) As Variant
270 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getFontWeight")
272 End Function ' getFontWeight
274 REM -----------------------------------------------------------------------------------------------------------------------
275 Public Function getForm(Optional pvObject As Variant) As Variant ' Return Subform pseudo
278 End Function ' getForm
280 REM -----------------------------------------------------------------------------------------------------------------------
281 Public Function getFormat(Optional pvObject As Variant) As Variant
284 End Function ' getFormat
286 REM -----------------------------------------------------------------------------------------------------------------------
287 Public Function getHeight(Optional pvObject As Variant) As Long
290 End Function ' getHeight
292 REM -----------------------------------------------------------------------------------------------------------------------
293 Public Function getForeColor(Optional pvObject As Variant) As Variant
296 End Function ' getForeColor
298 REM -----------------------------------------------------------------------------------------------------------------------
299 Public Function getIsLoaded(Optional pvObject As Variant) As Boolean
302 End Function ' getIsLoaded
304 REM -----------------------------------------------------------------------------------------------------------------------
305 Public Function getItemData(Optional pvObject As Variant, ByVal Optional pvIndex As Variant) As Variant
307 If IsMissing(pvIndex) Then
309 Else
311 End If
312 End Function ' getItemData
314 REM -----------------------------------------------------------------------------------------------------------------------
315 Public Function getKeyAlt(Optional pvObject As Variant) As Boolean
318 End Function ' getKeyAlt
320 REM -----------------------------------------------------------------------------------------------------------------------
321 Public Function getKeyChar(Optional pvObject As Variant) As String
324 End Function ' getKeyChar
326 REM -----------------------------------------------------------------------------------------------------------------------
327 Public Function getKeyCode(Optional pvObject As Variant) As Integer
330 End Function ' getKeyCode
332 REM -----------------------------------------------------------------------------------------------------------------------
333 Public Function getKeyCtrl(Optional pvObject As Variant) As Boolean
336 End Function ' getKeyCtrl
338 REM -----------------------------------------------------------------------------------------------------------------------
339 Public Function getKeyFunction(Optional pvObject As Variant) As Integer
340 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getKeyFunction")
342 End Function ' getKeyFunction
344 REM -----------------------------------------------------------------------------------------------------------------------
345 Public Function getKeyShift(pvObject As Variant) As Boolean
348 End Function ' getKeyShift
350 REM -----------------------------------------------------------------------------------------------------------------------
351 Public Function getLinkChildFields(Optional pvObject As Variant, ByVal Optional pvIndex As Variant) As Variant
352 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getLinkChildFields")
353 If IsMissing(pvObject) Then
355 Else
357 End If
358 End Function ' getLinkChildFields
360 REM -----------------------------------------------------------------------------------------------------------------------
361 Public Function getLinkMasterFields(Optional pvObject As Variant, ByVal Optional pvIndex As Variant) As Variant
362 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getLinkMasterFields")
363 If IsMissing(pvIndex) Then
365 Else
366 getLinkMasterFields = PropertiesGet._getProperty(pvObject, "LinkMasterFields", pvIndex)
367 End If
368 End Function ' getLinkMasterFields
370 REM -----------------------------------------------------------------------------------------------------------------------
371 Public Function getListCount(Optional pvObject As Variant) As Variant
374 End Function ' getListCount
376 REM -----------------------------------------------------------------------------------------------------------------------
377 Public Function getListIndex(Optional pvObject As Variant) As Variant
380 End Function ' getListIndex
382 REM -----------------------------------------------------------------------------------------------------------------------
383 Public Function getLocked(Optional pvObject As Variant) As Variant
386 End Function ' getLocked
388 REM -----------------------------------------------------------------------------------------------------------------------
389 Public Function getMultiSelect(Optional pvObject As Variant) As Variant
390 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getMultiSelect")
392 End Function ' getMultiSelect
394 REM -----------------------------------------------------------------------------------------------------------------------
395 Public Function getName(Optional pvObject As Variant) As String
398 End Function ' getName
400 REM -----------------------------------------------------------------------------------------------------------------------
401 Public Function getObject(Optional pvShortcut As Variant) As Variant
402 ' Return the object described by pvShortcut ignoring its final property
403 ' Example: "Forms!myForm!myControl.myProperty" => Controls(Forms("myForm"), "myControl"))
408 If _ErrorHandler() Then On Local Error Goto Error_Function
410 Utils._SetCalledSub(cstThisSub)
411 If IsMissing(pvShortcut) Then Call _TraceArguments()
412 If Not Utils._CheckArgument(pvShortcut, 1, vbString) Then Goto Exit_Function
414 Dim iCurrentIndex As Integer, vCurrentObject As Variant, sCurrentProperty As String
415 Dim sComponents() As String, sSubComponents() As String, sDialog As String
416 Dim oDoc As Object
417 Set vCurrentObject = Nothing
418 sComponents = Split(Trim(pvShortcut), cstEXCLAMATION)
419 If UBound(sComponents) = 0 Then Goto Trace_Error
420 If Not Utils._InList(UCase(sComponents(0)), Array("FORMS", "DIALOGS", "TEMPVARS")) Then Goto Trace_Error
422 Set oDoc = _A2B_.CurrentDocument()
423 If oDoc.DbConnect = DBCONNECTFORM Then sComponents(1) = oDoc.DbContainers(0).FormName Else Goto Trace_Error
424 End If
426 sSubComponents = Split(sComponents(UBound(sComponents)), cstDOT)
429 Set vCurrentObject = New Collect
430 Select Case UCase(sComponents(0))
434 End Select
436 sSubComponents = Split(sComponents(iCurrentIndex), cstDOT)
437 sComponents(iCurrentIndex) = Utils._Trim(sSubComponents(0))
438 Select Case UBound(sSubComponents)
439 Case 0
440 sCurrentProperty = ""
441 Case 1
442 sCurrentProperty = sSubComponents(1)
443 Case Else
444 Goto Trace_Error
445 End Select
446 Select Case vCurrentObject._Type
447 Case OBJCOLLECTION
448 Select Case vCurrentObject._CollType
449 Case COLLFORMS
450 vCurrentObject = Application.Forms(sComponents(iCurrentIndex))
451 Case COLLALLDIALOGS
452 sDialog = UCase(sComponents(iCurrentIndex))
453 vCurrentObject = Application.AllDialogs(sDialog)
454 If Not vCurrentObject.IsLoaded Then Goto Trace_Error
455 Set vCurrentObject.UnoDialog = _A2B_.Dialogs.Item(sDialog)
456 Case COLLTEMPVARS
458 vCurrentObject = Application.TempVars(sComponents(1))
459 'Case Else
460 End Select
461 Case OBJFORM, OBJSUBFORM, OBJCONTROL, OBJDIALOG
462 vCurrentObject = vCurrentObject.Controls(sComponents(iCurrentIndex))
463 End Select
464 If sCurrentProperty <> "" Then vCurrentObject = vCurrentObject.getProperty(sCurrentProperty)
465 Next iCurrentIndex
467 Set getObject = vCurrentObject
469 Exit_Function:
470 Utils._ResetCalledSub(cstThisSub)
471 Exit Function
472 Trace_Error:
474 Goto Exit_Function
475 Error_Function:
476 TraceError(TRACEABORT, Err, cstThisSub, Erl)
477 GoTo Exit_Function
480 REM -----------------------------------------------------------------------------------------------------------------------
481 Public Function getObjectType(Optional pvObject As Variant) As String
482 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getObjectType")
484 End Function ' getObjectType
486 REM -----------------------------------------------------------------------------------------------------------------------
487 Public Function getOpenArgs(Optional pvObject As Variant) As String
490 End Function ' getOpenArgs
492 REM -----------------------------------------------------------------------------------------------------------------------
493 Public Function getOptionGroup(Optional pvObject As Variant, pvName As variant) As Variant
494 ' Return an OptionGroup object based on its name
497 If IsMissing(pvObject) Or IsMissing(pvName) Then Call _TraceArguments()
498 If _ErrorHandler() Then On Local Error Goto Error_Function
500 If Not Utils._CheckArgument(pvObject, 1, Array(OBJFORM, OBJSUBFORM)) Then Goto Exit_Function
501 If Not Utils._CheckArgument(pvName, 2, vbString) Then Goto Exit_Function
503 getOptionGroup = pvObject.OptionGroup(pvName)
505 Exit_Function:
507 Exit Function
508 Error_Function:
510 GoTo Exit_Function
513 REM -----------------------------------------------------------------------------------------------------------------------
514 Public Function getOptionValue(Optional pvObject As Variant) As String
515 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getOptionValue")
517 End Function ' getOptionValue
519 REM -----------------------------------------------------------------------------------------------------------------------
520 Public Function getOrderBy(Optional pvObject As Variant) As String
523 End Function ' getOrderBy
525 REM -----------------------------------------------------------------------------------------------------------------------
526 Public Function getOrderByOn(Optional pvObject As Variant) As Boolean
529 End Function ' getOrderByOn
531 REM -----------------------------------------------------------------------------------------------------------------------
532 Public Function getPage(Optional pvObject As Variant) As String
537 REM -----------------------------------------------------------------------------------------------------------------------
538 Public Function getParent(Optional pvObject As Variant) As String
543 REM -----------------------------------------------------------------------------------------------------------------------
544 Public Function getProperty(Optional pvItem As Variant, Optional ByVal pvProperty As Variant, ByVal Optional pvIndex As Variant) As Variant
545 ' Return property value of object pvItem, and psProperty property name
547 If IsMissing(pvItem) Then Call _TraceArguments()
548 If IsMissing(pvProperty) Then Call _TraceArguments()
549 If IsMissing(pvIndex) Then getProperty = PropertiesGet._getProperty(pvItem, pvProperty) Else getProperty = PropertiesGet._getProperty(pvItem, pvProperty, pvIndex)
551 End Function ' getProperty
553 REM -----------------------------------------------------------------------------------------------------------------------
554 Public Function getRecommendation(Optional pvObject As Variant) As Variant
555 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getRecommendation")
557 End Function ' getRecommendation
559 REM -----------------------------------------------------------------------------------------------------------------------
560 Public Function getRecordCount(Optional pvObject As Variant) As Variant
561 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getRecordCount")
563 End Function ' getRecordCount
565 REM -----------------------------------------------------------------------------------------------------------------------
566 Public Function getRecordset(Optional pvObject As Variant) As String
571 REM -----------------------------------------------------------------------------------------------------------------------
572 Public Function getRecordSource(Optional pvObject As Variant) As Variant
573 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getRecordSource")
575 End Function ' getRecordSource
577 REM -----------------------------------------------------------------------------------------------------------------------
578 Public Function getRequired(Optional pvObject As Variant) As Variant
581 End Function ' getRequired
583 REM -----------------------------------------------------------------------------------------------------------------------
584 Public Function getRowChangeAction(Optional pvObject As Variant) As Variant
585 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getRowChangeAction")
587 End Function ' getRowChangeAction
589 REM -----------------------------------------------------------------------------------------------------------------------
590 Public Function getRowSource(Optional pvObject As Variant) As Variant
593 End Function ' getRowSource
595 REM -----------------------------------------------------------------------------------------------------------------------
596 Public Function getRowSourceType(Optional pvObject As Variant) As Variant
597 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getRowSourceType")
599 End Function ' getRowSourceType
601 REM -----------------------------------------------------------------------------------------------------------------------
602 Public Function getSelected(Optional pvObject As Variant, ByVal Optional pvIndex As Variant) As Variant
604 If IsMissing(pvIndex) Then
606 Else
608 End If
609 End Function ' getSelected
611 REM -----------------------------------------------------------------------------------------------------------------------
612 Public Function getSize(Optional pvObject As Variant) As Variant
615 End Function ' getSize
617 REM -----------------------------------------------------------------------------------------------------------------------
618 Public Function getSource(Optional pvObject As Variant) As String
623 REM -----------------------------------------------------------------------------------------------------------------------
624 Public Function getSourceField(Optional pvObject As Variant) As Variant
625 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getSourceField")
627 End Function ' getSourceField
629 REM -----------------------------------------------------------------------------------------------------------------------
630 Public Function getSourceTable(Optional pvObject As Variant) As Variant
631 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getSourceTable")
633 End Function ' getSourceTable
635 REM -----------------------------------------------------------------------------------------------------------------------
636 Public Function getSpecialEffect(Optional pvObject As Variant) As Variant
637 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getSpecialEffect")
639 End Function ' getSpecialEffect
641 REM -----------------------------------------------------------------------------------------------------------------------
642 Public Function getSubType(Optional pvObject As Variant) As Variant
645 End Function ' getSubType
647 REM -----------------------------------------------------------------------------------------------------------------------
648 Public Function getSubComponentName(Optional pvObject As Variant) As Variant
649 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getSubComponentName")
651 End Function ' getSubComponentName
653 REM -----------------------------------------------------------------------------------------------------------------------
654 Public Function getSubComponentType(Optional pvObject As Variant) As Variant
655 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getSubComponentType")
657 End Function ' getSubComponentType
659 REM -----------------------------------------------------------------------------------------------------------------------
660 Public Function getTabIndex(Optional pvObject As Variant) As Variant
663 End Function ' getTabIndex
665 REM -----------------------------------------------------------------------------------------------------------------------
666 Public Function getTabStop(Optional pvObject As Variant) As Variant
669 End Function ' getTabStop
671 REM -----------------------------------------------------------------------------------------------------------------------
672 Public Function getTag(Optional pvObject As Variant) As Variant
675 End Function ' getTag
677 REM -----------------------------------------------------------------------------------------------------------------------
678 Public Function getText(Optional pvObject As Variant) As Variant
681 End Function ' getText
683 REM -----------------------------------------------------------------------------------------------------------------------
684 Public Function getTextAlign(Optional pvObject As Variant) As Variant
687 End Function ' getTextAlign
689 REM -----------------------------------------------------------------------------------------------------------------------
690 Public Function getTooltipText(Optional pvObject As Variant) As Variant
691 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getTooltipText")
693 End Function ' getTooltipText
695 REM -----------------------------------------------------------------------------------------------------------------------
696 Public Function getTripleState(Optional pvObject As Variant) As Variant
697 If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments("getTripleState")
699 End Function ' getTripleState
701 REM -----------------------------------------------------------------------------------------------------------------------
702 Public Function getTypeName(Optional pvObject As Variant) As Variant
705 End Function ' getTypeName
707 REM -----------------------------------------------------------------------------------------------------------------------
708 Public Function getValue(Optional pvObject As Variant) As Variant
709 ' getValue also interprets shortcut strings !!
710 Dim vItem As Variant, sProperty As String
712 If VarType(pvObject) = vbString Then
714 Set vItem = getObject(pvObject)
715 sProperty = Utils._FinalProperty(pvObject)
716 If sProperty = "" Then sProperty = "Value" ' Default value if final property in shortcut is absent
717 getValue = vItem.getProperty(sproperty)
719 Else
720 Set vItem = pvObject
722 End If
723 End Function ' getValue
725 REM -----------------------------------------------------------------------------------------------------------------------
726 Public Function getVisible(Optional pvObject As Variant) As Variant
729 End Function ' getVisible
731 REM -----------------------------------------------------------------------------------------------------------------------
732 Public Function getWidth(Optional pvObject As Variant) As Long
735 End Function ' getWidth
737 REM -----------------------------------------------------------------------------------------------------------------------
738 Public Function getXPos(Optional pvObject As Variant) As Long
741 End Function ' getXPos
743 REM -----------------------------------------------------------------------------------------------------------------------
744 Public Function getYPos(Optional pvObject As Variant) As Long
747 End Function ' getYPos
749 REM -----------------------------------------------------------------------------------------------------------------------
750 REM --- PRIVATE FUNCTIONS ---
751 REM -----------------------------------------------------------------------------------------------------------------------
753 Public Function _getProperty(pvItem As Variant, ByVal psProperty As String, ByVal Optional pvIndex As Variant) As Variant
754 ' Return property value of the psProperty property name within object pvItem
756 If _ErrorHandler() Then On Local Error Goto Error_Function
758 _getProperty = Nothing
760 'pvItem must be an object and have the requested property
761 If Not Utils._CheckArgument(pvItem, 1, vbObject) Then Goto Exit_Function
762 If Not PropertiesGet._hasProperty(pvItem._Type, pvItem._PropertiesList(), psProperty) Then Goto Trace_Error
763 'Check Index argument
764 If Not IsMissing(pvIndex) Then
765 If Not Utils._CheckArgument(pvIndex, 3, Utils._AddNumeric()) Then Goto Exit_Function
766 End If
767 'Execute
768 Select Case UCase(psProperty)
770 If Not Utils._CheckArgument(pvItem, 1, OBJRECORDSET) Then Goto Exit_Function
771 _getProperty = pvItem.AbsolutePosition
773 If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJSUBFORM)) Then Goto Exit_Function
774 _getProperty = pvItem.AllowAdditions
776 If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJSUBFORM)) Then Goto Exit_Function
777 _getProperty = pvItem.AllowDeletions
779 If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJSUBFORM)) Then Goto Exit_Function
780 _getProperty = pvItem.AllowEdits
782 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
783 _getProperty = pvItem.BackColor
785 If Not Utils._CheckArgument(pvItem, 1, OBJCOMMANDBARCONTROL) Then Goto Exit_Function
786 _getProperty = pvItem.BeginGroup
788 If Not Utils._CheckArgument(pvItem, 1, OBJRECORDSET) Then Goto Exit_Function
789 _getProperty = pvItem.BOF
791 If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJRECORDSET)) Then Goto Exit_Function
792 _getProperty = pvItem.Bookmark
794 If Not Utils._CheckArgument(pvItem, 1, OBJRECORDSET) Then Goto Exit_Function
795 _getProperty = pvItem.Bookmarkable
797 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
798 _getProperty = pvItem.BorderColor
800 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
801 _getProperty = pvItem.BorderStyle
803 If Not Utils._CheckArgument(pvItem, 1, Array(OBJCOMMANDBAR, OBJCOMMANDBARCONTROL)) Then Goto Exit_Function
804 _getProperty = pvItem.BuiltIn
806 If Not Utils._CheckArgument(pvItem, 1, OBJEVENT) Then Goto Exit_Function
807 _getProperty = pvItem.ButtonLeft
809 If Not Utils._CheckArgument(pvItem, 1, OBJEVENT) Then Goto Exit_Function
810 _getProperty = pvItem.ButtonMiddle
812 If Not Utils._CheckArgument(pvItem, 1, OBJEVENT) Then Goto Exit_Function
813 _getProperty = pvItem.ButtonRight
815 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
816 _getProperty = pvItem.Cancel
818 If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJDIALOG, OBJCONTROL, OBJCOMMANDBARCONTROL)) Then Goto Exit_Function
819 _getProperty = pvItem.Caption
821 If Not Utils._CheckArgument(pvItem, 1, OBJEVENT) Then Goto Exit_Function
822 _getProperty = pvItem.ClickCount
824 If Not Utils._CheckArgument(pvItem, 1, OBJEVENT) Then Goto Exit_Function
825 _getProperty = pvItem.ContextShortcut
827 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
828 _getProperty = pvItem.ControlSource
830 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
831 _getProperty = pvItem.ControlTipText
833 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
834 _getProperty = pvItem.ControlType
836 If Not Utils._CheckArgument(pvItem, 1, Array(OBJCOLLECTION,OBJOPTIONGROUP)) Then Goto Exit_Function
837 _getProperty = pvItem.Count
839 If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJSUBFORM)) Then Goto Exit_Function
840 _getProperty = pvItem.CurrentRecord
842 If Not Utils._CheckArgument(pvItem, 1, OBJFIELD) Then Goto Exit_Function
843 _getProperty = pvItem.DataType
845 If Not Utils._CheckArgument(pvItem, 1, OBJFIELD) Then Goto Exit_Function
846 _getProperty = pvItem.DbType
848 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
849 _getProperty = pvItem.Default
851 If Not Utils._CheckArgument(pvItem, 1, Array(OBJCONTROL, OBJFIELD)) Then Goto Exit_Function
852 _getProperty = pvItem.DefaultValue
854 If Not Utils._CheckArgument(pvItem, 1, OBJFIELD) Then Goto Exit_Function
855 _getProperty = pvItem.Description
857 If Not Utils._CheckArgument(pvItem, 1, OBJRECORDSET) Then Goto Exit_Function
858 _getProperty = pvItem.EditMode
860 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
861 _getProperty = pvItem.Enabled
863 If Not Utils._CheckArgument(pvItem, 1, OBJRECORDSET) Then Goto Exit_Function
864 _getProperty = pvItem.EOF
866 If Not Utils._CheckArgument(pvItem, 1, OBJEVENT) Then Goto Exit_Function
867 _getProperty = pvItem.EventName
869 If Not Utils._CheckArgument(pvItem, 1, OBJEVENT) Then Goto Exit_Function
870 _getProperty = pvItem.EventType
872 If Not Utils._CheckArgument(pvItem, 1, OBJFIELD) Then Goto Exit_Function
873 _getProperty = pvItem.FieldSize
875 If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJSUBFORM, OBJRECORDSET)) Then Goto Exit_Function
876 _getProperty = pvItem.Filter
878 If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJSUBFORM)) Then Goto Exit_Function
879 _getProperty = pvItem.FilterOn
881 If Not Utils._CheckArgument(pvItem, 1, OBJEVENT) Then Goto Exit_Function
882 _getProperty = pvItem.FocusChangeTemporary
884 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
885 _getProperty = pvItem.FontBold
887 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
888 _getProperty = pvItem.FontItalic
890 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
891 _getProperty = pvItem.FontName
893 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
894 _getProperty = pvItem.FontSize
896 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
897 _getProperty = pvItem.FontUnderline
899 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
900 _getProperty = pvItem.FontWeight
902 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
903 _getProperty = pvItem.ForeColor
905 If Not Utils._CheckArgument(pvItem, 1, CTLSUBFORM) Then Goto Exit_Function
906 _getProperty = pvItem.Form
908 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
909 _getProperty = pvItem.Format
911 If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJDIALOG)) Then Goto Exit_Function
912 _getProperty = pvItem.Height
914 If Not Utils._CheckArgument(pvItem, 1, OBJCOMMANDBARCONTROL) Then Goto Exit_Function
915 _getProperty = pvItem.Index
917 If Not Utils._CheckArgument(pvItem, 1, OBJFORM) Then Goto Exit_Function
918 _getProperty = pvItem.IsLoaded
920 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
921 If IsMissing(pvIndex) Then _getProperty = pvItem.ItemData Else _getProperty = pvItem.ItemData(pvIndex)
923 If Not Utils._CheckArgument(pvItem, 1, OBJEVENT) Then Goto Exit_Function
924 _getProperty = pvItem.KeyAlt
926 If Not Utils._CheckArgument(pvItem, 1, OBJEVENT) Then Goto Exit_Function
927 _getProperty = pvItem.KeyChar
929 If Not Utils._CheckArgument(pvItem, 1, OBJEVENT) Then Goto Exit_Function
930 _getProperty = pvItem.KeyCode
932 If Not Utils._CheckArgument(pvItem, 1, OBJEVENT) Then Goto Exit_Function
933 _getProperty = pvItem.KeyCtrl
935 If Not Utils._CheckArgument(pvItem, 1, OBJEVENT) Then Goto Exit_Function
936 _getProperty = pvItem.KeyFunction
938 If Not Utils._CheckArgument(pvItem, 1, OBJEVENT) Then Goto Exit_Function
939 _getProperty = pvItem.KeyShift
941 If Not Utils._CheckArgument(pvItem, 1, OBJSUBFORM) Then Goto Exit_Function
942 If IsMissing(pvIndex) Then _getProperty = pvItem.LinkChildFields Else _getProperty = pvItem.LinkChildFields(pvIndex)
944 If Not Utils._CheckArgument(pvItem, 1, OBJSUBFORM) Then Goto Exit_Function
945 If IsMissing(pvIndex) Then _getProperty = pvItem.LinkMasterFields Else _getProperty = pvItem.LinkMasterFields(pvIndex)
947 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
948 _getProperty = pvItem.ListCount
950 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
951 _getProperty = pvItem.ListIndex
953 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
954 If IsNull(pvItem.Locked) Then Goto Trace_Error
955 _ge ExitProperty = pvItem.Locked
957 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
958 _getProperty = pvItem.MultiSelect
960 If Not Utils._CheckArgument(pvItem, 1, _
961 Array(OBJFORM, OBJSUBFORM, OBJCONTROL, OBJOPTIONGROUP, OBJPROPERTY, OBJDIALOG, OBJTABLEDEF, OBJRECORDSET, OBJFIELD, OBJTEMPVAR, OBJCOMMANDBAR) _
962 ) Then Goto Exit_Function
963 _getProperty = pvItem.Name
965 If Not Utils._CheckArgument(pvItem, 1, Array(OBJDATABASE, OBJCOLLECTION, OBJFORM, OBJDIALOG, OBJSUBFORM, OBJCONTROL _
966 , OBJEVENT, OBJOPTIONGROUP, OBJPROPERTY, OBJRECORDSET, OBJTABLEDEF, OBJFIELD, OBJTEMPVAR _
967 , OBJCOMMANDBAR, OBJCOMMANDBARCONTROL) _
968 ) Then Goto Exit_Function
969 _getProperty = pvItem.ObjectType
971 If Not Utils._CheckArgument(pvItem, 1, OBJCOMMANDBARCONTROL) Then Goto Exit_Function
972 _getProperty = pvItem.OnAction
974 If Not Utils._CheckArgument(pvItem, 1, OBJFORM) Then Goto Exit_Function
975 _getProperty = pvItem.OpenArgs
977 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
978 _getProperty = pvItem.OptionValue
980 If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJSUBFORM)) Then Goto Exit_Function
981 _getProperty = pvItem.OrderBy
983 If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJSUBFORM)) Then Goto Exit_Function
984 _getProperty = pvItem.OrderByOn
986 If Not Utils._CheckArgument(pvItem, 1, Array(OBJDIALOG, OBJCONTROL)) Then Goto Exit_Function
987 _getProperty = pvItem.Page
989 If Not Utils._CheckArgument(pvItem, 1, Array(OBJSUBFORM, OBJCONTROL, OBJCOMMANDBARCONTROL)) Then Goto Exit_Function
990 _getProperty = pvItem.Parent
992 If Not Utils._CheckArgument(pvItem, 1, OBJEVENT) Then Goto Exit_Function
993 _getProperty = pvItem.Recommendation
995 If Not Utils._CheckArgument(pvItem, 1, OBJRECORDSET) Then Goto Exit_Function
996 _getProperty = pvItem.RecordCount
998 If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJSUBFORM)) Then Goto Exit_Function
999 _getProperty = pvItem.Recordset
1001 If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJSUBFORM)) Then Goto Exit_Function
1002 _getProperty = pvItem.RecordSource
1004 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
1005 _getProperty = pvItem.Required
1007 If Not Utils._CheckArgument(pvItem, 1, OBJEVENT) Then Goto Exit_Function
1008 _getProperty = pvItem.RowChangeAction
1010 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
1011 _getProperty = pvItem.RowSource
1013 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
1014 _getProperty = pvItem.RowSourceType
1016 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
1017 If IsMissing(pvIndex) Then _getProperty = pvItem.Selected Else _getProperty = pvItem.Selected(pvIndex)
1019 If Not Utils._CheckArgument(pvItem, 1, OBJFIELD) Then Goto Exit_Function
1020 _getProperty = pvItem.Size
1022 If Not Utils._CheckArgument(pvItem, 1, OBJEVENT) Then Goto Exit_Function
1023 _getProperty = pvItem.Source
1025 If Not Utils._CheckArgument(pvItem, 1, OBJFIELD) Then Goto Exit_Function
1026 _getProperty = pvItem.SourceTable
1028 If Not Utils._CheckArgument(pvItem, 1, OBJFIELD) Then Goto Exit_Function
1029 _getProperty = pvItem.SourceField
1031 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
1032 _getProperty = pvItem.SpecialEffect
1034 If Not Utils._CheckArgument(pvItem, 1, OBJEVENT) Then Goto Exit_Function
1035 _getProperty = pvItem.SubComponentName
1037 If Not Utils._CheckArgument(pvItem, 1, OBJEVENT) Then Goto Exit_Function
1038 _getProperty = pvItem.SubComponentType
1040 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
1041 _getProperty = pvItem.SubType
1043 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
1044 _getProperty = pvItem.TabIndex
1046 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
1047 _getProperty = pvItem.TabStop
1049 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
1050 _getProperty = pvItem.Tag
1052 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
1053 _getProperty = pvItem.Text
1055 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
1056 _getProperty = pvItem.TextAlign
1058 If Not Utils._CheckArgument(pvItem, 1, OBJCOMMANDBARCONTROL) Then Goto Exit_Function
1059 _getProperty = pvItem.TooltipText
1061 If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
1062 _getProperty = pvItem.TripleState
1064 If Not Utils._CheckArgument(pvItem, 1, OBJFIELD) Then Goto Exit_Function
1065 _getProperty = pvItem.TypeName
1067 If Not Utils._CheckArgument(pvItem, 1, Array(OBJCONTROL, OBJOPTIONGROUP, OBJPROPERTY, OBJFIELD, OBJTEMPVAR)) Then Goto Exit_Function
1068 _getProperty = pvItem.Value
1070 If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJDIALOG, OBJCONTROL, OBJCOMMANDBAR, OBJCOMMANDBARCONTROL)) Then Goto Exit_Function
1071 _getProperty = pvItem.Visible
1073 If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJDIALOG)) Then Goto Exit_Function
1074 _getProperty = pvItem.Width
1076 If Not Utils._CheckArgument(pvItem, 1, OBJEVENT) Then Goto Exit_Function
1077 If IsNull(pvItem.XPos) Then Goto Trace_Error
1078 _getProperty = pvItem.XPos
1080 If Not Utils._CheckArgument(pvItem, 1, OBJEVENT) Then Goto Exit_Function
1081 If IsNull(pvItem.YPos) Then Goto Trace_Error
1082 _getProperty = pvItem.YPos
1083 Case Else
1084 Goto Trace_Error
1085 End Select
1087 Exit_Function:
1089 Exit Function
1090 Trace_Error:
1092 _getProperty = Nothing
1093 Goto Exit_Function
1094 Trace_Error_Index:
1096 _getProperty = Nothing
1097 Goto Exit_Function
1098 Error_Function:
1100 _getProperty = Nothing
1101 GoTo Exit_Function
1104 REM -----------------------------------------------------------------------------------------------------------------------
1105 Public Function _hasProperty(ByVal psObject As String, ByVal pvPropertiesList() As Variant, ByVal pvProperty As Variant) As Boolean
1106 ' Return True if object has a valid property called pvProperty (case-insensitive comparison !)
1107 ' Generic hasProperty function called from all class modules
1109 Dim sObject As String
1110 sObject = Utils._PCase(psObject)
1112 If IsMissing(pvProperty) Then Call _TraceArguments()
1114 _hasProperty = False
1115 If Not Utils._CheckArgument(pvProperty, 1, vbString) Then Goto Exit_Function
1117 _hasProperty = Utils._InList(pvProperty, pvPropertiesList(), , True)
1119 Exit_Function:
1121 Exit Function
1122 End Function ' _hasProperty
1124 REM ------------------------------------------------------------------------------------------------------------------------
1125 Public Function _ParentObject(psShortcut As String) As Object
1126 ' Return parent object from shortcut as a string
1128 Dim sParent As String, vParent() As Variant, iBound As Integer
1130 iBound = UBound(vParent) - 1
1136 Set _ParentObject = Nothing
1137 If Len(sParent) > Len(cstForm) Then
1138 If UCase(Right(sParent, Len(cstForm))) = cstForm Then
1139 Set _ParentObject = getValue(sParent)
1140 Else
1141 Set _ParentObject = getObject(sParent)
1142 End If
1143 End If
1147 REM -----------------------------------------------------------------------------------------------------------------------
1148 Public Function _Properties(ByVal psObject As String _
1149 , ByVal psObjectName As String _
1150 , ByVal pvPropertiesList() As Variant _
1151 , ByVal Optional pvIndex As Variant _
1152 ) As Variant
1153 ' Return
1154 ' a Collection object if pvIndex absent
1155 ' a Property object otherwise
1156 ' Generic function called from Properties methods stored in classes
1158 Dim vProperties As Variant, oCounter As Object, opProperty As Object
1159 Dim iArgNr As Integer, iLen As Integer
1163 vProperties = Null
1165 If IsMissing(pvIndex) Then ' Call without index argument prepares a Collection object
1166 Set oCounter = New Collect
1167 oCounter._CollType = COLLPROPERTIES
1168 oCounter._ParentType = UCase(psObject)
1169 oCounter._ParentName = psObjectName
1170 oCounter._Count = UBound(pvPropertiesList) + 1
1171 Set vProperties = oCounter
1172 Else
1173 iLen = Len(psObject) + 1
1174 If Len(_A2B_.CalledSub) > iLen Then
1176 End If
1177 If Not Utils._CheckArgument(pvIndex, iArgNr, Utils._AddNumeric()) Then Goto Exit_Function
1180 Else
1181 Set opProperty = New Property
1182 opProperty._Name = pvPropertiesList(pvIndex)
1183 opProperty._Value = Null
1184 Set vProperties = opProperty
1185 End If
1186 End If
1188 Exit_Function:
1189 Set _Properties = vProperties
1191 Exit Function
1192 End Function ' _Properties
1194 REM -----------------------------------------------------------------------------------------------------------------------
1195 Public Function _PropertiesList(pvObject As Variant) As Variant
1196 ' Return an array of strings containing the list of valid properties of pvObject
1198 Dim vProperties As Variant
1199 Dim vPropertiesList As Variant, bPropertiesList() As Boolean, sPropertiesList() As String
1200 Dim i As Integer, j As Integer, iCount As Integer
1202 Set vProperties = Nothing
1203 Select Case pvObject._Type
1204 Case OBJCOLLECTION, OBJPROPERTY, OBJFORM, OBJEVENT, OBJSUBFORM, OBJCONTROL, OBJOPTIONGROUP _
1205 , OBJDATABASE, OBJTABLEDEF, OBJQUERYDEF, OBJDIALOG, OBJFIELD, OBJRECORDSET, OBJTEMPVAR _
1206 , OBJCOMMANDBAR, OBJCOMMANDBARCONTROL
1207 vPropertiesList = pvObject._PropertiesList()
1208 Case Else
1209 End Select
1211 Exit_Function:
1212 Set _PropertiesList = vPropertiesList
1213 Exit Function
1216 </script:module>