假设你要移走的控件为:Picture1那么,可以动态建立一个PictureBox,然后给Picture1临时赋值vbPictureBox.Picture,这样可以解决了Private Sub Command1_Click() Dim vbPictureBox As PictureBox Set vbPictureBox = Form1.Controls.Add("VB.PictureBox", "vbPictureBox") vbPictureBox.Visible = True Picture1.Picture = vbPictureBox.Picture Form1.Controls.Remove "vbPictureBox" End Sub
实际中只要下面的就可以了:Private Sub Command1_Click() Dim vbPictureBox As PictureBox Set vbPictureBox = Form1.Controls.Add("VB.PictureBox", "vbPictureBox") Picture1.Picture = vbPictureBox.Picture Form1.Controls.Remove "vbPictureBox" End Sub
2。在窗体的load事件中加入一行form1.picture=loadpicture("")
假设你要移走的控件为:Picture1那么,可以动态建立一个PictureBox,然后给Picture1临时赋值vbPictureBox.Picture,这样可以解决了Private Sub Command1_Click()
Dim vbPictureBox As PictureBox
Set vbPictureBox = Form1.Controls.Add("VB.PictureBox", "vbPictureBox")
vbPictureBox.Visible = True
Picture1.Picture = vbPictureBox.Picture
Form1.Controls.Remove "vbPictureBox"
End Sub
实际中只要下面的就可以了:Private Sub Command1_Click()
Dim vbPictureBox As PictureBox
Set vbPictureBox = Form1.Controls.Add("VB.PictureBox", "vbPictureBox")
Picture1.Picture = vbPictureBox.Picture
Form1.Controls.Remove "vbPictureBox"
End Sub
如果并不想让窗体的PICTURE属性有具体值,依靠代码在运行时进行清空的确是个天才的傻主意,编译完的工程岂不没必要地带有那么一个图片资源而且还要花费运行期时间。
是form的picture属性,不是PictureBox控件