建立一个控制台工程:输入代码:
'用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: