/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / GRIDTEST / GRIDTEST.FOR

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 23 cc 1f 00 0f 71 02 00 | 00 44 00 00 00 0b 04 00 |#....q..|.D......|
|00000010| 00 83 04 00 00 b0 13 00 | 00 8e 17 00 00 00 ff ff |........|........|
|00000020| 05 46 6f 72 6d 31 0d ff | 00 05 46 6f 72 6d 31 05 |.Form1..|..Form1.|
|00000030| 47 04 00 00 dc 05 00 00 | 38 13 00 00 f9 15 00 00 |G.......|8.......|
|00000040| 19 01 00 42 00 24 05 46 | 6f 72 6d 31 ff 01 35 00 |...B.$.F|orm1..5.|
|00000050| 00 00 78 00 00 00 78 00 | 00 00 57 12 00 00 57 03 |..x...x.|..W...W.|
|00000060| 00 00 02 ff ff 05 54 65 | 78 74 31 02 17 ff ff 04 |......Te|xt1.....|
|00000070| bf 04 54 06 57 12 57 03 | 0b 05 54 65 78 74 31 12 |..T.W.W.|..Text1.|
|00000080| 01 00 ff 03 38 00 00 00 | c0 03 00 00 38 04 00 00 |....8...|....8...|
|00000090| bf 04 00 00 af 05 00 00 | 07 ff ff 06 46 72 61 6d |........|....Fram|
|000000a0| 65 32 03 ff 00 09 43 6f | 6c 20 41 6c 69 67 6e 05 |e2....Co|l Align.|
|000000b0| 07 08 14 0a bf 04 af 05 | 12 02 00 ff 01 32 00 00 |........|.....2..|
|000000c0| 00 78 00 00 00 68 01 00 | 00 df 02 00 00 ff 00 00 |.x...h..|........|
|000000d0| 00 08 00 00 02 43 41 06 | ff 00 04 4c 65 66 74 02 |.....CA.|...Left.|
|000000e0| 00 00 05 7f 08 7c 0b df | 02 ff 00 12 03 00 ff 03 |.....|..|........|
|000000f0| 36 00 00 00 78 00 00 00 | d0 02 00 00 cf 03 00 00 |6...x...|........|
|00000100| ff 00 00 00 09 01 00 02 | 43 41 06 ff 00 06 43 65 |........|CA....Ce|
|00000110| 6e 74 65 72 02 01 00 05 | 7f 08 e4 0c cf 03 ff 00 |nter....|........|
|00000120| 12 04 00 17 00 ff 03 35 | 00 00 00 78 00 00 00 38 |.......5|...x...8|
|00000130| 04 00 00 57 03 00 00 ff | 00 00 00 0a 02 00 02 43 |...W....|.......C|
|00000140| 41 06 ff 00 05 52 69 67 | 68 74 02 02 00 05 7f 08 |A....Rig|ht......|
|00000150| 4c 0e 57 03 ff 00 12 05 | 00 17 00 ff 02 03 39 00 |L.W.....|......9.|
|00000160| 00 00 e8 08 00 00 38 04 | 00 00 cf 03 00 00 ff 00 |......8.|........|
|00000170| 00 00 0b ff ff 06 4c 61 | 62 65 6c 31 01 ff 00 0a |......La|bel1....|
|00000180| 43 6f 6c 20 57 69 64 74 | 68 3a 05 2f 0d 14 0a cf |Col Widt|h:./....|
|00000190| 03 ff 00 12 06 00 ff 03 | 30 00 00 00 e8 08 00 00 |........|0.......|
|000001a0| 28 05 00 00 8f 07 00 00 | 77 01 00 00 0c ff ff 02 |(.......|w.......|
|000001b0| 43 57 02 ff 04 2f 0d 04 | 0b 8f 07 77 01 0b 05 54 |CW.../..|...w...T|
|000001c0| 65 78 74 32 12 08 00 ff | 03 3a 00 00 00 e8 08 00 |ext2....|.:......|
|000001d0| 00 08 07 00 00 47 04 00 | 00 ff 00 00 00 0d ff ff |.....G..|........|
|000001e0| 06 4c 61 62 65 6c 32 01 | ff 00 0b 52 6f 77 20 48 |.Label2.|...Row H|
|000001f0| 65 69 67 68 74 3a 05 2f | 0d e4 0c 47 04 ff 00 12 |eight:./|...G....|
|00000200| 09 00 ff 03 30 00 00 00 | e8 08 00 00 f8 07 00 00 |....0...|........|
|00000210| 8f 07 00 00 77 01 00 00 | 0e ff ff 02 52 48 02 ff |....w...|....RH..|
|00000220| 04 2f 0d d4 0d 8f 07 77 | 01 0b 05 54 65 78 74 33 |./.....w|...Text3|
|00000230| 12 0f 00 ff 03 3f 00 00 | 00 78 00 00 00 50 0a 00 |.....?..|.x...P..|
|00000240| 00 57 12 00 00 4f 0b 00 | 00 01 ff ff 05 47 72 69 |.W...O..|.....Gri|
|00000250| 64 31 ff 04 47 72 69 64 | ff 04 bf 04 2c 10 57 12 |d1..Grid|....,.W.|
|00000260| 4f 0b 10 00 00 17 09 00 | 18 08 00 19 01 00 1a 01 |O.......|........|
|00000270| 00 1d 03 ff 02 04 9f 02 | 00 00 0d 0a 53 75 62 20 |........|....Sub |
|00000280| 54 65 78 74 31 5f 43 68 | 61 6e 67 65 20 28 29 0d |Text1_Ch|ange ().|
|00000290| 0a 47 72 69 64 31 2e 54 | 65 78 74 20 3d 20 54 65 |.Grid1.T|ext = Te|
|000002a0| 78 74 31 2e 54 65 78 74 | 0d 0a 45 6e 64 20 53 75 |xt1.Text|..End Su|
|000002b0| 62 0d 0a 0d 0a 53 75 62 | 20 46 6f 72 6d 5f 4c 6f |b....Sub| Form_Lo|
|000002c0| 61 64 20 28 29 0d 0a 46 | 6f 72 20 72 25 20 3d 20 |ad ()..F|or r% = |
|000002d0| 30 20 54 6f 20 47 72 69 | 64 31 2e 52 6f 77 73 20 |0 To Gri|d1.Rows |
|000002e0| 2d 20 31 0d 0a 20 20 20 | 20 47 72 69 64 31 2e 52 |- 1..   | Grid1.R|
|000002f0| 6f 77 20 3d 20 72 25 0d | 0a 20 20 20 20 46 6f 72 |ow = r%.|.    For|
|00000300| 20 43 25 20 3d 20 30 20 | 54 6f 20 47 72 69 64 31 | C% = 0 |To Grid1|
|00000310| 2e 43 6f 6c 73 20 2d 20 | 31 0d 0a 20 20 20 20 20 |.Cols - |1..     |
|00000320| 20 20 20 47 72 69 64 31 | 2e 43 6f 6c 20 3d 20 43 |   Grid1|.Col = C|
|00000330| 25 0d 0a 20 20 20 20 20 | 20 20 20 47 72 69 64 31 |%..     |   Grid1|
|00000340| 2e 54 65 78 74 20 3d 20 | 43 68 72 24 28 41 73 63 |.Text = |Chr$(Asc|
|00000350| 28 22 41 22 29 20 2b 20 | 72 25 20 2d 20 31 29 20 |("A") + |r% - 1) |
|00000360| 2b 20 53 74 72 24 28 43 | 25 29 0d 0a 20 20 20 20 |+ Str$(C|%)..    |
|00000370| 20 20 20 20 4e 65 78 74 | 0d 0a 20 20 20 20 4e 65 |    Next|..    Ne|
|00000380| 78 74 0d 0a 45 6e 64 20 | 53 75 62 0d 0a 0d 0a 53 |xt..End |Sub....S|
|00000390| 75 62 20 47 72 69 64 31 | 5f 53 65 6c 43 68 61 6e |ub Grid1|_SelChan|
|000003a0| 67 65 20 28 29 0d 0a 54 | 65 78 74 31 2e 54 65 78 |ge ()..T|ext1.Tex|
|000003b0| 74 20 3d 20 47 72 69 64 | 31 2e 54 65 78 74 0d 0a |t = Grid|1.Text..|
|000003c0| 52 48 2e 54 65 78 74 20 | 3d 20 53 74 72 24 28 47 |RH.Text |= Str$(G|
|000003d0| 72 69 64 31 2e 52 6f 77 | 48 65 69 67 68 74 29 0d |rid1.Row|Height).|
|000003e0| 0a 43 57 2e 54 65 78 74 | 20 3d 20 53 74 72 24 28 |.CW.Text| = Str$(|
|000003f0| 47 72 69 64 31 2e 43 6f | 6c 57 69 64 74 68 29 0d |Grid1.Co|lWidth).|
|00000400| 0a 45 6e 64 20 53 75 62 | 0d 0a 0d 0a 53 75 62 20 |.End Sub|....Sub |
|00000410| 52 41 5f 43 6c 69 63 6b | 20 28 49 6e 64 65 78 20 |RA_Click| (Index |
|00000420| 41 73 20 49 6e 74 65 67 | 65 72 29 0d 0a 47 72 69 |As Integ|er)..Gri|
|00000430| 64 31 2e 52 6f 77 41 6c | 69 67 6e 6d 65 6e 74 20 |d1.RowAl|ignment |
|00000440| 3d 20 49 6e 64 65 78 0d | 0a 45 6e 64 20 53 75 62 |= Index.|.End Sub|
|00000450| 0d 0a 0d 0a 53 75 62 20 | 43 41 5f 43 6c 69 63 6b |....Sub |CA_Click|
|00000460| 20 28 49 6e 64 65 78 20 | 41 73 20 49 6e 74 65 67 | (Index |As Integ|
|00000470| 65 72 29 0d 0a 47 72 69 | 64 31 2e 43 6f 6c 41 6c |er)..Gri|d1.ColAl|
|00000480| 69 67 6e 6d 65 6e 74 20 | 3d 20 49 6e 64 65 78 0d |ignment |= Index.|
|00000490| 0a 45 6e 64 20 53 75 62 | 0d 0a 0d 0a 53 75 62 20 |.End Sub|....Sub |
|000004a0| 43 57 5f 43 68 61 6e 67 | 65 20 28 29 0d 0a 47 72 |CW_Chang|e ()..Gr|
|000004b0| 69 64 31 2e 43 6f 6c 57 | 69 64 74 68 20 3d 20 56 |id1.ColW|idth = V|
|000004c0| 61 6c 28 43 57 2e 54 65 | 78 74 29 0d 0a 45 6e 64 |al(CW.Te|xt)..End|
|000004d0| 20 53 75 62 0d 0a 0d 0a | 53 75 62 20 52 48 5f 43 | Sub....|Sub RH_C|
|000004e0| 68 61 6e 67 65 20 28 29 | 0d 0a 47 72 69 64 31 2e |hange ()|..Grid1.|
|000004f0| 52 6f 77 48 65 69 67 68 | 74 20 3d 20 56 61 6c 28 |RowHeigh|t = Val(|
|00000500| 52 48 2e 54 65 78 74 29 | 0d 0a 45 6e 64 20 53 75 |RH.Text)|..End Su|
|00000510| 62 0d 0a 0d 0a          |                         |b....   |        |
+--------+-------------------------+-------------------------+--------+--------+