模型：Form1中有一个Image控件和Timer空格键
代码如下：
Private Sub Form_Load()
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
x = Int(Rnd * (Form1.Width - Image1.Width))
y = Int(Rnd * (Form1.Height - Image1.Height))
Image1.Left = x
Image1.Top = y
End Sub
image.height = int(rnd*(3200-840)+840)
image.width = int(rnd*form1.width) '宽度范围不限？还是限制在窗口可见范围内吧……本回答被提问者采纳
Randomize
Image1.Left = Rnd * Form1.ScaleWidth
Image1.Top = Rnd * Form1.ScaleHeight
End Sub
vb中如何移动图片
在VB中移动图片，首先需要开启自动重绘功能。使用语句：pic.autoredraw = true，确保图片在移动时不会丢失。接着，使用循环语句调整图片的左侧位置。循环语句如下：for ii = 0 to screen.width step 10 pic.left = ii next 此处screen.width代表屏幕宽度，pic.left为图片的左侧位置。通过设置step参数为...
VB中picturebox图怎么样随窗体大小变化
可以使用Image控件，将其属性Stretch设为True，调整其大小，图片自动调节。
vb图片移动问题
'如图中所显示的那样创建窗体，我使用了Image控件装载图片 '再添加三个Timer控件 '将每个Timer的Interval属性设置为一个适当的值（如100，就是每100毫秒执行一次代码）'图片的top属性是指其与窗体上边界的距离，left属性是指其与窗体左边界的距离 '在对象窗口先将Image1的left和top属性都设置为480（就...
vb6.0 Picture1放了一个图片,想拖动窗体让图片随窗体变大或变小?
那最好使用Image控件，不要使用PictureBox，因为：Image的Stretch 属性为True的时候，具有让图片自动缩放到与Image控件一致的大小。所以，只要在Form_Resize()事件里编写代码：Option Explicit Private Sub Form_Resize()Image1.Width = Me.Width Image1.Height = Me.Height End Sub ...
VB 图片判断窗体移动方向
先在通用(声明)中打 Dim RecentX,RecentY As Single 不知你是如何使窗体移动起来的。总之，找到使你窗体移动的代码，在它之前加上如下代码 RecentX=Me.Left RecentY=Me.Top 然后在使你窗体移动的代码的后面加上如下代码 a=Me.Left-RecentX b=Me.Top-RecentY If a>0 Then Select Case b Case ...
在VB中如何实现MDI窗体的背景图随窗口的大小而变化
简单一点的方式是，在MDI主窗体内添加一个picturebox控件，然后在这个picturebox中添加一个image控件。Picture1的属性：1.Align=top 2.Appearance=flat 3.BordeStyle=None 4.TabStop=false Image1的属性：1.Stretch=true 在MDI窗体的resize事件中添加如下代码：Private Sub MDIForm_Resize()Me.Picture1....
vb中如何用方向键控制图片框移动
1.首先你要把窗体的keypreview属性设置为true 2.你在窗体的keydown事件响应键盘上的方向键，然后就可以控制图片的移动了。具体是个方向键的数值是多少，你可以自己做个断点看看就知道了。
vb中如何使窗体随光标移动(就是窗体出现在光标处,像即时菜单一样)我有...
用width和height获取长、宽的中点，然后在上述的基础上加上去就行了。
用vb做鼠标点击向窗口中任意位置添加指定图片 怎么做
filename = "" Then Exit Sub ' 如果用户添加图片退出该过程filename = CommonDialog1.filename '获得图片路径Image1.Picture = LoadPicture(filename) '加载图片PaintPicture Image1.Picture, X, Y '在鼠标位置添加图片End Sub运行之后点击窗体，就会要求选择图片。添加的图片会出现在鼠标的位置。
VB里怎么用键盘的方向键来控制图片的移动啊??
1）在窗体上布置一个Image控件并载入图片 2）窗体代码 Option ExplicitPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) ' 按下箭头键，改变图片的位置 Select Case KeyCode Case vbKeyUp '上箭头键 Image1.Top = Image1.Top - 1 Case vbKeyDown '下箭头键 ...
