用vb来制作屏幕画圆代码

用vb来制作屏幕画圆代码 。

代码

  • 01

    '演示在屏幕上自动画圆的程序。如对参数、变量作改变，将有不同的效果。 '申明API函数 Private Declare Function GetWindowDC Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Type POINTAPI x As Long y As Long End Type Dim xx As Integer, yy As Integer, ss As Integer Private Sub Command1_Click() Timer1.Enabled = True Me.Visible = False End Sub Private Sub Form_Load() xx = 0 yy = 0 ss = 0 Me.Caption = "在屏幕上自动画圆" Me.WindowState = 0 Command1.Caption = "开始" Timer1.Interval = 100 Timer1.Enabled = False Me.AutoRedraw = True CurrentX = 50 CurrentY = 100 Print "点击按钮后开始自动画圆。过一会儿程序会自动打住。" CurrentX = 50 CurrentY = 100 Print "试一试吧。OK？" End Sub '画椭圆 Sub Timer1_Timer() xx = xx + 5 yy = yy + 5 ss = ss + 1 Dim Position As POINTAPI    '获取鼠标指针 GetCursorPos Position    '在屏幕指针所在处画椭圆 Ellipse GetWindowDC(0), Position.x - xx, Position.y - yy, Position.x + xx, Position.y + yy If ss >= 350 Then Timer1.Enabled = False MsgBox "画圆结束。点击确定退出程序。请用刷新方式回复原桌面状态。", vbOKOnly, "再见" End End If End Sub</pre><br>

赞 (0)

相关推荐

  • sai怎么画圆? sai制作圆形头像的教程

    sai中没有画圆工具,该怎么绘制圆形呢?下面我们就阿里看看详细的绘制方法,很简单,需要的朋友可以学习一下. 1.打开sai软件,新建一个画布,选择铅笔工具 2.在画布上点一下,就有一个小圆啦~ 3.选 ...

  • 几何画板图文教程：画圆的内接n边形

    几何画板作为比较受欢迎的几何绘图工具,用它来构造几何图形非常方便.不仅可以借助其中的圆工具.多边形工具来画图,还可以借助其中的强大功能来构造几何图形.比如迭代功能,在几何画板中迭代的控制方式分为两种, ...

  • scratch怎么画圆

    scratch怎么画圆

    我们说的画圆不特定指如何用画笔去绘制,而是只要能在舞台上实现一个圆的效果即可,到底有多少种方法呢?大家不妨跟我们一起脑洞大开,欢迎提交你的独特创意与大家分享. 本节我们说的填充法画圆其原理就是利用圆的 ...

  • 几何画板按已知圆的方程画圆的方法

    比如已知圆的方程:x2+y2=32,画圆的方法有以下两种: 方法一 将圆方程进化为2个函数,分别画图像 步骤一 将圆方程进行移项.开平方,化成y=√(9-x2)和y=-√(9-x2)两个简单函数; 步 ...

  • SAI怎么画圆和星星图形?

    SAI小技巧,用SAI画圆和星星的方法. 1.打开sai新建一个画布后, 图层样式里新建一个钢笔图层,点击曲线工具,在画布上点击一下鼠标左键(鼠标不可以移动位置!),按一下键盘上的END键 2.按一下 ...

  • SAI怎么画圆? SAI绘制正圆的教程

    习惯用SAI的人都知道,在SAI中画圆是一个很大的问题,因为没有直接的画圆工具,那么如何才能在SAI上画一个正圆呢? 1.新建文件,点击铅笔工具,将直径拉到最大(可以按住中扩号键调整大小,这样才是最大 ...

  • 几何画板怎么画圆内接三角形?

    圆内接多边形就是指在圆上取几个点作为多边形的顶点,然后依次连接点得到的图形.在黑板上画圆内接多边形还要借助圆规和直尺,这里给大家分享使用专业的几何绘图工具画圆内接三角形. 1.打开几何画板,选择左边绘 ...

  • 电脑白板软件中如何用圆规画圆？

    电脑白板软件中如何用圆规画圆？

    现在软件科技日益趋向完善,可是我们如何在白板中用圆规画图呢?下面就让小编带你们来看看吧!具体如下:1. 首先我们需要点击打开白板软件,2. 下一步点击如图所示右上角的"工具"一栏, ...

  • 如何在电脑PPT中制作环绕成圆的多层圆环图

    如何在电脑PPT中制作环绕成圆的多层圆环图

    随着社会和经济的发展,电脑PPT软件已经成为我们生活中必不可少的一部分,那么我们怎么在电脑PPT中制作环绕成圆的多层圆环图呢,接下来就让小编来教你们吧.具体如下:1. 第一步,打开电脑上的PPT软件, ...