易截截图软件、单文件、免安装、纯绿色、仅160KB

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
作容器了.

引用
做了一个试验,将Picture1还原到原来的容器就可以了
VB codeOptionExplicitPrivateSub Command1_Click()Set Picture1.Container= Picture3End SubPrivateSub Command2_Click()Set Picture1.Container= Form1End SubPrivateSub Form_Load()
    Picture1.Picture=LoadPicture("E:\截图\1.JPG")End Sub


学习
{{-


相关问答:

VB窗体问题

我在我电脑(屏幕比较大)设计一个界面,但是在屏幕比较小的电脑上测试时,发现按钮不会随着屏幕大小而自动变大小.

要怎么设?
Me.Height = Screen.Height * 0.6
Me.Width = Screen.Width * 0.6


VB cod ......

VB标题栏 动态显示

我在窗体正常运行的情况下 标题栏上可以动态显示数值

可是点击最小化按钮的后 ,在任务栏上的标题上就不变了?

怎么办 

别折腾这些花架子,没意义

不会吧?
VB code:
Private Su ......

关于VB中的MDI子窗体不能以模式窗体显示

Private Sub cmdModify_Click()
    Dim iRet As Integer
    If dltUser.Text = "" Then
        MsgBox "请选择要修改的用户!", vbOKOnly ......

VB读取XML的问题

VB code:

Private objXml As New DOMDocument60
Private xmlRoot As IXMLDOMElement
Public Function xmlNode()
Set objXml = New DOMDocument
objXml.async = False
objXml.Load ("E:\Li ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号