路网层次表示VB演示
下载后可任意编辑 Private Sub _Click ScaleWidth 100 ScaleHeight 100 DrawWidth 3 Line 20, 10-80, 80, vbCyan, B DrawWidth 2 Line 25, 10-30, 23, vbGreen Line 33, 44-30, 23, vbGreen Line 33, 44-36, 66, vbGreen Line 36, 66-38, 80, vbGreen Line 60, 10-63, 17, vbGreen Line 68, 37-63, 17, vbGreen Line 68, 37-73, 50, vbGreen Line 80, 77-73, 50, vbGreen Line 30, 23-48, 18, vbYellow Line 63, 17-48, 18, vbYellow Line 50, 39-48, 18, vbYellow Line 50, 39-57, 38, vbYellow Line 68, 37-57, 38, vbYellow Line 63, 17-48, 18, vbYellow Line 36, 66-58, 66, vbYellow Line 58, 66-57, 38, vbYellow Line 58, 66-73, 50, vbYellow Line 58, 66-67, 80, vbYellow DrawWidth 7 Line 30, 23-30, 23, vbRed Print a2 Line 33, 44-33, 44, vbRed Print a3 Line 36, 66-36, 66, vbRed Print 14 Line 48, 18-48, 18, vbRed Print a11 Line 50, 39-50, 39, vbRed Print a12 Line 57, 38-57, 38, vbRed Print a13 Line 58, 66-58, 66, vbRed Print a14 Line 63, 17-63, 17, vbRed Print a7 Line 68, 37-68, 37, vbRed Print a8 Line 73, 50-73, 50, vbRed Print a9, Line 25, 10-25, 10, vbRed Print a1 Line 60, 10-60, 10, vbRed Print a6 Line 38, 80-38, 80, vbRed Print a5 Line 67, 80-67, 80, vbRed Print a15 Line 80, 77-80, 77, vbRed Print a10 End Sub Private Sub _Click ScaleWidth 100 ScaleHeight 100 DrawWidth 3 Line 20, 10-80, 80, vbCyan, B DrawWidth 2 Line 30, 10-35, 40, vbGreen Line 38, 50-35, 40, vbGreen Line 38, 50-40, 66, vbGreen Line 20, 70-40, 66, vbGreen Line 63, 58-40, 66, vbGreen Line 63, 58-73, 53, vbGreen Line 70, 34-73, 53, vbGreen Line 70, 34-60, 10, vbGreen Line 40, 10-45, 35, vbYellow Line 35, 40-45, 35, vbYellow Line 48, 45-45, 35, vbYellow Line 48, 45-40, 66, vbYellow Line 48, 45-60, 40, vbYellow Line 70, 34-60, 40, vbYellow Line 63, 58-60, 40, vbYellow Line 70, 34-80, 29, vbYellow DrawWidth 7 Line 35, 40-35, 40, vbRed Print b4 Line 38, 50-38, 50, vbRed Print b3 Line 40, 66-40, 66, vbRed Print b2 Line 45, 35-45, 35, vbRed Print b11 Line 48, 45-48, 45, vbRed Print b10 Line 60, 40-60, 40, vbRed Print b13 Line 63, 58-63, 58, vbRed Print b6 Line 70, 34-70, 34, vbRed Print b8 Line 73, 53-73, 53, vbRed Print b7 Line 20, 70-20, 70, vbRed Print b1 Line 30, 10-30, 10, vbRed Print b5 Line 40, 10-40, 10, vbRed Print b12 Line 60, 10-60, 10, vbRed Print b9 Line 80, 29-80, 29, vbRed Print b14 End Sub Private Sub _Click ScaleWidth 100 ScaleHeight 100 DrawWidth 3 Line 20, 10-80, 80, vbCyan, B DrawWidth 2 Line 20, 60-41, 53, vbGreen Line 53, 45-41, 53, vbGreen Line 53, 45-66, 43, vbGreen Line 63, 38-55, 15, vbGreen Line 55, 15-51, 10