走一起打鬼子去全集:一个有趣的屏保程序

来源：百度文库 编辑：九乡新闻网 时间：2024/04/29 15:43:33

             一个有趣的屏保程序                福建  李笃瑞

运行下述的 ·EXE程序，一个运动员从美丽的奥运馆大门远处向您跑来，同时，一架飞机从天空飞过，周而复始。编程思路：用Windows的剪贴画和画图工具绘制奥运馆（图-1），飞机（图-2），运动员（图-3）。建立一个VB新工程，设置窗体最大化，把（图-1）读入窗体，把两个命令钮和一个时钟控件放于窗体的右下角，把（图-2）读入图像控制imgFj，把（图-3）分别读入图像控制数组imgPb()，控件相关属性由读者根据相关要求而定。事件代码如下：


                                                    

    
                                                                          




Dim CuPb As Integer

Dim LeftCo, TopCo As Single

Dim LeftFj, TopFj As Single

Dim WidthOfPb, HeightOfPb

Dim k, i, x, y

Private Sub cmdExit_Click() 

End

End Sub

 


Private Sub cmdStart_Click()

k = 1

End Sub

 

Private Sub Form_Load()

k = 0：CuPb = 0

x = imgCuPb.Left：y = imgCuPb.Top

 LeftCo = x：TopCo = y

WidthOfPb = 1： HeightOfPb = 3

TopFj = 300

End Su

 

Private Sub tmrTime_Timer()

If k = 1 Then

  imgCuFj.Picture = ImgFj.Picture

  imgCuPb.Picture = imgPb(CuPb).Picture

  CuPb = CuPb + 1

  If CuPb = 3 Then

    CuPb = 0

  End If

    Else

   Exit Sub

End If

imgCuFj.Move LeftFj, TopFj

imgCuPb.Move LeftCo, TopCo, WidthOfPb, HeightOfPb

LeftFj = LeftFj + 200

If LeftFj > frmPb.ScaleWidth Then

LeftFj = 10

End If

 

TopCo = TopCo + 10

WidthOfPb = WidthOfPb + 5

HeightOfPb = HeightOfPb + 20

 If HeightOfPb > frmPb.ScaleHeight * 2 / 5 Then

   WidthOfPb = 1

   HeightOfPb = 3

   LeftCo = x

   TopCo = y

 End If

  End Sub


 

一个有趣的屏保程序 怎么删除卸载PPTV屏保程序 一个有趣的现象 很美的屏保- 屏保的快捷键 Flash屏保的制作方法 很美的屏保 做一个有趣的人 一个有趣的数字魔术 创建一个简单的openlaszlo程序 一个计算星期几的简单程序 一个真实有趣的戒淫故事~ 做一个有趣的电磁炮 一个有神论者和一个无神论者的有趣对话 非常酷的“LED时钟”屏保 使用IE控件的一些有趣方法 你想在程序中，显示WORD文件吗 python 程序的性能分析优化（huffman编码程序性能分析的一个小结论） 宇宙是一个程序 一个下雪的小程序_c++ vc6.0 妙音居士林 - 一个模拟地藏占察轮的程序 sinatra+sequel创建只需要一个文件的blog程序 刘益飞：应尊重民主选举的一个普遍程序 请你看一个有趣的故事：王后的胸脯 一个有趣的股市暴跌现象分析(Psytopic)