|
| 1 | +<?xml version="1.0"?> |
| 2 | +<dataroot xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> |
| 3 | + <USysAPI> |
| 4 | + <ProcName>RunVcsCheck([OpenDialogToFixLettercase], [DeclDictFilePath]) As Variant</ProcName> |
| 5 | + <Description><div><font size=2>Compare lettercase from CurrentVbProject with saved (table/file) dictionary items</font></div> |
| 6 | + |
| 7 | +<div><font size=2>&nbsp;</font></div> |
| 8 | + |
| 9 | +<div><font size=2><strong>Parameters</strong></font></div> |
| 10 | + |
| 11 | +<blockquote> |
| 12 | + |
| 13 | +<div><font size=2>OpenDialogToFixLettercase - (Boolean) - Open dialog to fix lettercase</font></div> |
| 14 | +<div><font size=2>DeclDictFilePath - (String) - use alternative file path</font></div> |
| 15 | + |
| 16 | +</blockquote> |
| 17 | + |
| 18 | +<div><font size=2>&nbsp;</font></div> |
| 19 | + |
| 20 | +<div><font size=2><strong>Returns</strong></font></div> |
| 21 | + |
| 22 | +<ul> |
| 23 | + <ul> |
| 24 | + <li><font size=2>Boolean (True) ... if DiffCount = 0</font></li> |
| 25 | + <li><font size=2>String ... if DiffCount &gt; 0 =&gt; &quot;Failed: &lt;lettercase info&gt;&quot;</font></li> |
| 26 | + </ul> |
| 27 | +</ul> |
| 28 | + |
| 29 | +<div>&nbsp;</div> |
| 30 | + |
| 31 | +<div><font size=2><strong>Example</strong></font></div> |
| 32 | + |
| 33 | +<div><font face="Courier New" size=1>Dim Result As Variant</font></div> |
| 34 | + |
| 35 | +<div><font face="Courier New" size=1>Result = Application.Run(Environ(&quot;appdata&quot;) &amp; _</font></div> |
| 36 | + |
| 37 | +<div><font face="Courier New" size=1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;\Microsoft\AddIns\ACLibDeclarationDict.RunVcsCheck&quot;, True)</font></div> |
| 38 | + |
| 39 | +<div><font face="Courier New" size=1>If Result = True Then</font></div> |
| 40 | + |
| 41 | +<div><font face="Courier New" size=1>&nbsp;&nbsp;&nbsp;&nbsp;Debug.Print &quot;No problems with letter case&quot;</font></div> |
| 42 | + |
| 43 | +<div><font face="Courier New" size=1>Else</font></div> |
| 44 | + |
| 45 | +<div><font face="Courier New" size=1>&nbsp;&nbsp;&nbsp;&nbsp;Debug.Print Result</font></div> |
| 46 | + |
| 47 | +<div><font face="Courier New" size=1>End If</font></div></Description> |
| 48 | + <OrderPos>2</OrderPos> |
| 49 | + </USysAPI> |
| 50 | + <USysAPI> |
| 51 | + <ProcName>RunVcsCheckDialog()</ProcName> |
| 52 | + <Description><div>Equal to <b>RunVcsCheck(True)</b></div></Description> |
| 53 | + <OrderPos>3</OrderPos> |
| 54 | + </USysAPI> |
| 55 | +</dataroot> |
0 commit comments