路網(wǎng)層次表示VB演示

1、Private Sub Form_Click()ScaleWidth = 100ScaleHeight = 100DrawWidth = 3Line (20, 10)-(80, 80), vbCyan, BDrawWidth = 2Line (25, 10)-(30, 23), vbGreenLine (33, 44)-(30, 23), vbGreenLine (33, 44)-(36, 66), vbGreenLine (36, 66)-(38, 80), vbGreenLine (60, 10)-(63, 17), vbGreenLine (68, 37)-(63, 17), vbGre

2、enLine (68, 37)-(73, 50), vbGreenLine (80, 77)-(73, 50), vbGreenLine (30, 23)-(48, 18), vbYellowLine (63, 17)-(48, 18), vbYellowLine (50, 39)-(48, 18), vbYellowLine (50, 39)-(57, 38), vbYellowLine (68, 37)-(57, 38), vbYellowLine (63, 17)-(48, 18), vbYellowLine (36, 66)-(58, 66), vbYellowLine (58, 66

3、)-(57, 38), vbYellowLine (58, 66)-(73, 50), vbYellowLine (58, 66)-(67, 80), vbYellowDrawWidth = 7Line (30, 23)-(30, 23), vbRedPrint "a2"Line (33, 44)-(33, 44), vbRedPrint "a3"Line (36, 66)-(36, 66), vbRedPrint "14"Line (48, 18)-(48, 18), vbRedPrint "a11"Line (

4、50, 39)-(50, 39), vbRedPrint "a12"Line (57, 38)-(57, 38), vbRedPrint "a13"Line (58, 66)-(58, 66), vbRedPrint "a14"Line (63, 17)-(63, 17), vbRedPrint "a7"Line (68, 37)-(68, 37), vbRedPrint "a8"Line (73, 50)-(73, 50), vbRedPrint "a9",Line (25

5、, 10)-(25, 10), vbRedPrint "a1"Line (60, 10)-(60, 10), vbRedPrint "a6"Line (38, 80)-(38, 80), vbRedPrint "a5"Line (67, 80)-(67, 80), vbRedPrint "a15"Line (80, 77)-(80, 77), vbRedPrint "a10"End SubPrivate Sub Form_Click()ScaleWidth = 100ScaleHeight =

6、100DrawWidth = 3Line (20, 10)-(80, 80), vbCyan, BDrawWidth = 2Line (30, 10)-(35, 40), vbGreenLine (38, 50)-(35, 40), vbGreenLine (38, 50)-(40, 66), vbGreenLine (20, 70)-(40, 66), vbGreenLine (63, 58)-(40, 66), vbGreenLine (63, 58)-(73, 53), vbGreenLine (70, 34)-(73, 53), vbGreenLine (70, 34)-(60, 10

7、), vbGreenLine (40, 10)-(45, 35), vbYellowLine (35, 40)-(45, 35), vbYellowLine (48, 45)-(45, 35), vbYellowLine (48, 45)-(40, 66), vbYellowLine (48, 45)-(60, 40), vbYellowLine (70, 34)-(60, 40), vbYellowLine (63, 58)-(60, 40), vbYellowLine (70, 34)-(80, 29), vbYellowDrawWidth = 7Line (35, 40)-(35, 40

8、), vbRedPrint "b4"Line (38, 50)-(38, 50), vbRedPrint "b3"Line (40, 66)-(40, 66), vbRedPrint "b2"Line (45, 35)-(45, 35), vbRedPrint "b11"Line (48, 45)-(48, 45), vbRedPrint "b10"Line (60, 40)-(60, 40), vbRedPrint "b13"Line (63, 58)-(63, 58),

9、vbRedPrint "b6"Line (70, 34)-(70, 34), vbRedPrint "b8"Line (73, 53)-(73, 53), vbRedPrint "b7"Line (20, 70)-(20, 70), vbRedPrint "b1"Line (30, 10)-(30, 10), vbRedPrint "b5"Line (40, 10)-(40, 10), vbRedPrint "b12"Line (60, 10)-(60, 10), vbRed

10、Print "b9"Line (80, 29)-(80, 29), vbRedPrint "b14"End SubPrivate Sub Form_Click()ScaleWidth = 100ScaleHeight = 100DrawWidth = 3Line (20, 10)-(80, 80), vbCyan, BDrawWidth = 2Line (20, 60)-(41, 53), vbGreenLine (53, 45)-(41, 53), vbGreenLine (53, 45)-(66, 43), vbGreenLine (63, 38)-

11、(55, 15), vbGreenLine (55, 15)-(51, 10), vbGreenLine (63, 38)-(66, 43), vbGreenLine (80, 80)-(66, 43), vbGreenLine (35, 33)-(55, 15), vbYellowLine (20, 45)-(35, 33), vbYellowLine (53, 45)-(35, 33), vbYellowLine (53, 45)-(55, 80), vbYellowLine (41, 53)-(30, 80), vbYellowLine (63, 38)-(80, 21), vbYell

12、owDrawWidth = 7Line (35, 33)-(35, 33), vbRedPrint "c10"Line (41, 53)-(41, 53), vbRedPrint "c2"Line (53, 45)-(53, 45), vbRedPrint "c3"Line (63, 38)-(63, 38), vbRedPrint "c5"Line (66, 43)-(66, 43), vbRedPrint "c4"Line (55, 15)-(55, 15), vbRedPrint &quo

13、t;c6"Line (20, 60)-(20, 60), vbRedPrint "c1"Line (20, 45)-(20, 45), vbRedPrint "c9"Line (30, 80)-(30, 80), vbRedPrint "c12"Line (55, 80)-(55, 80), vbRedPrint "c13"Line (80, 80)-(80, 80), vbRedPrint "c8"Line (51, 10)-(51, 10), vbRedPrint "c7

14、"Line (80, 21)-(80, 21), vbRedPrint "c11"End SubPrivate Sub Form_Click()ScaleWidth = 100ScaleHeight = 100DrawWidth = 3Line (20, 10)-(80, 80), vbCyan, BDrawWidth = 2Line (31, 10)-(35, 25), vbGreenLine (41, 45)-(35, 25), vbGreenLine (41, 45)-(45, 80), vbGreenLine (75, 10)-(75, 80), vbGr

15、eenLine (20, 33)-(35, 25), vbYellowLine (51, 21)-(35, 25), vbYellowLine (51, 21)-(61, 33), vbYellowLine (63, 43)-(61, 33), vbYellowLine (41, 45)-(63, 43), vbYellowLine (41, 45)-(20, 72), vbYellowLine (75, 40)-(63, 43), vbYellowDrawWidth = 7Line (35, 25)-(35, 25), vbRedPrint "d2"Line (51, 2

16、1)-(51, 21), vbRedPrint "d9"Line (61, 33)-(61, 33), vbRedPrint "d10"Line (63, 43)-(63, 43), vbRedPrint "d11"Line (75, 40)-(75, 40), vbRedPrint "d6"Line (41, 45)-(41, 45), vbRedPrint "d3"Line (31, 10)-(31, 10), vbRedPrint "d1"Line (75, 10)-(

17、75, 10), vbRedPrint "d5"Line (20, 33)-(20, 33), vbRedPrint "d8"Line (20, 72)-(20, 72), vbRedPrint "d12"Line (45, 80)-(45, 80), vbRedPrint "d4"Line (75, 80)-(75, 80), vbRedPrint "d7"End SubPrivate Sub Form_Click()ScaleWidth = 100ScaleHeight = 100DrawW

18、idth = 3Line (20, 10)-(80, 80), vbCyan, BDrawWidth = 2Line (28, 10)-(33, 29), vbGreenLine (37, 56)-(33, 29), vbGreenLine (37, 56)-(41, 73), vbGreenLine (44, 80)-(41, 73), vbGreenLine (72, 10)-(75, 21), vbGreenLine (73, 67)-(75, 21), vbGreenLine (73, 67)-(76, 80), vbGreenLine (33, 29)-(41, 21), vbYel

19、lowLine (51, 10)-(41, 21), vbYellowLine (44, 39)-(41, 21), vbYellowLine (44, 39)-(51, 37), vbYellowLine (75, 21)-(51, 37), vbYellowLine (55, 70)-(51, 37), vbYellowLine (55, 70)-(73, 67), vbYellowLine (55, 70)-(41, 73), vbYellowLine (20, 66)-(37, 56), vbYellowDrawWidth = 7Line (33, 29)-(33, 29), vbRe

20、dPrint "e2"Line (37, 56)-(37, 56), vbRedPrint "e3"Line (41, 73)-(41, 73), vbRedPrint "e4"Line (41, 21)-(41, 21), vbRedPrint "e12"Line (44, 39)-(44, 39), vbRedPrint "e13"Line (51, 37)-(51, 37), vbRedPrint "e14"Line (55, 70)-(55, 70), vbRedPr

21、int "e15"Line (73, 67)-(73, 67), vbRedPrint "e8"Line (75, 21)-(75, 21), vbRedPrint "e7"Line (20, 66)-(20, 66), vbRedPrint "e10"Line (28, 10)-(28, 10), vbRedPrint "e1"Line (51, 10)-(51, 10), vbRedPrint "e11"Line (72, 10)-(72, 10), vbRedPrint

22、 "e6"Line (44, 80)-(44, 80), vbRedPrint "e5"Line (76, 80)-(76, 80), vbRedPrint "e9"End SubPrivate Sub Form_Click()ScaleWidth = 100ScaleHeight = 100DrawWidth = 3Line (20, 10)-(80, 80), vbCyan, BDrawWidth = 2Line (41, 10)-(45, 30), vbGreenLine (51, 40)-(45, 30), vbGreenLi

23、ne (51, 40)-(55, 63), vbGreenLine (58, 75)-(55, 63), vbGreenLine (58, 75)-(80, 80), vbGreenLine (20, 76)-(36, 71), vbGreenLine (58, 75)-(36, 71), vbGreenLine (31, 10)-(31, 30), vbYellowLine (31, 30)-(45, 30), vbYellowLine (51, 40)-(68, 43), vbYellowLine (76, 40)-(68, 43), vbYellowLine (76, 40)-(76,

24、10), vbYellowLine (68, 43)-(68, 63), vbYellowLine (55, 63)-(68, 63), vbYellowLine (20, 50)-(31, 30), vbYellowLine (36, 71)-(45, 30), vbYellowDrawWidth = 7Line (31, 30)-(31, 30), vbRedPrint "f14"Line (45, 30)-(45, 30), vbRedPrint "f5"Line (36, 71)-(36, 71), vbRedPrint "f7&quo

25、t;Line (51, 40)-(51, 40), vbRedPrint "f4"Line (55, 63)-(55, 63), vbRedPrint "f3"Line (58, 75)-(58, 75), vbRedPrint "f2"Line (68, 43)-(68, 43), vbRedPrint "f11"Line (68, 63)-(68, 63), vbRedPrint "f12"Line (76, 40)-(76, 40), vbRedPrint "f10"L

26、ine (20, 76)-(20, 76), vbRedPrint "f8"Line (20, 50)-(20, 50), vbRedPrint "f15"Line (31, 10)-(31, 10), vbRedPrint "f13"Line (41, 10)-(41, 10), vbRedPrint "f6"Line (76, 10)-(76, 10), vbRedPrint "f9"Line (80, 80)-(80, 80), vbRedPrint "f1"End S

27、ubPrivate Sub Form_Click()ScaleWidth = 100ScaleHeight = 100DrawWidth = 3Line (20, 10)-(80, 80), vbCyan, BDrawWidth = 2Line (33, 10)-(35, 28), vbGreenLine (37, 38)-(35, 28), vbGreenLine (37, 38)-(39, 68), vbGreenLine (43, 80)-(39, 68), vbGreenLine (45, 10)-(61, 28), vbGreenLine (67, 43)-(61, 28), vbG

28、reenLine (67, 43)-(80, 80), vbGreenLine (20, 40)-(37, 38), vbYellowLine (61, 28)-(45, 28), vbYellowLine (57, 63)-(39, 68), vbYellowLine (35, 28)-(45, 28), vbYellowLine (57, 63)-(67, 43), vbYellowLine (57, 63)-(61, 80), vbYellowLine (61, 28)-(80, 21), vbYellowDrawWidth = 7Line (35, 28)-(35, 28), vbRe

29、dPrint "g2"Line (61, 28)-(61, 28), vbRedPrint "g7"Line (37, 38)-(37, 38), vbRedPrint "g3"Line (39, 68)-(39, 68), vbRedPrint "g4"Line (57, 63)-(57, 63), vbRedPrint "g11"Line (20, 40)-(20, 40), vbRedPrint "g10"Line (33, 10)-(33, 10), vbRedPri

30、nt "g1"Line (45, 10)-(45, 10), vbRedPrint "g6"Line (43, 80)-(43, 80), vbRedPrint "g5"Line (61, 80)-(61, 80), vbRedPrint "g12"Line (80, 80)-(80, 80), vbRedPrint "g9"Line (80, 21)-(80, 21), vbRedPrint "g13"Line (67, 43)-(67, 43), vbRedPrint &

31、quot;g8"End SubPrivate Sub Form_Click()ScaleWidth = 100ScaleHeight = 100DrawWidth = 3Line (20, 10)-(80, 80), vbCyan, BDrawWidth = 2Line (20, 43)-(33, 40), vbGreenLine (45, 37)-(33, 40), vbGreenLine (45, 37)-(58, 32), vbGreenLine (75, 29)-(58, 32), vbGreenLine (75, 29)-(80, 27), vbGreenLine (20,

32、 80)-(33, 72), vbGreenLine (58, 60)-(33, 72), vbGreenLine (58, 60)-(80, 53), vbGreenLine (33, 40)-(33, 72), vbYellowLine (58, 60)-(58, 32), vbYellowLine (45, 37)-(45, 19), vbYellowLine (70, 15)-(45, 19), vbYellowLine (70, 15)-(63, 10), vbYellowLine (70, 15)-(75, 29), vbYellowDrawWidth = 7Line (33, 4

33、0)-(33, 40), vbRedPrint "h2"Line (33, 72)-(33, 72), vbRedPrint "h8"Line (45, 37)-(45, 37), vbRedPrint "h3"Line (45, 19)-(45, 19), vbRedPrint "h11"Line (70, 15)-(70, 15), vbRedPrint "h12"Line (58, 32)-(58, 32), vbRedPrint "h4"Line (58, 60)-(

34、58, 60), vbRedPrint "h9"Line (75, 29)-(75, 29), vbRedPrint "h5"Line (20, 43)-(20, 43), vbRedPrint "h1"Line (20, 80)-(20, 80), vbRedPrint "h7"Line (63, 10)-(63, 10), vbRedPrint "h13"Line (80, 27)-(80, 27), vbRedPrint "h6"Line (80, 53)-(80, 5

35、3), vbRedPrint "h10"End SubPrivate Sub Form_Click()ScaleWidth = 100ScaleHeight = 100DrawWidth = 3Line (20, 10)-(80, 80), vbCyan, BDrawWidth = 2Line (20, 77)-(35, 70), vbGreenLine (35, 70)-(45, 66), vbGreenLine (57, 60)-(45, 66), vbGreenLine (70, 58)-(57, 60), vbGreenLine (70, 58)-(80, 53),

36、 vbGreenLine (50, 38)-(37, 43), vbGreenLine (20, 35)-(37, 43), vbGreenLine (66, 38)-(50, 38), vbGreenLine (66, 38)-(80, 28), vbGreenLine (25, 10)-(32, 22), vbYellowLine (37, 43)-(32, 22), vbYellowLine (37, 43)-(35, 70), vbYellowLine (66, 38)-(70, 58), vbYellowLine (50, 21)-(32, 22), vbYellowLine (50

37、, 10)-(50, 38), vbYellowLine (57, 60)-(50, 38), vbYellowDrawWidth = 7Line (32, 22)-(32, 22), vbRedPrint "i12"Line (37, 43)-(37, 43), vbRedPrint "i2"Line (35, 70)-(35, 70), vbRedPrint "i7"Line (50, 38)-(50, 38), vbRedPrint "i3"Line (66, 38)-(66, 38), vbRedPrint

38、 "i4"Line (70, 58)-(70, 58), vbRedPrint "i9"Line (57, 60)-(57, 60), vbRedPrint "i8"Line (50, 21)-(50, 21), vbRedPrint "i14"Line (20, 35)-(20, 35), vbRedPrint "i1"Line (20, 77)-(20, 77), vbRedPrint "i6"Line (25, 10)-(25, 10), vbRedPrint &quo

39、t;i11"Line (50, 10)-(50, 10), vbRedPrint "i13"Line (80, 28)-(80, 28), vbRedPrint "i5"Line (80, 53)-(80, 53), vbRedPrint "i10"End SubPrivate Sub Form_Click()ScaleWidth = 100ScaleHeight = 100DrawWidth = 3Line (20, 10)-(80, 80), vbCyan, BDrawWidth = 2Line (49, 43)-(57, 43), vbGreenLine (66, 25)-(57, 43), vbGreenLine (66, 25)-(73, 22), vbGreenLine (80, 22)-(73, 22), vbGreenLine (20, 80)-(31, 69), vbGreenLine (48, 60)-(31, 69), vbGreenLin