Question

请问如何vb图片抽奖编程

按开始键后图片不停变化，按结束键后图片停止，停止所得的图片就是奖品。我只会做大概的框架不会写程序，求高手指教！！急用，谢谢

Answer 1

1、需要三个控件，image控件，Command1控件和timer控件

Dim MaxShu As Integer
'这个是你的图片的张数
Private Sub Form_Load()
Dim a(10) As String
Timer1.Interval = 100

'方法一：
a(0) = App.Path & "\文件名（记得带扩展名）)"
a(1) = App.Path & "\文件名（记得带扩展名）)"
a(2) = App.Path & "\文件名（记得带扩展名）)"
a(3) = App.Path & "\文件名（记得带扩展名）)"
a(4) = App.Path & "\文件名（记得带扩展名）)"
a(5) = App.Path & "\文件名（记得带扩展名）)"

'你可以把你的图片名写成这个数字从1开始，这样可以使用一下方法
'方法二
For i = 1 To MaxShu
a(i) = App.Path & "\" & MaxShu & ".jpg"
Next i
End Sub
Private Sub Timer1_Timer()
Randomize
Dim i As Integer
i = Int(Rnd * MaxShu) + 1
Image1.Picture = LoadPicture(a(i))
End Sub
Private Sub Command1_Click()
Timer1.Enabled = False
MsgBox "恭喜你获奖了！"
End Sub

Answer 2

可以用定时器Timer控件实现，在定时器中随机生成一个整数（整数范围根据奖品图片多少而定，每个奖品图片对应一个整数），将对应的奖品图片显示到界面中。按开始按钮，Timer.Enable=True，按停止按钮时Timer.Enable=False。