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
作容器了.
学习
{{-
相关问答：
一个查询某信息的ASP网页，提交采用的是post方法，查找结果的网页必须右键点击“查看源文件”才能看到真正查询结果网页的源代码，用浏览器菜单看到的是查询前的源代码
用VB有什么办法可以获取到这个查询后的源代� ......
保存出的Excel数据文件，想在程序中就转化成数值类型
能够在打开Excel文件后，
能够直接利用数据画图，而不需要再次转化数据类型
程序中的数据是存放在二维数组里的，然后再保存在Excel中
请教大侠们，� ......
Open App.Path & "\tu\hb.bmp" For Binary As #100
用open语句打开文件,我想用if语句判断这个文件是否打开,就是说如果没打开,就打开,请问各位朋友怎么写?
是否打开是指是否已经用画笔打开了么?还� ......
Private Sub cmdModify_Click()
Dim iRet As Integer
If dltUser.Text = "" Then
MsgBox "请选择要修改的用户！", vbOKOnly ......
Private Sub DataList1_Click()
If DataList1.Text = "" Then
Lbl_EmpId = ""
Lbl_EmpName = ""
Lbl_Birth = ""
Lbl_Sex = ""
Lbl_Political_ ......
