/ Power-Programmierung / CD1.mdf / basic / library / vb / dragdrop / dragdrop.bas

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| fc 01 02 00 0e 00 1e 01 | 1e 01 08 00 01 02 03 04 |........|........|
|00000010| 06 05 08 0a 10 11 26 00 | 1e 02 00 00 1a 00 00 00 |......&.|........|
|00000020| 5a 00 64 00 2c 01 00 00 | 19 01 00 00 7b 00 12 02 |Z.d.,...|....{...|
|00000030| fb 00 80 01 00 00 c8 00 | d2 00 0b 01 00 00 51 01 |........|......Q.|
|00000040| 00 00 34 01 6c 00 a1 00 | 00 00 39 01 00 00 c3 00 |..4.l...|..9.....|
|00000050| 92 00 5f 00 89 00 e6 00 | 00 00 43 01 b4 01 00 00 |.._.....|..C.....|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 1e 02 00 00 00 00 00 01 | 61 00 00 00 01 7a b2 00 |........|a....z..|
|00000080| 00 04 4d 61 69 6e 6f 01 | 00 0b 77 61 69 74 6d 65 |..Maino.|..waitme|
|00000090| 73 73 61 67 65 a3 01 00 | 0a 47 65 74 4d 65 73 73 |ssage...|.GetMess|
|000000a0| 61 67 65 99 00 00 05 6c | 70 4d 73 67 c9 01 00 03 |age....l|pMsg....|
|000000b0| 6d 73 67 02 02 00 04 48 | 77 6e 64 ce 01 00 0d 77 |msg....H|wnd....w|
|000000c0| 4d 73 67 46 69 6c 74 65 | 72 4d 69 6e 8a 01 00 0d |MsgFilte|rMin....|
|000000d0| 77 4d 73 67 46 69 6c 74 | 65 72 4d 61 78 dd 00 00 |wMsgFilt|erMax...|
|000000e0| 01 78 f0 00 00 06 48 61 | 6e 64 6c 65 00 00 00 07 |.x....Ha|ndle....|
|000000f0| 6d 65 73 73 61 67 65 e5 | 01 00 05 46 6f 72 6d 31 |message.|...Form1|
|00000100| 00 00 00 06 6c 61 62 65 | 6c 31 00 00 00 07 63 61 |....labe|l1....ca|
|00000110| 70 74 69 6f 6e 00 00 00 | 0c 57 4d 5f 44 52 4f 50 |ption...|.WM_DROP|
|00000120| 46 49 4c 45 53 60 01 00 | 0a 4e 65 77 4d 65 73 73 |FILES`..|.NewMess|
|00000130| 61 67 65 00 00 00 0f 44 | 72 61 67 41 63 63 65 70 |age....D|ragAccep|
|00000140| 74 46 69 6c 65 73 00 00 | 00 04 54 72 75 65 00 00 |tFiles..|..True..|
|00000150| 00 01 52 00 00 00 06 41 | 63 63 65 70 74 be 01 00 |..R....A|ccept...|
|00000160| 0a 44 72 61 67 46 69 6e | 69 73 68 00 00 00 0b 50 |.DragFin|ish....P|
|00000170| 65 65 6b 4d 65 73 73 61 | 67 65 00 00 00 0b 48 43 |eekMessa|ge....HC|
|00000180| 5f 4e 4f 52 45 4d 4f 56 | 45 00 00 00 0d 44 72 61 |_NOREMOV|E....Dra|
|00000190| 67 51 75 65 72 79 46 69 | 6c 65 95 01 00 06 77 70 |gQueryFi|le....wp|
|000001a0| 61 72 61 6d d7 01 00 07 | 46 69 6c 65 6e 75 6d 00 |aram....|Filenum.|
|000001b0| 00 00 0a 4e 61 6d 65 4f | 66 46 69 6c 65 00 00 00 |...NameO|fFile...|
|000001c0| 0d 47 65 74 41 6e 6f 74 | 68 65 72 4f 6e 65 00 00 |.GetAnot|herOne..|
|000001d0| 00 06 6c 61 62 65 6c 32 | 00 00 00 07 43 6f 75 6e |..label2|....Coun|
|000001e0| 74 65 72 f4 01 00 01 79 | 00 00 00 05 6c 69 73 74 |ter....y|....list|
|000001f0| 31 00 00 00 0a 77 52 65 | 6d 6f 76 65 4d 73 67 00 |1....wRe|moveMsg.|
|00000200| 00 00 0b 50 4d 5f 4e 4f | 52 45 4d 4f 56 45 00 00 |...PM_NO|REMOVE..|
|00000210| 00 0a 50 4d 5f 4e 4f 59 | 49 45 4c 44 00 00 00 0c |..PM_NOY|IELD....|
|00000220| 44 72 61 67 44 72 6f 70 | 46 6f 72 6d 00 00 00 08 |DragDrop|Form....|
|00000230| 54 6f 74 66 69 6c 65 73 | 9e 00 00 00 18 00 00 00 |Totfiles|........|
|00000240| 19 00 ff ff c1 ff ff ff | 00 00 76 00 27 00 00 00 |........|..v.'...|
|00000250| 61 6c 6c 20 74 68 65 20 | 63 6f 64 65 20 69 73 20 |all the |code is |
|00000260| 69 6e 20 74 68 65 20 4d | 61 69 6e 28 29 20 72 6f |in the M|ain() ro|
|00000270| 75 74 69 6e 65 65 00 00 | 0a 00 34 00 ff ff 27 4d |utinee..|..4...'M|
|00000280| 61 69 6e 28 29 20 69 73 | 20 74 68 65 20 73 74 61 |ain() is| the sta|
|00000290| 72 74 75 70 20 72 6f 75 | 74 69 6e 65 20 66 6f 72 |rtup rou|tine for|
|000002a0| 20 74 68 65 20 44 72 61 | 67 27 4e 27 44 72 6f 70 | the Dra|g'N'Drop|
|000002b0| 00 00 76 00 17 00 00 00 | 50 61 75 6c 20 42 6f 6e |..v.....|Paul Bon|
|000002c0| 6e 65 72 20 20 37 36 30 | 30 30 2c 31 33 45 00 00 |ner  760|00,13E..|
|000002d0| 00 00 00 00 09 00 08 00 | ff ff 08 00 ff ff 42 00 |........|......B.|
|000002e0| 07 00 00 00 03 01 00 04 | 00 4d 61 69 6e 01 00 30 |........|.Main..0|
|000002f0| 7a 03 00 00 18 00 00 00 | 58 00 06 00 64 00 00 01 |z.......|X...d...|
|00000300| 00 00 00 00 e4 00 0c 00 | 12 02 00 00 e4 00 0c 00 |........|........|
|00000310| e5 01 00 00 e4 08 0c 00 | f4 01 00 00 0b 00 e5 01 |........|........|
|00000320| 0b 00 f4 01 f5 00 0c 00 | d7 01 76 00 21 00 29 00 |........|..v.!.).|
|00000330| 70 61 72 61 6d 65 74 65 | 72 73 20 66 6f 72 20 50 |paramete|rs for P|
|00000340| 65 65 6b 4d 65 73 73 61 | 67 65 20 63 61 6c 6c 6e |eekMessa|ge calln|
|00000350| 00 00 0b 00 02 02 65 00 | f2 00 1c 01 01 00 1e 00 |......e.|........|
|00000360| 78 00 00 00 0b 00 02 02 | 11 00 99 00 0c 00 c8 00 |x.......|........|
|00000370| 00 00 e4 04 f9 00 0c 00 | 8a 01 00 00 0b 00 c8 00 |........|........|
|00000380| 0b 00 2c 01 24 00 02 00 | 19 01 76 00 2e 00 20 00 |..,.$...|..v... .|
|00000390| 69 64 65 6e 74 69 66 79 | 20 66 6f 72 6d 20 61 73 |identify| form as|
|000003a0| 20 61 62 6c 65 20 74 6f | 20 61 63 63 65 70 74 20 | able to| accept |
|000003b0| 64 2f 64 20 6d 65 73 73 | 61 67 65 73 00 00 1b 01 |d/d mess|ages....|
|000003c0| 00 00 02 c0 31 00 ec 01 | 00 10 0b 00 0b 01 0b 00 |....1...|........|
|000003d0| c8 00 e5 00 33 02 e5 00 | 33 02 0b 00 d7 01 0e 00 |....3...|3.......|
|000003e0| 05 00 51 01 0c 00 c3 00 | 76 00 27 00 3e 00 64 65 |..Q.....|v.'.>.de|
|000003f0| 74 65 72 6d 69 6e 65 20 | 69 66 20 61 20 64 2f 64 |termine |if a d/d|
|00000400| 20 6d 65 73 73 61 67 65 | 20 69 73 20 77 61 69 74 | message| is wait|
|00000410| 69 6e 67 00 00 10 0b 00 | c3 00 e4 00 f1 00 49 00 |ing.....|......I.|
|00000420| 00 00 76 00 1c 00 14 00 | 69 66 20 61 20 64 64 20 |..v.....|if a dd |
|00000430| 6d 65 73 73 61 67 65 20 | 69 73 20 77 61 69 74 69 |message |is waiti|
|00000440| 6e 67 00 30 76 00 4e 00 | 0c 00 63 61 6c 6c 69 6e |ng.0v.N.|..callin|
|00000450| 67 20 44 72 61 67 51 75 | 65 72 79 46 69 6c 65 20 |g DragQu|eryFile |
|00000460| 77 69 74 68 20 61 20 2d | 31 20 76 61 6c 75 65 20 |with a -|1 value |
|00000470| 66 6f 72 20 46 69 6c 65 | 4e 75 6d 20 72 65 74 75 |for File|Num retu|
|00000480| 72 6e 73 20 23 20 6f 66 | 20 66 69 6c 65 73 20 64 |rns # of| files d|
|00000490| 72 6f 70 70 65 64 00 20 | 0b 00 0b 01 11 00 80 01 |ropped. |........|
|000004a0| 0b 00 8a 01 0b 00 95 01 | e5 00 80 00 0e 00 04 00 |........|........|
|000004b0| 6f 01 0c 00 c3 00 00 30 | 0b 00 be 01 e4 00 0b 00 |o......0|........|
|000004c0| c3 00 e4 04 f7 00 3e 00 | ff ff ff ff 76 00 18 00 |......>.|....v...|
|000004d0| 27 00 20 66 6f 72 20 65 | 61 63 68 20 66 69 6c 65 |'. for e|ach file|
|000004e0| 20 64 72 6f 70 70 65 64 | 00 50 76 00 49 00 14 00 | dropped|.Pv.I...|
|000004f0| 63 61 6c 6c 69 6e 67 20 | 77 69 74 68 20 61 20 76 |calling |with a v|
|00000500| 61 6c 75 65 20 67 72 65 | 61 74 65 72 20 74 68 61 |alue gre|ater tha|
|00000510| 6e 20 2d 31 20 72 65 74 | 75 72 6e 73 20 6e 61 6d |n -1 ret|urns nam|
|00000520| 65 20 6f 66 20 63 6f 72 | 72 65 73 70 6f 6e 64 69 |e of cor|respondi|
|00000530| 6e 67 20 66 69 6c 65 6f | 00 40 0b 00 0b 01 11 00 |ng fileo|.@......|
|00000540| 80 01 0b 00 be 01 0b 00 | 95 01 e5 00 80 00 0e 00 |........|........|
|00000550| 04 00 6f 01 0c 00 c9 01 | 00 50 76 00 18 00 14 00 |..o.....|.Pv.....|
|00000560| 61 64 64 20 4e 61 6d 65 | 4f 66 46 69 6c 65 20 74 |add Name|OfFile t|
|00000570| 6f 20 4c 69 73 74 00 40 | 0b 00 02 02 11 00 ce 01 |o List.@|........|
|00000580| 65 00 0b 00 95 01 f2 00 | 1c 01 02 00 04 00 78 00 |e.......|......x.|
|00000590| 00 30 0b 00 be 01 4e 00 | ff ff ff ff 76 00 0f 00 |.0....N.|....v...|
|000005a0| 1c 00 67 65 74 20 6e 65 | 78 74 20 66 69 6c 65 78 |..get ne|xt filex|
|000005b0| 00 30 0b 00 12 02 0b 00 | c3 00 a3 00 0c 00 12 02 |.0......|........|
|000005c0| 00 30 0b 00 c3 00 d5 00 | ed 00 12 00 0e 00 0e 00 |.0......|........|
|000005d0| 20 66 69 6c 65 73 20 61 | 64 64 65 64 2e 20 a3 00 | files a|dded. ..|
|000005e0| 0b 00 12 02 d5 00 a3 00 | ed 00 13 00 0f 00 0f 00 |........|........|
|000005f0| 20 66 69 6c 65 73 20 69 | 6e 20 6c 69 73 74 2e 22 | files i|n list."|
|00000600| a3 00 0b 00 02 02 11 00 | b4 01 12 00 f0 00 00 20 |........|....... |
|00000610| 76 00 35 00 08 00 61 6c | 77 61 79 73 20 63 61 6c |v.5...al|ways cal|
|00000620| 6c 20 64 72 61 67 66 69 | 6e 69 73 68 20 74 6f 20 |l dragfi|nish to |
|00000630| 72 65 6c 65 61 73 65 20 | 64 2f 64 20 6d 65 6d 6f |release |d/d memo|
|00000640| 72 79 20 62 75 66 66 65 | 72 66 00 10 0b 00 0b 01 |ry buffe|rf......|
|00000650| 11 00 80 01 24 00 01 00 | 43 01 00 10 38 00 00 00 |....$...|C...8...|
|00000660| 4a 00 7a 00 00 00 39 00 | 09 00 08 00 ff ff ff ff |J.z...9.|........|
|00000670| ff ff ff ff 1b 00 00 00 | 03 00 fd                |........|...     |
+--------+-------------------------+-------------------------+--------+--------+