#高分急求#用VB作一个简单的有动画效果的程序

求用VB制作一个简单地有动画效果的程序

具体细节：背景是那张富士山的图片（大小可以适当调节，类似图片也可）
前面有樱花像雪一样飘来飘去（樱花的素材没找到合适的，给出的图是例子）

要求：要用到timer控件，整体打开之后是以富士山为背景，前面有零星（不要太密集）樱花飘来飘去（不要太大，素材可以随便换，樱花即可。）效果不用太复杂逼真，意思意思就行，代码越简单越好。这是应付作业用的（我不是学编程的）%>_<%

可以把做好的整个项目用邮件发给我（要VB可以打开的）
也可以直接把代码贴上来，然后告诉我窗体里都放些什么。。。

邮件 [email protected]

多谢！！！效果满意再追加100分

举报该问题

推荐答案 2013-07-12

这样怎么样

追问

多谢！！！

追答

VS 也已经完成,原本用的pictureBox 但效果.... 一卡一卡的.

不用后还可以

效果图

还有大小多少的修改其实一直都有

    Private Const length As Integer = 30 '产生的个数
    Private Const maxSize As Integer = 30 '花的最大尺寸
    Private Const minsize As Integer = 5 '花的最小尺寸
    Private Const movemaxlen As Single = 15 '移动的最大距离
    Private Const moveminlen As Single = 1 '移动的最小距离

上面几个参数...具体少点中文...哎.英文有限...

温馨提示：答案为网友推荐，仅供参考

当前网址：http://00.wendadaohang.com/zd/jeIrnDrrD.html

其他回答

第1个回答 2013-07-12

更换了个背景大概就是这么个意思您看再根据您的需求再修改

相似回答

(高分)求解几个VB小程序代码,请详细解释每一行答：Dim a(10, 10)‘定义数组 For i = 1 To 10’循环 a(i, 1) = 1‘赋值 a(i, i) = 1’赋值 Next i‘结束循环 For i = 3 To 10’循环 For j = 2 To i - 1‘嵌套循环 a(i, j) = a(i - 1, j - 1) + a(i - 1, j)’运算 Next j‘结束内循环 Next i’结束外...

(高分悬赏)用vb.net 做个类似DateTimePicker控件的东西,有调整日期的...答：(用C#写的,然后反编译成VB.NET,有图有真相-.-真蛋疼,学C#吧...)

求用VB 编的一个小程序 高分(要源程序)答：'添加一个标签（Label1），一个时钟控件（Timer1），一个按钮（Command1）Dim t As Integer Private Sub Command1_Click()t = Val(InputBox("输入时间（分钟）"))Label1.Caption = t & "分钟"Timer1.Enabled = True End Sub Private Sub Form_Load()Label1.Caption = "-分钟"Timer1.Interv...

用VB设计一个程序~急要!~答：+ arr(i)If arr(i) > max Then max = arr(i)If arr(i) < min Then min = arr(i)Next i avg = (total - max - min) / (n - 2)Print "去掉一个最高分：" & max Print "去掉一个最低分：" & min Print "选手的最后得分是：" & Format(avg, "0.00")End Sub ...