例53：画直线（续）

建立一个控制台工程：输入代码：

'用2种不同的颜色绘制2条不同的线条样式

'二进制数位置：如果指定,则允许样式线绘制;其值被解释为16位位掩码,Line将使用它来跳过像素绘图。

'从(x1 ,y1 )开始,检查风格掩码的最高有效位：如果1,则绘制像素,如果0,则会跳过该像素。对于所有其他位的行像素重复,当全部检查16位时,掩码将重复使用。

ScreenRes 320, 240

Line (10, 100)-(309, 140),  4, B, &b1010101010101010 '红色框与虚线边框

Line (20, 115)-(299, 115),  9,  , &b1111000011111111 '蓝色虚线

Line (20, 125)-(299, 125), 10,  , &b0000000011110000 '绿色虚线

Sleep

运行结果如图53：