可以建立一個方向向量用來存儲氣泡運動的方向(方向值每到一定時間隨機產(chǎn)生),再定義一個表示速度的變量(如果要的是均速運動速度值就不變,否則也可以隨機產(chǎn)生)。再用速度和方向值改變氣泡位置。
創(chuàng)新互聯(lián)公司是一家專業(yè)提供云城企業(yè)網(wǎng)站建設(shè),專注與網(wǎng)站設(shè)計、成都做網(wǎng)站、H5高端網(wǎng)站建設(shè)、小程序制作等業(yè)務(wù)。10年已為云城眾多企業(yè)、政府機構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)站設(shè)計公司優(yōu)惠進(jìn)行中。
我可以做個例子(qq:359394386),但分不能太低。
簡單一點的方式是,在MDI主窗體內(nèi)添加一個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 初始化控件自動大小調(diào)整與窗口的寬度比例 As Integer
Dim 初始化控件自動大小調(diào)整與窗口的高度比例 As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
初始化控件自動大小調(diào)整與窗口的寬度比例 = Me.Width / 控件自動大小調(diào)整.Width
初始化控件自動大小調(diào)整與窗口的高度比例 = Me.Height / 控件自動大小調(diào)整.Height
顯示控件的位置坐標(biāo)()
End Sub
Private Sub Form1_ResizeEnd(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ResizeEnd
' Form1_ResizeEnd? 這個事件是 窗口大小變化完成后 再進(jìn)行操作的
控件自動大小調(diào)整.Location = New Point(控件自動大小調(diào)整.Left, 控件自動大小調(diào)整.Top)
'設(shè)置控件的初始左位置坐標(biāo)? 與? 上位置坐標(biāo)
控件自動大小調(diào)整.Size = New Point(Int(Me.Width / 初始化控件自動大小調(diào)整與窗口的寬度比例), Int(Me.Height / 初始化控件自動大小調(diào)整與窗口的高度比例))
'更改控件的大小? 按第一次窗口的比例 進(jìn)行調(diào)整
顯示控件的位置坐標(biāo)()
End Sub
Private Sub 顯示控件的位置坐標(biāo)()
Label1.Text = "控件的上邊距坐標(biāo): " 控件自動大小調(diào)整.Top
Label2.Text = "控件的左邊距坐標(biāo): " 控件自動大小調(diào)整.Left
Label3.Text = "控件的寬度大?。?" 控件自動大小調(diào)整.Width
Label4.Text = "控件的高度大?。?" 控件自動大小調(diào)整.Height
End Sub
End Class
還有好多方法? 慢慢研究吧兄弟 希望能幫到你