ࡱ;  vtrpnm  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuwxyz{|}~Root Entry FCompObjbWordDocument jObjectPool  FMicrosoft Word 6.0 Document MSWordDocWord.Document.6; ࡱ; La( ࡱ;   FMicrosoft WordArt 2.0 MSWordArt.2 MSWordArt.2ࡱ; ࡱ;  ܥe3 e"jj'~~~~$rrrrr".rvPF_D! <XTPv'jo''v'~~''''~\( T~~~~''' vbValet Print1       TABLE OF CONTENTS Project Name: C:\VB\APROJECT\CALCULAT\CALC.DOC  DATE \* MERGEFORMAT 6/14/94  TOC \t "vbVSub,2,vbVTitleNP,1" ABOUT.FRM  GOTOBUTTON _Toc290526895  PAGEREF _Toc290526895 2 Sub Command1_Click ()  GOTOBUTTON _Toc290526896  PAGEREF _Toc290526896 2 Sub Form_Load ()  GOTOBUTTON _Toc290526897  PAGEREF _Toc290526897 3 GRAFCALC.BAS  GOTOBUTTON _Toc290526898  PAGEREF _Toc290526898 3 Summary  GOTOBUTTON _Toc290526899  PAGEREF _Toc290526899 3  ABOUT.FRM VERSION 2.00 Begin Form About BorderStyle = 3 'Fixed Double Caption = "About... "  ClientHeight = 3000  ClientLeft = 1452 ClientTop = 1848 ClientWidth = 5196  ControlBox = 0 'False FontBold = -1 'True FontItalic = -1 'True  End End  Sub Command1_Click () 'Cancel About form Unload About End Sub  Sub Form_Load () 'Center form Left = (Screen.Width - Width) / 2 Top = (Screen.Height - Height) / 2 Image4.Left = 440  Image4.Top = 840 End Sub   GRAFCALC.BAS ' The following are general purpose functions Declare Sub dwCopyData XE "Declare Sub:dwCopyData" \b  Lib "dwspydll.dll" (source As Any, dest As Any, ByVal nCount%) Declare Sub dwCopyDataBynum XE "Declare Sub:dwCopyDataBynum" \b  Lib "dwspydll.dll" Alias "dwCopyData XE "Declare Sub:dwCopyData" \b " (ByVal source&, ByVal dest&, ByVal nCount%) Declare Function dwGetAddressForObject& XE "Declare Function:dwGetAddressForObject&" \b  Lib "dwspydll.dll" (object As Any) Declare Function dwGetAddressForInteger& XE "Declare Function:dwGetAddressForInteger&" \b  Lib "dwspydll.dll" Alias "dwGetAddressForObject" (intnum%) 'form array for mdiform Option Base 1 Type FormState XE "Type Statements:FormState" \b  Dirty As Integer Deleted As Integer End Type Global FState() As FormState XE "Type Statements:FormState" \b  'Constants to represent error conditions Global Const Err_DeviceUnavailable XE "Global Constants:Err_DeviceUnavailable" \b  = 68 Global Const Err_DiskNotReady XE "Global Constants:Err_DiskNotReady" \b  = 71, Err_FileAlreadyExists = 58 'default random file specs Type RecordType XE "Type Statements:RecordType" \b  RecordNum As Long Def_FontName As String * 50 Def_FontSize As Integer Def_FontBold As Integer End Type Global RecordVar As RecordType XE "Type Statements:RecordType" \b  Global RecordNumber As Long Summary Project Name: C:\VB\APROJECT\CALCULAT\CALC.DOC   DATE \* MERGEFORMAT 6/14/94 File NameFile SizeABOUT.FRM  5455FRMCALC.FRM  47580FRMPRINT.FRM  7379GRAFMDI.FRM  4206GRAFMOD.FRM  20842ITEMID.FRM  2792COMMON.BAS  1972ERRMOD.BAS  1880FILEMSG.BAS  2042GRAFCALC.BAS  31965    Cross+Reference Declare FunctiondwGetAddressForInteger&;3,4dwGetAddressForObject&;10Declare SubdwCopyData;12dwCopyDataBynum;2Global ConstantsErr_BadFileNameOrNumber;1Err_DeviceUnavailable;1,4,78Type StatementsFormState;122RecordType;125,678  EMBED MSWordArt.2 \s In the upcoming version of vbValet Print, you will find a Code Librarian. With it, you will be able to create a standard Windows Help file of any or all of the forms or routines in a project. You will be able to add, edit or delete them as you wish. Look at it as your own personal "knowledge base" of Subs, Functions etc., etc.,. Coming...Summer '94 ( PAGE  PAGE 3  FILENAME \p C:\WINWORD\BOB\VBVSOR12\SAMPLE.DOC printed  DATE \l 6/14/94 The following W4W project document was prepared using vbValet Print1. It illustrates a number of the built in features of the program and describes the use of the various menu commands. Because the program has only a few operations that are unique to itself, a "full blown" Help file would only take up more space on your hard drive (e.g. bitmap representations of document pages etc.,.) The Visual Basic project in the Word document doesn't do anything. GETTING STARTED: Bring in a valid .MAK file and then click on vbValet Print. Or click on the vbValet Print menu item and choose a MAK file using the FileOpen dialog box. vbValet Print checks the active document for .FRM and .BAS files. If none exist, it will tell you that an invalid .MAK file is the active document. In the unregistered version, a dialog box then appears telling you how many days are remaining in the evaluation period. The next dialog box offers the option of building a Table of Contents (TOC) and including header information. The next dialog box allows you to select the forms you wish to format into a document (on the following page). From this point on, the program takes over. You can watch its' progress in the status bar at the bottom of the W4W screen. Once you have installed the vbVPrint.Dot template into the default template directory in W4W using the vbVPrint.Doc that comes with the package, the vbValet Print item will show up in the Tools menu as the last item in the list. This opening dialog box lets you set the options. The default is NO Table of Contents and NO header information. If you choose not to include a TOC initially, you can with a little effort include one after the document is finished. You do this by specifying the styles that W4W should use to build the TOC. SAMPLE OUTPUT FOLLOWS Use this dialog box to select the forms you wish to be formatted. 1. Select the form and click Copy. 2. Copy All copies all the form names from left to right. 3. To Delete a form from the list box on the right; select it and click the Delete button. 4. Delete All deletes all the form names from the box on the right. 5. Click OK when you are done. 6. Cancel takes you out of vbValet Print. Double click on any page num-ber to "jump" to the item listed. Style: vbVTitleNP (If you are inserting a Table of Contents manually, this is the heading style you use for the form entry in the Table of contents.) This a sample of "header" infor-mation. Note, the highlighted com-ment lines and the style of the form name. You can change the "style" to suit your needs. HOW? Style: vbVComment Find the "style". Click on the item. E.g. clicking on ABOUT.FRM tells you that the style is vbVTitleNP. You can modify the style using the Format/Style menu items. And apply the change to the entire document. Don't change the style name! Style: Normal Style: vbVSub (If you are inserting a Table of Contents manually, this is the heading style you use for the Sub or Function entry in the Table of contents.) Style: vbVEndSub If you choose the Add PageBreak [vbV] option from the File menu, each form will begin on a new page. In a very large document it will take time to repage the document. The default is NO manual page breaks. Once you have added manual page breaks, you can remove them with the Delete PageBreak [vbV] option. Delete PageBreak [vbV] Add PageBreak [vbV] Summary table is standard feature. The KrossReference[vbV] is an item on the Tools menu available after the W4W document has been created. The menu item vbValet Print is replaced by the menu item KrossReference[vbV] USE WITH CAUTION! If you have many Global Constants, Declares, or Type statements that are "obviously" unneeded, remove them from the original .BAS file before carrying out this operation. It takes time to build this index. 1. Select any or all of the items to cross reference. (You loose the option to choose Global Constants if you have not included a .BAS file in your document .) 2. Choose to see the page location of ALL the items or only those that are not referenced in your vbValet Print document. 3. OK gets you started. 4. Cancel aborts the cross reference operation. 5. You can run the Cross+Reference as many times as you like. For example, choose Global Constants and then redo with the Declare Subs etc., etc.. Use the Toolbar to bring up the Cross Reference Dialog box.  .A .A :yy    ** C ****(**8E#:%       -  C --(-0      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrsuvwxyz{|}~P:pl    :  X C XX(XKNO:i*"   f   fC (J      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnoqrstuvwxyz{|}~&: $5  b>  Iu >C IuIu(uI8":0  >  D: C D:D:(:D      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklpqrstuvwxyz{|}~&: $5Q  b>  Iu >C IuIu(uI8"_829313536F礙礙Ole PIC LMETA o)a( FQ E  t  --$>;j;|:}## tb^|nXA"9'+2+AXZZXJXb|n|niin|zxvt =sq o#m:j;j----x$:[ti^OHK$L3d5i?ABBBIIFW@W I3$/3d` ^  m D'$7gpj;EP[fh ba`^[[----8LHHA8+) tFsqPG4/!,006=>tVA3-##'(9C+s+u////13?AHH  ----`$.apu~ji@zz vg[PO   ----$ z+zgdgfQiIk::/Q.g-z+----$XWWI3**(#~utrx| )3AIS]-`K`[``]SIB3 +  !%<952>_v$x(k*Z#6*([; !**3IW----$KJ K K L L .J MG h: : # "  Q Y /  " # : : A G K &L HF : #    x l Q B A > F Z ]   / 6 2 2 &     # : J ----8.  f 4    ! $ 3% e% $ # > Y h p  k k N ,   p \ J = 6 4 3 9 J f p       ----$]  n W A 2 2 A A A A xA `A Z? K; =- 1* 3# 7 J i  & &    c M = 3 1 0 6 E F a    v i i v   8v 8i 8i v     ) * A B W Y k n u w x 0x   ----J8 * * !: #? #? : #    @ ? ? # * ' ' #   # ' ----z$;.@. 3 4 5 z d T N F K O \ x / 1 2 } i i (} )~ )~ H} Hi Gi }   /U==.@----E8pm&c6;TUYYTTJR]q$=#^z }usk\d)g nu{{upihzibpMuG{<...zuutupuix<xpfbahmm=AAQkoTHC==+4=ILRRRLH?* ----z$;00' |s}ljej}}jj}  \83 !4`0----8? : mv usr[suvfMK94/..46EG^~  / $+ MPWX'  (MM----$CxJ IEbr  {odZ77pyzNNBn8X-G$GXX^Y_nnbYXGGQXTnX]ac-)&EP862ginr wx----`$.~ys   }mgtaW^`aabP]L\LPahgZq>|}----68 QQHh42n2HQQPQ?H;2,+52@HLQP--5B(  ww--$>kic/K<-M^ `axmZv<|(69><Zx!Z~-{<y<-$-D0KcLLwiurolk----x$:X"4$j$$?-<@4@?-HVdrxc^[JkslxZ<88<TTE<I8J8a<`Z^x[XX----8LxkZWB<1" y;w^" m ]VSi{Rwobbg)i<HZZ_`-`s`kbeux3SW{3----`$.W>WK- * *:*d,-19FKScc_KsCz-, lj4q/25R@+  {gWI*G*D-CK?W>----$ ----$X@@-"')&2?KV"i-{:GKLK8K=Hg:-$ &27;54)cV }~@1  &0S  -@----$K 6 I i  L N r s ~z i _ K {H z6 h- U) O   c   r" B- - ; K M i y    > f   } p i h c a &c rh i p | c K < : 8 6----8.- - / y2 C< B N Z ` x x ! A w }   8 I [ _ h ix bg _Z RU NG 7< < 4 / - - 5 { y x ~ x x v v Ax dx p~ i 5 5----$] ^ ^ ] [x Zd Yd x y y y x x v q ^ uZ xQ }G B @ @ T T X< X W W V x u s { V V V Vi WX WX i u u ~i ~X ~X i    " / 9 < ? K X Z x z  ) L t ----J8 s s o li jK gI fI K e e K I I K i i a a i ----z$;   zxnfd dx||xZ<}z<Zdd6rx2r ----E8pJoJ<&  ---f7:8W4-"2BCSU_apy5<KR/P[JA<3! siw[YRV_ipqiybnYOW,Y biqxoiUhUghil|*~t fa$_<iJoJo'KcclfaQ-$/@DKKLD>2 ----z$;  yU:,"}'x2pBhqffx~~xZ<xne!!;?<BZGfHft~xx\MIEGU`yC ----8?,0,.o*"###yj ifefiZj8{yrqqy{.f24>2|vlbYT,nfhiy----$Cti Km6KivziK--.-'(t~odS\]v CO-6--Ki----`$.nn1Z*A"AABH!P7Z@\CjAy3z2z`yaZdZcC^<V ;55 >4$&'<AAZn----68 88B-q-888-mz-8--.QࡱCompObjy FZObjInfoContentsent qInternal WordArt What's coming next!PlaybillP 2xa( ࡱࡱ;   Oh+'0$ H l   D h!C:\WINWORD\TEMPLATE\VBVPRINT.DOT File Name  vbV Prin20("((K22 0(  ("K200&=1020( M00&`00& A@20(p2 0(9q#!(K20!0&A @ 0 0& A a`@ 20(PiA 00&A @ 00& Ya`00&qa`p2 0(`p A0 0&e20(@ s100&20(pA (K220(  00&p!A@ 20(p5A 2"K200&@Q! P20(  20(W00&p! 00&20(t 20(` P!000&1 20(y K2"00&1K20 0&10K220(  K2"20(R (20($Q(K20 0&!  K20 0&!  K220(t1` 0 0& K22 0(0! @K2"ࡱ;  vtrpnSummaryInformation   (  !"#$%&'()*+,-./056789:;<=>?@ABCDEFGHIJKLMNOPUVWXYZ[\]^_`abcdefghijklmnopvwxyz{|}~t vbV Print@l.@@JQ@dB)Microsoft Word 6.021ࡱ; "#*+,-.467IJyz12IJKM_`{| "# uDU]uDuDU]abcuDHU]abcuD. U]abc uDabuD"J#$01hwx (12KRSlstuTUmnvx}~78  V W  E ] y z    ? C uDC P)U^bcuD uDUcuD P'U^bcP( uDauDU]cO? @ b c  ! 0 1 U V   i j k l ,-?@STijklprstvwxy  79VWXghP'cP'P'bUbuDuDuDU]cUb b UuDP(C uDC P'U^bcMh &'()*,-;<^_hirsz{~M]yy6<buDP) uDP) JJUbcbcUbc U]abcuDRn1]bcKuDRn1U]cvK]bcuD]bccUGiqr|jyzQ^|}o s!!!!!!""gubbUbUbU^bU^U3$%&'(),.56IyN!"/0>Px 2StE#GE#PE#PE#PE#PE#PE#PE#2E#PE# E#PE#PE#PE#PE#PE#PE#PE#PE#PE#E#E#E#E#E#E#E#E#E#E#E#E#E#E#E#E#E#E#E#*tvw~>Tmvx/ E ] k  @  ! W m  / E#E#E#E#E#E#E#E#E#E#E#E#E#E#E#E#E#E#5E#E#E#E#E#E#E#E#E#E#E#E#E#E#E#E#,/ 0 9 : i k &,-9?@MSTbiE#E#E#E#E#E#E#66666666666666666666666666666666 l# l#'ijkmnopuvz{  789VWX6E#PE#PE#PE#PE#PE#0E#PE#E#PE#P` TT` TT` TT` TT` TT` TT` TT` TT` TTE# l E# l#&Xhijxyz*+,|}~KLM^` TT` TT` TT` TTE#PooooE#E#E#P""`% lE# l E#!^r\]CDwxy0XYy6#       v        h 4h.'DEVWp q !!!!f"g"""""V V  V$ E#P*K@Normala .@. Heading 1 < U]ck(@( Heading 3 <Uc"A@"Default Paragraph Font @ Header ! @ Footer !O!vbVIndexO1"vbVTitlec&O2& vbVHeading 1U]c"O1B" vbvHeading 2cObvbVSubUB@b Body TextxOrvbVDimbOQ vbVEndSubc4O4 vbVTitle2 &*'*(*)*/U]c$@$TOC 1 E# U] @Q TOC 2 E# & @&Index 18E#O vbVTitleNP * @*Index 26E#c& @&Index 3X8E#& @&Index 4  8E#&@&Index 5!8E#&@&Index 6"8E#&@&Index 7#x8E#&@&Index 8$@8E#&@&Index 9%8E#!@ Index Heading&Oq vbV1Globalb"O" vbVComment U]^bc)@ Page Numbers  )  ( $ 9 ] &)"""*"T x a il#? hgjklmnt/ iX^"opqrstuy1IKL_{k  2%D2%D2%D2%D2%D: 'JT^fl!! !,./01236I"#0 tTmvwi k p q r v w !SGw 9k/a%WK}As5TableOfContents _Toc290526895 _Toc290526896 _Toc290526897 _Toc290526898 _Toc290526899Bk_ABOUT Bk_FRMCALC Bk_FRMPRINT Bk_GRAFMDI Bk_GRAFMOD Bk_ITEMID Bk_COMMON Bk_ERRMOD Bk_FILEMSG Bk_GRAFCALC"0   - @ T  6-7 3 G \  vbV PrintC:\WINWORD\BOB\VBV\VBVSAMPL.DOC vbV PrintC:\WINWORD\BOB\VBV\VBVSAMPL.DOC vbV PrintC:\WINWORD\BOB\VBV\VBVSAMPL.DOC vbV PrintC:\WINWORD\BOB\VBV\VBVSAMPL.DOC vbV PrintC:\WINWORD\BOB\VBV\VBVSAMPL.DOC vbV PrintC:\WINWORD\BOB\VBV\VBVSAMPL.DOC vbV PrintC:\WINWORD\BOB\VBV\VBVSAMPL.DOC vbV PrintC:\WINWORD\BOB\VBV\VBVSAMPL.DOC vbV Print$C:\WINWORD\BOB\VBVSOURC\VBVSAMPL.DOC vbV Print"C:\WINWORD\BOB\VBVSOR12\SAMPLE.DOCAnalysis PageBreak YESNEIN@HP LaserJet 4P/4MPLPT1:HPPCL5EHP LaserJet 4P/4MP  D !@OX!HP LaserJet 4P/4MP  D !@OX!PTimes New Roman Symbol &ArialVPlaybillWingdings"hEsE&JQJQ!P C:\WINWORD\TEMPLATE\VBVPRINT.DOT File Name vbV Print vbV Printࡱ;  vtrpn