vb的picture控件的卸载
用vb的picture控件可以加载picture控件,例如
Set Picture1.Container = Picture3
这样就把Picture1加载到了Picture3上,那么怎么从Picture3卸载掉Picture1呢?
请各位朋友帮忙!谢谢!!
做了一个试验,将Picture1还原到原来的容器就可以了
VB code:
Option Explicit
Private Sub Command1_Click()
Set Picture1.Container = Picture3
End Sub
Private Sub Command2_Click()
Set Picture1.Container = Form1
End Sub
Private Sub Form_Load()
Picture1.Picture = LoadPicture("E:\截图\1.JPG")
End Sub
VB code:
Private Sub Command1_Click()
Set Picture1.Container = Picture3
End Sub
Private Sub Command2_Click()
Picture1.Left = -1 * Picture1.Width
End Sub
上面的代码并没真正移走,只是看不到了, Set Picture1.Container = Form1
是移走了,但Picture1没卸载掉.只是不再以Picture3
作容器了.
学习
{{-
相关问答：
我在我电脑(屏幕比较大)设计一个界面,但是在屏幕比较小的电脑上测试时,发现按钮不会随着屏幕大小而自动变大小.
要怎么设?
Me.Height = Screen.Height * 0.6
Me.Width = Screen.Width * 0.6
VB cod ......
用vb做好的软件，想要加入自动隐藏的功能，在那添加啊，还有隐藏的代码那有啊 借用一下 谢了
方法1
Private Sub Form_Load()
Me.Height = 1 * Screen.TwipsPerPixelY
Me ......
设计一个鼠标画图程序，界面设计，窗体中添加一个picturebox控件，一个combobox组合下拉框、一个通用对话框与两个命令框，以下是我的程序，但是我运行的时候总是提示变量未定义，还望各位大侠帮忙指正哪里出了问题
......
Open App.Path & "\tu\hb.bmp" For Binary As #100
用open语句打开文件,我想用if语句判断这个文件是否打开,就是说如果没打开,就打开,请问各位朋友怎么写?
是否打开是指是否已经用画笔打开了么?还� ......
