UC知道求vb高手指教
来源：百度知道 编辑：UC知道 时间：2024/06/23 15:32:19
我是学物理的，感觉比较枯燥，打算自学vb，
Private Sub Form_Load()
Timer1.Interval = 500
Timer2.Interval = 500
End Sub
Private Sub Timer1_Timer()
Dim i As Integer
i = Int(100 * Rnd)
If (i Mod 2) = 1 Then
Form1.Picture = LoadPicture(App.Path + "\1114.jpg")
Else
Form1.Picture = LoadPicture(App.Path + "\2224.jpg")
End If
Call mymove
End Sub
Sub mymove()
CurrentX = Form1.ScaleWidth * Rnd
CurrentY = Form1.ScaleHeight * Rnd
Form1.PaintPicture Form1.Picture, CurrentX, CurrentY
End Sub
我想的是让两张图片在窗体上随机出现，可是这样只是出来一张然后换另一张，不能让两张图片同时出现在窗体上，我本想用两个时间空间解决，但也不行，高手指教~最好能给个代码，感激不尽！
Private Sub Form_Load()
Timer1.Interval = 500
Timer2.Interval = 500
End Sub
Private Sub Timer1_Timer()
Dim i As Integer
i = Int(100 * Rnd)
If (i Mod 2) = 1 Then
Form1.Picture = LoadPicture(App.Path + "\1114.jpg")
Else
Form1.Picture = LoadPicture(App.Path + "\2224.jpg")
End If
Call mymove
End Sub
Sub mymove()
CurrentX = Form1.ScaleWidth * Rnd
CurrentY = Form1.ScaleHeight * Rnd
Form1.PaintPicture Form1.Picture, CurrentX, CurrentY
End Sub
我想的是让两张图片在窗体上随机出现，可是这样只是出来一张然后换另一张，不能让两张图片同时出现在窗体上，我本想用两个时间空间解决，但也不行，高手指教~最好能给个代码，感激不尽！
一个form1里只能装一张图片，你可以放两个图片控件，每个控件对应一张图片装载就行了
改成用Picture控件,问题就解决了.
十年前我也学物理!也很枯燥...还算是挺过来了,