易截截图软件、单文件、免安装、纯绿色、仅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 获取网页源代码

一个查询某信息的ASP网页，提交采用的是post方法，查找结果的网页必须右键点击“查看源文件”才能看到真正查询结果网页的源代码，用浏览器菜单看到的是查询前的源代码
用VB有什么办法可以获取到这个查询后的源代� ......

为何用vb api获取的窗口标题为空，而SPY++却可以

VB中callbacke function 如下：
Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    Dim slength As Long, WndTitle As String ' title bar text length an ......

VB标题栏 动态显示

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

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

怎么办 

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

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

VB 调用系统计算器

我知道在VB中调用系统的计算器 可以用shell
可是要是要求高点 调用后 直接计算 并把计算结果显示在文本框里

比如 在点击按钮1 调用计算器 把指定的二进制转换为16进制 并显示在 text1
自已做一个计算器~ ......

VB 属性的使用无效

Private Sub DataList1_Click()
If DataList1.Text = "" Then
Lbl_EmpId = ""
Lbl_EmpName = ""
Lbl_Birth = ""
Lbl_Sex = ""
Lbl_Political_ ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号