/ Informática Multimedia: Special Programming / INFPROG.iso / vb / _allsubs.sdp

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 53 53 f0 00 a3 00 00 00 | 00 00 02 00 26 00 63 40 |SS......|....&.c@|
|00000010| 53 4d 5f 43 58 53 43 52 | 45 45 4e 7e 5c 56 42 5c |SM_CXSCR|EEN~\VB\|
|00000020| 48 45 52 52 41 5c 31 5c | 53 44 53 41 4d 50 4c 45 |HERRA\1\|SDSAMPLE|
|00000030| 2e 53 55 42 15 00 43 6f | 6e 73 74 20 53 4d 5f 43 |.SUB..Co|nst SM_C|
|00000040| 58 53 43 52 45 45 4e 20 | 3d 20 30 ff ff ff 0f f0 |XSCREEN |= 0.....|
|00000050| ff f0 ff 0f ff ff f0 f0 | ff ff 0f 0f ff ff ff 0f |........|........|
|00000060| ff ff f0 ff ff ff ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 28 00 00 00 10 00 00 00 | 0a 00 00 00 01 00 04 00 |(.......|........|
|00000080| 00 00 00 00 50 00 00 00 | 00 00 00 00 00 00 00 00 |....P...|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 80 00 |........|........|
|000000a0| 00 80 00 00 00 80 80 00 | 80 00 00 00 80 00 80 00 |........|........|
|000000b0| 80 80 00 00 80 80 80 00 | c0 c0 c0 00 00 00 ff 00 |........|........|
|000000c0| 00 ff 00 00 00 ff ff 00 | ff 00 00 00 ff 00 ff 00 |........|........|
|000000d0| ff ff 00 00 ff ff ff 00 | ff f0 00 00 00 00 00 00 |........|........|
|000000e0| ff 0f ff 0e fe fe fe e0 | f0 ff ff 0f e0 00 45 45 |........|......EE|
|000000f0| 53 53 fd 00 00 00 00 00 | 00 00 04 00 2c 00 64 40 |SS......|....,.d@|
|00000100| 47 45 54 53 59 53 54 45 | 4d 4d 45 54 52 49 43 53 |GETSYSTE|MMETRICS|
|00000110| 25 7e 5c 56 42 5c 48 45 | 52 52 41 5c 31 5c 53 44 |%~\VB\HE|RRA\1\SD|
|00000120| 53 41 4d 50 4c 45 2e 53 | 55 42 51 00 44 65 63 6c |SAMPLE.S|UBQ.Decl|
|00000130| 61 72 65 20 46 75 6e 63 | 74 69 6f 6e 20 47 65 74 |are Func|tion Get|
|00000140| 53 79 73 74 65 6d 4d 65 | 74 72 69 63 73 20 4c 69 |SystemMe|trics Li|
|00000150| 62 20 22 55 73 65 72 22 | 20 28 42 79 56 61 6c 20 |b "User"| (ByVal |
|00000160| 6e 49 6e 64 65 78 20 41 | 73 20 49 6e 74 65 67 65 |nIndex A|s Intege|
|00000170| 72 29 20 41 73 20 49 6e | 74 65 67 65 72 3e 00 27 |r) As In|teger>.'|
|00000180| 27 20 20 41 50 49 20 63 | 61 6c 6c 20 77 6f 72 6b |'  API c|all work|
|00000190| 73 20 77 69 74 68 20 57 | 69 6e 20 33 2e 30 20 70 |s with W|in 3.0 p|
|000001a0| 72 6f 76 69 64 65 64 20 | 6e 49 6e 64 65 78 20 3c |rovided |nIndex <|
|000001b0| 3d 20 33 35 28 64 65 63 | 69 6d 61 6c 29 2c 00 27 |= 35(dec|imal),.'|
|000001c0| 27 20 20 43 6f 6e 73 74 | 61 6e 74 73 20 64 65 63 |'  Const|ants dec|
|000001d0| 6c 61 72 65 64 20 77 69 | 74 68 20 74 68 65 20 73 |lared wi|th the s|
|000001e0| 74 79 6c 65 20 53 4d 5f | 2e 2e 2e 45 45 53 53 4d |tyle SM_|...EESSM|
|000001f0| 00 00 00 00 00 00 00 02 | 00 26 00 63 40 53 4d 5f |........|.&.c@SM_|
|00000200| 43 59 53 43 52 45 45 4e | 7e 5c 56 42 5c 48 45 52 |CYSCREEN|~\VB\HER|
|00000210| 52 41 5c 31 5c 53 44 53 | 41 4d 50 4c 45 2e 53 55 |RA\1\SDS|AMPLE.SU|
|00000220| 42 15 00 43 6f 6e 73 74 | 20 53 4d 5f 43 59 53 43 |B..Const| SM_CYSC|
|00000230| 52 45 45 4e 20 3d 20 31 | 45 45 53 53 85 00 00 00 |REEN = 1|EESS....|
|00000240| 00 00 00 00 02 00 27 00 | 63 40 53 4d 5f 43 59 43 |......'.|c@SM_CYC|
|00000250| 41 50 54 49 4f 4e 7e 5c | 56 42 5c 48 45 52 52 41 |APTION~\|VB\HERRA|
|00000260| 5c 31 5c 53 44 53 41 4d | 50 4c 45 2e 53 55 42 4c |\1\SDSAM|PLE.SUBL|
|00000270| 00 43 6f 6e 73 74 20 53 | 4d 5f 43 59 43 41 50 54 |.Const S|M_CYCAPT|
|00000280| 49 4f 4e 20 3d 20 34 20 | 20 20 20 20 20 27 20 70 |ION = 4 |     ' p|
|00000290| 69 78 65 6c 73 20 68 65 | 69 67 68 74 20 6f 66 20 |ixels he|ight of |
|000002a0| 61 20 63 61 70 74 69 6f | 6e 20 62 61 72 20 28 61 |a captio|n bar (a|
|000002b0| 6c 73 6f 20 6d 65 6e 75 | 20 62 61 72 29 45 45 53 |lso menu| bar)EES|
|000002c0| 53 90 00 00 00 00 00 00 | 00 02 00 26 00 63 40 53 |S.......|...&.c@S|
|000002d0| 4d 5f 43 58 42 4f 52 44 | 45 52 7e 5c 56 42 5c 48 |M_CXBORD|ER~\VB\H|
|000002e0| 45 52 52 41 5c 31 5c 53 | 44 53 41 4d 50 4c 45 2e |ERRA\1\S|DSAMPLE.|
|000002f0| 53 55 42 58 00 43 6f 6e | 73 74 20 53 4d 5f 43 58 |SUBX.Con|st SM_CX|
|00000300| 42 4f 52 44 45 52 20 3d | 20 35 20 20 20 20 20 20 |BORDER =| 5      |
|00000310| 20 27 20 70 69 78 65 6c | 73 20 77 69 64 74 68 20 | ' pixel|s width |
|00000320| 6f 66 20 61 20 66 72 61 | 6d 65 20 62 6f 72 64 65 |of a fra|me borde|
|00000330| 72 20 28 74 65 63 68 6e | 69 63 61 6c 6c 79 20 6e |r (techn|ically n|
|00000340| 6f 6e 2d 73 69 7a 65 61 | 62 6c 65 21 29 45 45 53 |on-sizea|ble!)EES|
|00000350| 53 91 00 00 00 00 00 00 | 00 02 00 26 00 63 40 53 |S.......|...&.c@S|
|00000360| 4d 5f 43 59 42 4f 52 44 | 45 52 7e 5c 56 42 5c 48 |M_CYBORD|ER~\VB\H|
|00000370| 45 52 52 41 5c 31 5c 53 | 44 53 41 4d 50 4c 45 2e |ERRA\1\S|DSAMPLE.|
|00000380| 53 55 42 59 00 43 6f 6e | 73 74 20 53 4d 5f 43 59 |SUBY.Con|st SM_CY|
|00000390| 42 4f 52 44 45 52 20 3d | 20 36 20 20 20 20 20 20 |BORDER =| 6      |
|000003a0| 20 27 20 70 69 78 65 6c | 73 20 68 65 69 67 68 74 | ' pixel|s height|
|000003b0| 20 6f 66 20 61 20 66 72 | 61 6d 65 20 62 6f 72 64 | of a fr|ame bord|
|000003c0| 65 72 20 28 74 65 63 68 | 6e 69 63 61 6c 6c 79 20 |er (tech|nically |
|000003d0| 6e 6f 6e 2d 73 69 7a 65 | 61 62 6c 65 21 29 45 45 |non-size|able!)EE|
|000003e0| 53 53 4a 00 00 00 00 00 | 00 00 02 00 24 00 63 40 |SSJ.....|....$.c@|
|000003f0| 53 4d 5f 43 59 4d 45 4e | 55 7e 5c 56 42 5c 48 45 |SM_CYMEN|U~\VB\HE|
|00000400| 52 52 41 5c 31 5c 53 44 | 53 41 4d 50 4c 45 2e 53 |RRA\1\SD|SAMPLE.S|
|00000410| 55 42 14 00 43 6f 6e 73 | 74 20 53 4d 5f 43 59 4d |UB..Cons|t SM_CYM|
|00000420| 45 4e 55 20 3d 20 31 35 | 45 45 53 53 56 00 00 00 |ENU = 15|EESSV...|
|00000430| 00 00 00 00 02 00 2a 00 | 63 40 53 4d 5f 43 58 46 |......*.|c@SM_CXF|
|00000440| 55 4c 4c 53 43 52 45 45 | 4e 7e 5c 56 42 5c 48 45 |ULLSCREE|N~\VB\HE|
|00000450| 52 52 41 5c 31 5c 53 44 | 53 41 4d 50 4c 45 2e 53 |RRA\1\SD|SAMPLE.S|
|00000460| 55 42 1a 00 43 6f 6e 73 | 74 20 53 4d 5f 43 58 46 |UB..Cons|t SM_CXF|
|00000470| 55 4c 4c 53 43 52 45 45 | 4e 20 3d 20 31 36 45 45 |ULLSCREE|N = 16EE|
|00000480| 53 53 56 00 00 00 00 00 | 00 00 02 00 2a 00 63 40 |SSV.....|....*.c@|
|00000490| 53 4d 5f 43 59 46 55 4c | 4c 53 43 52 45 45 4e 7e |SM_CYFUL|LSCREEN~|
|000004a0| 5c 56 42 5c 48 45 52 52 | 41 5c 31 5c 53 44 53 41 |\VB\HERR|A\1\SDSA|
|000004b0| 4d 50 4c 45 2e 53 55 42 | 1a 00 43 6f 6e 73 74 20 |MPLE.SUB|..Const |
|000004c0| 53 4d 5f 43 59 46 55 4c | 4c 53 43 52 45 45 4e 20 |SM_CYFUL|LSCREEN |
|000004d0| 3d 20 31 37 45 45 53 53 | 4c 00 00 00 00 00 00 00 |= 17EESS|L.......|
|000004e0| 02 00 25 00 63 40 53 4d | 5f 43 58 46 52 41 4d 45 |..%.c@SM|_CXFRAME|
|000004f0| 7e 5c 56 42 5c 48 45 52 | 52 41 5c 31 5c 53 44 53 |~\VB\HER|RA\1\SDS|
|00000500| 41 4d 50 4c 45 2e 53 55 | 42 15 00 43 6f 6e 73 74 |AMPLE.SU|B..Const|
|00000510| 20 53 4d 5f 43 58 46 52 | 41 4d 45 20 3d 20 33 32 | SM_CXFR|AME = 32|
|00000520| 45 45 53 53 4c 00 00 00 | 00 00 00 00 02 00 25 00 |EESSL...|......%.|
|00000530| 63 40 53 4d 5f 43 59 46 | 52 41 4d 45 7e 5c 56 42 |c@SM_CYF|RAME~\VB|
|00000540| 5c 48 45 52 52 41 5c 31 | 5c 53 44 53 41 4d 50 4c |\HERRA\1|\SDSAMPL|
|00000550| 45 2e 53 55 42 15 00 43 | 6f 6e 73 74 20 53 4d 5f |E.SUB..C|onst SM_|
|00000560| 43 59 46 52 41 4d 45 20 | 3d 20 33 33 45 45 53 53 |CYFRAME |= 33EESS|
|00000570| c8 01 00 00 00 00 00 00 | 0a 00 33 00 4d 40 5c 56 |........|..3.M@\V|
|00000580| 42 5c 48 45 52 52 41 5c | 31 5c 53 44 53 41 4d 50 |B\HERRA\|1\SDSAMP|
|00000590| 4c 45 2e 53 55 42 7e 5c | 56 42 5c 48 45 52 52 41 |LE.SUB~\|VB\HERRA|
|000005a0| 5c 31 5c 53 44 53 41 4d | 50 4c 45 2e 53 55 42 39 |\1\SDSAM|PLE.SUB9|
|000005b0| 00 27 27 20 20 54 68 69 | 73 20 6d 6f 64 75 6c 65 |.''  Thi|s module|
|000005c0| 20 64 65 61 6c 73 20 77 | 69 74 68 20 64 69 73 63 | deals w|ith disc|
|000005d0| 6f 76 65 72 69 6e 67 20 | 68 6f 77 20 6d 75 63 68 |overing |how much|
|000005e0| 20 6f 66 20 61 20 66 6f | 72 6d 1e 00 27 27 20 20 | of a fo|rm..''  |
|000005f0| 67 65 74 73 20 6c 6f 73 | 74 20 77 69 74 68 20 74 |gets los|t with t|
|00000600| 68 65 20 62 6f 72 64 65 | 72 2e 35 00 27 27 20 20 |he borde|r.5.''  |
|00000610| 20 20 20 20 2a 2a 2a 2a | 20 4e 42 20 45 73 73 65 |    ****| NB Esse|
|00000620| 6e 74 69 61 6c 20 66 6f | 72 20 61 6c 6c 20 56 42 |ntial fo|r all VB|
|00000630| 20 70 72 6f 67 72 61 6d | 6d 65 72 73 20 2a 2a 2a | program|mers ***|
|00000640| 2a 25 00 27 27 20 20 57 | 72 69 74 74 65 6e 20 62 |*%.''  W|ritten b|
|00000650| 79 20 50 65 74 65 72 20 | 46 6f 78 2e 20 20 33 20 |y Peter |Fox.  3 |
|00000660| 46 65 62 20 31 39 39 33 | 33 00 27 27 20 20 20 20 |Feb 1993|3.''    |
|00000670| 20 20 32 20 54 65 65 73 | 20 43 6c 6f 73 65 2c 20 |  2 Tees| Close, |
|00000680| 57 69 74 68 61 6d 2c 20 | 45 73 73 65 78 20 43 4d |Witham, |Essex CM|
|00000690| 38 20 31 4c 47 2c 45 6e | 67 6c 61 6e 64 22 00 27 |8 1LG,En|gland".'|
|000006a0| 27 20 20 20 20 20 20 44 | 6f 6d 65 73 74 69 63 20 |'      D|omestic |
|000006b0| 74 65 6c 3a 20 20 30 33 | 37 36 20 35 31 37 32 30 |tel:  03|76 51720|
|000006c0| 36 22 00 27 27 20 20 20 | 20 20 20 49 6e 74 6e 6c |6".''   |   Intnl|
|000006d0| 20 74 65 6c 3a 20 20 2b | 34 34 20 33 37 36 20 35 | tel:  +|44 376 5|
|000006e0| 31 37 32 30 36 25 00 27 | 27 20 20 20 20 20 20 28 |17206%.'|'      (|
|000006f0| 43 6f 6d 70 75 73 65 72 | 76 65 20 49 44 3a 20 20 |Compuser|ve ID:  |
|00000700| 31 30 30 31 31 36 2c 31 | 30 33 31 29 26 00 27 27 |100116,1|031)&.''|
|00000710| 20 20 4d 61 6b 65 20 74 | 68 65 20 62 65 73 74 20 |  Make t|he best |
|00000720| 75 73 65 20 6f 66 20 74 | 68 65 6d 20 79 6f 75 20 |use of t|hem you |
|00000730| 63 61 6e 2e 45 45 53 53 | 47 01 00 00 00 00 00 00 |can.EESS|G.......|
|00000740| 06 00 32 00 50 40 4c 4f | 53 54 46 52 41 4d 45 48 |..2.P@LO|STFRAMEH|
|00000750| 45 49 47 48 54 49 4e 54 | 57 49 50 53 25 7e 5c 56 |EIGHTINT|WIPS%~\V|
|00000760| 42 5c 48 45 52 52 41 5c | 31 5c 53 44 53 41 4d 50 |B\HERRA\|1\SDSAMP|
|00000770| 4c 45 2e 53 55 42 2c 00 | 46 75 6e 63 74 69 6f 6e |LE.SUB,.|Function|
|00000780| 20 6c 6f 73 74 66 72 61 | 6d 65 68 65 69 67 68 74 | lostfra|meheight|
|00000790| 69 6e 74 77 69 70 73 25 | 20 28 77 69 74 68 6d 65 |intwips%| (withme|
|000007a0| 6e 75 25 29 4e 00 27 27 | 20 20 52 65 74 75 72 6e |nu%)N.''|  Return|
|000007b0| 20 74 68 65 20 68 65 69 | 67 68 74 20 28 69 6e 20 | the hei|ght (in |
|000007c0| 74 77 69 70 73 29 20 74 | 68 61 74 20 69 73 20 6c |twips) t|hat is l|
|000007d0| 6f 73 74 20 62 65 63 61 | 75 73 65 20 74 68 65 20 |ost beca|use the |
|000007e0| 46 4f 52 4d 2e 48 45 49 | 47 48 54 20 70 72 6f 70 |FORM.HEI|GHT prop|
|000007f0| 65 72 74 79 22 00 27 27 | 20 20 69 6e 63 6c 75 64 |erty".''|  includ|
|00000800| 65 73 20 74 68 65 20 74 | 69 74 6c 65 20 61 6e 64 |es the t|itle and|
|00000810| 20 62 6f 72 64 65 72 73 | 4a 00 27 27 20 20 49 66 | borders|J.''  If|
|00000820| 20 57 49 54 48 4d 45 4e | 55 25 20 69 73 20 74 72 | WITHMEN|U% is tr|
|00000830| 75 65 20 74 68 65 6e 20 | 77 65 20 68 61 76 65 20 |ue then |we have |
|00000840| 74 6f 20 69 6e 63 6c 75 | 65 20 61 20 28 73 69 6e |to inclu|e a (sin|
|00000850| 67 6c 65 29 20 6d 65 6e | 75 20 62 61 72 20 69 6e |gle) men|u bar in|
|00000860| 20 74 68 65 15 00 27 27 | 20 20 76 61 6c 75 65 20 | the..''|  value |
|00000870| 74 6f 20 62 65 20 6c 6f | 73 74 2e 45 45 53 53 cd |to be lo|st.EESS.|
|00000880| 00 00 00 00 00 00 00 04 | 00 31 00 50 40 4c 4f 53 |........|.1.P@LOS|
|00000890| 54 46 52 41 4d 45 57 49 | 44 54 48 49 4e 54 57 49 |TFRAMEWI|DTHINTWI|
|000008a0| 50 53 25 7e 5c 56 42 5c | 48 45 52 52 41 5c 31 5c |PS%~\VB\|HERRA\1\|
|000008b0| 53 44 53 41 4d 50 4c 45 | 2e 53 55 42 22 00 46 75 |SDSAMPLE|.SUB".Fu|
|000008c0| 6e 63 74 69 6f 6e 20 4c | 6f 73 74 46 72 61 6d 65 |nction L|ostFrame|
|000008d0| 77 69 64 74 68 69 6e 74 | 77 69 70 73 25 20 28 29 |widthint|wips% ()|
|000008e0| 43 00 27 27 20 20 52 65 | 74 75 72 6e 20 74 68 65 |C.''  Re|turn the|
|000008f0| 20 77 69 64 74 68 20 28 | 69 6e 20 74 77 69 70 73 | width (|in twips|
|00000900| 29 20 74 68 61 74 20 69 | 73 20 6c 6f 73 74 20 62 |) that i|s lost b|
|00000910| 65 63 61 75 73 65 20 74 | 68 65 20 46 4f 52 4d 2e |ecause t|he FORM.|
|00000920| 57 49 44 54 48 21 00 27 | 27 20 20 70 72 6f 70 65 |WIDTH!.'|'  prope|
|00000930| 72 74 79 20 69 6e 63 6c | 75 64 65 73 20 74 68 65 |rty incl|udes the|
|00000940| 20 62 6f 72 64 65 72 73 | 45 45                   | borders|EE      |
+--------+-------------------------+-------------------------+--------+--------+