VB：绘图示例—屏保软件设计1

    这些日子趁着上自习，把VB中我还没有涉及到的领域好好研究一下。看到绘图部分，想想如果用它来激发学生对VB的兴趣，应该效果不错。想当初咱玩GW-Basic的时候，天天写程序就是“摆星星”，摆个正三角，倒三角，四边形等等，乐此不疲。都快30岁的人了，那种痴迷的劲头比今天学生玩那些弱智小游戏有过之而无不及。现在的vb绘图能力比GW-Basic强大多了，正好我们的教材最后一章也是讲VB绘图，只不过因为九年级课时太少，从来没讲过。如果把这一章提到前面来讲，应该是个不错的主意。

 

    VB绘图中主要使用 Line() 和 Circle() 两个函数，用法很简单。画个线条、矩形、椭圆之类的学生可能兴趣不会保持太久。如果指导学生来给自己开发一个小软件，那是很有成就感的啊。我们就来开发一个简单的星爆屏保，也可以在此基础上改进一下，改成矩形变换、小球追赶等等。

    编译一下，将编译成的Projedt1.exe 改名为“我的屏保.scr”，并复制到 c:/windows/system32 目录下，在“显示”窗口的“屏幕保护程序中就可以找到它了，选中它应用一下就OK了，如图：

 

'新建一个VB程序，将form1的BorderStyle(边框风格)属性设为0,即无边框。
'因为对于Form和Textbox等控件，其边框风格在运行时是只读的，所以不能用代码修改，用API可以。
'再向窗体上添加一个时钟控件。其他无需任何改动，复制下面的代码到代码编辑窗口即可

Private Sub Form_Resize()
    Me.BorderStyle = 0                '此处应在窗体属性中设置，运行时为只读
    Me.BackColor = vbBlack
    Me.Top = 0
    Me.Left = 0
    Me.Height = Screen.Height         '将窗体充满屏幕
    Me.Width = Screen.Width
    Timer1.Interval = 1000            '时钟间隔为1秒
End Sub

Private Sub Timer1_Timer()
    Call star
End Sub

Private Sub star()
    Dim i As Integer
    Dim ccode As Integer
    Dim pointx As Single              '定义中心点x,y
    Dim pointy As Single
    Dim col As Single                 '定义随机点x,y
    Dim row As Single

    Randomize                         '置随机数种子
    Cls
    Scale (0, 0)-(100, 100)           '重定义屏幕坐标系统
    pointx = 100 * Rnd
    pointy = 100 * Rnd
    For i = 1 To 100
        col = 100 * Rnd
        row = 100 * Rnd
        ccode = 15 * Rnd              '取随机颜色
        If ccode = 0 Then ccode = 15
        Line (pointx, pointy)-(col, row), QBColor(ccode)   '用随机色画线
    Next
    Me.FillColor = vbWhite            '以下在中心点画一个白色实心小圆
    Me.FillStyle = 0
    Me.Circle (pointx, pointy), 0.2, QBColor(15)
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 27 Or KeyCode = 13 Then  '当按下Esc键、或回车键时退出屏保
        Call Form_DblClick
    End If
End Sub

Private Sub Form_DblClick()
    Me.BorderStyle = 0                    '当双击屏幕时退出屏保
    Timer1.Interval = 0
    End
End Sub

 

下载：

http://good.gd/774857.htm