Lines Matching refs:myComponent
107 Dim myComponent As VBComponent variable
150 For Each myComponent In myProject.VBComponents
153 If CheckEmptyProject(docAnalysis, myProject, myComponent) Then
154 If myComponent.Type <> vbext_ct_MSForm Then
161 Analyze_MacrosForPortabilityIssues docAnalysis, myProject, myComponent
174 .SubLocation = VBComponentType(myComponent)
178 .Values.Add myComponent.name
180 … .Values.Add VBNumFuncs(docAnalysis, myComponent.CodeModule), RID_STR_COMMON_ATTRIBUTE_PROCEDURES
182 numLines = VBNumLines(docAnalysis, myComponent.CodeModule)
191 myComponent.CodeModule.Lines(1, myComponent.CodeModule.CountOfLines)), _
199 If (myComponent.Type = vbext_ct_MSForm) And Not bUserFormWithEmptyCodeModule Then
201 … myIssue.Values.Add myComponent.Designer.Controls.count, RID_STR_COMMON_ATTRIBUTE_CONTROLS
203 …docAnalysis.MacroNumUserFormControls = myComponent.Designer.Controls.count + docAnalysis.MacroNumU…
211 For Each myControl In myComponent.Designer.Controls
225 If myComponent.Designer.Controls.count > 0 Then
249 If myComponent.Type = vbext_ct_MSForm Or _
250 myComponent.Type = vbext_ct_ClassModule Then
255 … strFind = VBFindLines(docAnalysis, myComponent.CodeModule, "Me", count, bWholeWord:=True)
273 Next myComponent 'End - For Each myComponent
419 …tabilityIssues(docAnalysis As DocumentAnalysis, myProject As VBProject, myComponent As VBComponent)
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)
439 If (strFind <> "") And (myComponent.Type <> vbext_ct_Document) Then
451 .SubLocation = VBComponentType(myComponent)
456 .Values.Add myComponent.name
622 Function CheckEmptyProject(docAnalysis As DocumentAnalysis, myProject As VBProject, myComponent As …
642 strFind = VBFindLines(docAnalysis, myComponent.CodeModule, "Public", _
646 (VBNumFuncs(docAnalysis, myComponent.CodeModule) = 0) And _
647 (VBNumLines(docAnalysis, myComponent.CodeModule) < 3) And _