● Re: 麻烦帮忙做一下这道题 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: unixbo (雨过天晴), 信区: Program
标  题: Re: 麻烦帮忙做一下这道题
发信站: 荔园晨风BBS站 (Wed May 31 18:50:14 2006), 站内

你这是VB吧,画图就用教了吧,你用附件里的画图软件,随便画一个不要太大就可以了,
Option Explicit
Dim x, y, f As Integer

Private Sub Form_Load()
        Form1.Height = 2000
    Form1.Width = 5400
    Picture1.AutoSize = True
    Picture1.Picture = LoadPicture("d:\RedBlocks.bmp") '图片就是你画的,路径就是
你所保存的地方
    Timer1.Interval = 500
   End Sub

Private Sub Timer1_Timer()
   Select Case f
   Case 0
   If x < 5200 Then x = x + 100 Else f = 1
   Case 1
   If x > -510 Then x = x - 100 Else f = 0
End Select
   Picture1.Left = x
End Sub

还有什么不明白的话,可以加我为好友,我的qq是342751397,或者问你们的老师,相信你们老
师迟早会告诉你们的...

【在 xuna (applena) 的大作中提到: 】
: 用Window的画图工具，生成一个图形文件。编写程序，把该图形装入一图片框中，并使它
在窗体上从左到右往返不断移动（提示：使用窗体的left属性）。
:                                                    谢谢！

--

※ 来源:·荔园晨风BBS站 http://bbs.szu.edu.cn·[FROM: 192.168.80.31]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店