Lines Matching refs:count
89 For Num = 1 To coll.count ' Remove name from the collection.
201 … myIssue.Values.Add myComponent.Designer.Controls.count, RID_STR_COMMON_ATTRIBUTE_CONTROLS
203 …docAnalysis.MacroNumUserFormControls = myComponent.Designer.Controls.count + docAnalysis.MacroNumU…
225 If myComponent.Designer.Controls.count > 0 Then
226 Dim count As Long variable
234 For count = 0 To myContolDict.count - 1
235 … controlTypes = controlTypes & vKeyArray(count) & " " & CInt(vItemArray(count)) & " "
236 Next count
241 myIssue.Values.Add myContolDict.count, RID_STR_COMMON_ATTRIBUTE_USERFORM_TYPES_COUNT
243 …docAnalysis.MacroNumUserFormControlTypes = myContolDict.count + docAnalysis.MacroNumUserFormContro…
254 count = 0
255 … strFind = VBFindLines(docAnalysis, myComponent.CodeModule, "Me", count, bWholeWord:=True)
258 If count > 0 Then
260 myIssue.Values.Add count, RID_STR_COMMON_ATTRIBUTE_CLASS_ME_COUNT
424 Dim count As Long variable
428 …strFind = VBFindLines(docAnalysis, myComponent.CodeModule, "CreateObject", count, bWholeWord:=True…
429 VBFindLines(docAnalysis, myComponent.CodeModule, "GetObject", count, bWholeWord:=True) & _
430 VBFindLines(docAnalysis, myComponent.CodeModule, "ADODB.", count, True, True) & _
431 VBFindLines(docAnalysis, myComponent.CodeModule, "Word.", count, True, True) & _
432 VBFindLines(docAnalysis, myComponent.CodeModule, "Excel.", count, True, True) & _
433 VBFindLines(docAnalysis, myComponent.CodeModule, "PowerPoint.", count, True, True) & _
434 VBFindLines(docAnalysis, myComponent.CodeModule, "Access.", count, True, True) & _
435 VBFindLines(docAnalysis, myComponent.CodeModule, "Declare Function ", count, False) & _
436 VBFindLines(docAnalysis, myComponent.CodeModule, "Declare Sub ", count, False)
460 .Values.Add count, RID_STR_COMMON_ATTRIBUTE_NON_PORTABLE_EXTERNAL_REFERENCES_COUNT
465 docAnalysis.MacroNumExternalRefs = count + docAnalysis.MacroNumExternalRefs
481 count As Long, _
543 count = count + 1
637 Dim count As Long variable
643 count, bInProcedure:=False, bWholeWord:=True, bMatchCase:=True)