Dim i As Integer
創(chuàng)新互聯(lián)建站網(wǎng)站建設(shè)提供從項(xiàng)目策劃、軟件開發(fā),軟件安全維護(hù)、網(wǎng)站優(yōu)化(SEO)、網(wǎng)站分析、效果評估等整套的建站服務(wù),主營業(yè)務(wù)為成都網(wǎng)站制作、成都網(wǎng)站設(shè)計(jì),成都app軟件開發(fā)以傳統(tǒng)方式定制建設(shè)網(wǎng)站,并提供域名空間備案等一條龍服務(wù),秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。創(chuàng)新互聯(lián)建站深信只要達(dá)到每一位用戶的要求,就會(huì)得到認(rèn)可,從而選擇與我們長期合作。這樣,我們也可以走得更遠(yuǎn)!
For i = 0 To Me.Width - Button1.Width 'me為容器,典型的是form1
Button1.Left += 1
Windows.Forms.Application.DoEvents()
Next
原理:不斷地變化button1的X軸,使其向右移,同樣,只要控制好其x,y軸,就可以變化button的變化
如果是做小游戲,建議弄成類吧,把其中的左(右)移或?qū)瞧渌苿?dòng)弄成其接口,以便操作。
由于涉及內(nèi)容太多,不再詳述。原理都一樣
有時(shí)候會(huì)這樣,特別是控件改名稱之后,原因是事件后面的handle 控件名消失了,你只要再加上就行了!
簡單一點(diǎn)的方式是,在MDI主窗體內(nèi)添加一個(gè)picturebox控件,然后在這個(gè)picturebox中添加一個(gè)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