189 8069 5689
可以建立一个方向向量用来存储气泡运动的方向（方向值每到一定时间随机产生），再定义一个表示速度的变量（如果要的是均速运动速度值就不变，否则也可以随机产生）。再用速度和方向值改变气泡位置。
创新互联公司是一家专业提供云城企业网站建设,专注与网站设计、成都做网站、H5高端网站建设、小程序制作等业务。10年已为云城众多企业、政府机构等服务。创新互联专业网站设计公司优惠进行中。
我可以做个例子（qq:359394386）,但分不能太低。
简单一点的方式是，在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.Height = Me.Height
End Sub
在Picture1控件的resize事件中添加如下代码：
Private Sub Picture1_Resize()
Me.Image1.Move 0, 0, Me.Picture1.Width, Me.Picture1.Height
End Sub
Public Class Form1
Dim 初始化控件自动大小调整与窗口的宽度比例 As Integer
Dim 初始化控件自动大小调整与窗口的高度比例 As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
初始化控件自动大小调整与窗口的宽度比例 = Me.Width / 控件自动大小调整.Width
初始化控件自动大小调整与窗口的高度比例 = Me.Height / 控件自动大小调整.Height
显示控件的位置坐标()
End Sub
Private Sub Form1_ResizeEnd(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ResizeEnd
' Form1_ResizeEnd 这个事件是 窗口大小变化完成后 再进行操作的
控件自动大小调整.Location = New Point(控件自动大小调整.Left, 控件自动大小调整.Top)
'设置控件的初始左位置坐标 与 上位置坐标
控件自动大小调整.Size = New Point(Int(Me.Width / 初始化控件自动大小调整与窗口的宽度比例), Int(Me.Height / 初始化控件自动大小调整与窗口的高度比例))
'更改控件的大小 按第一次窗口的比例 进行调整
显示控件的位置坐标()
End Sub
Private Sub 显示控件的位置坐标()
Label1.Text = "控件的上边距坐标： " 控件自动大小调整.Top
Label2.Text = "控件的左边距坐标： " 控件自动大小调整.Left
Label3.Text = "控件的宽度大小： " 控件自动大小调整.Width
Label4.Text = "控件的高度大小： " 控件自动大小调整.Height
End Sub
End Class
还有好多方法 慢慢研究吧兄弟 希望能帮到你