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 学习 {{-
相关问答:
我在我电脑(屏幕比较大)设计一个界面,但是在屏幕比较小的电脑上测试时,发现按钮不会随着屏幕大小而自动变大小. 要怎么设? Me.Height = Screen.Height * 0.6 Me.Width = Screen.Width * 0.6 VB cod ......
请教一下:我用vb写了一个调用Illustrator的测试程序,代码很简单:Private Sub Command1_Click() Dim app As New Illustrator.Application Dim doc As Illustrator.Document Dim thislayer As Illustrator.Layer ......
我知道在VB中调用系统的计算器 可以用shell 可是要是要求高点 调用后 直接计算 并把计算结果显示在文本框里 比如 在点击按钮1 调用计算器 把指定的二进制转换为16进制 并显示在 text1 自已做一个计算器~ ......
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 ......