VisualFreeBasic游戏趣味编程_5.1_绘制圆盘与针

输入并运行以下代码，可以在画面中间绘制一个圆表现圆盘、一条线段，用来表示一根针，圆心坐标及线段起点坐标均为(200,120)。

Sub 游戏执行过程(hWndForm As hWnd)
   Dim gg As yGDI = hWndForm
   gg.Pen 3, BGR(0, 0, 0) '线宽为3，这样针看起来更明显
   gg.Brush '不填充色彩
   gg.DrawLine 200,120,300,120
   gg.Pen 2, BGR(255, 0, 0) '设置圆盘线条颜色为红色
   gg.DrawEllipse 160,80,80,80

End Sub

其中，gg.Pen 3, BGR(0, 0, 0) 线宽度为3（线条默认宽度为1）颜色为黑。

程序运行后输出效果如图5-2所示。