VisualFreeBasic游戏趣味编程_2.2_显示一个静止小球

2026-1-21 / 0 评论 / 56 阅读

显示一个蓝色的小圆

Sub 游戏执行过程(hWndForm As hWnd) 
   Dim gg As yGDI = hWndForm
   gg.Brush(&HFF0000)
   gg.DrawEllipse(150,100,100,100)
End Sub

执行代码后的效果

  • gg.Brush
    填充的颜色,为 RGB 颜色。
  • gg.DrawEllipse
    表示画一个填充圆,(150,100)为圆的左上角x坐标和y坐标,宽度和高度100。4个参数放在圆括号内,且以逗号分隔
  • 以上数字为像素单位

提示
1-2的其他行代码,读者目前不用了解其具体含义,暂时理解为一个程序框架即可,我们会在后续章节中逐步讲解。
gg.DrawEllipse(150,100,100,100) 中的数字,在FB语言中也称为整数。读者可以尝试修改1-2中代码,绘制出半径小一些的圆,如图所示。

Sub 游戏执行过程(hWndForm As hWnd) 
   Dim gg As yGDI = hWndForm
   gg.Brush(&HFF0000)
   gg.DrawEllipse(150,100,50,50)
End Sub


读者也可以利用print()函数,直接输出整数的值:

Sub 游戏执行过程(hWndForm As hWnd)
   Dim gg As yGDI = hWndForm
   gg.Brush(&HFF0000)
   gg.DrawEllipse(150,100,50,50)
   Print 50
End Sub

坐标体系(单位为像素)

坐标是从软件的左上角开始,从左到右为 X ,从上到下为 Y

评论一下?

OωO
取消