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 学习 {{-
相关问答:
我用Delphi写了一个DLL, DLL里有MDI的子窗体,DLL初始化时 传递调用者的TApplication给DLL, 在Delphi7中调用已经通过,但是不知道在VB中有无TApplication对应类型, 是否能在VB中调用? 你好,用instance不是就可以了 ......
用vb做好的软件,想要加入自动隐藏的功能,在那添加啊,还有隐藏的代码那有啊 借用一下 谢了 方法1 Private Sub Form_Load() Me.Height = 1 * Screen.TwipsPerPixelY Me ......
大家好,问个vb打印问题 printer.print "dsff" ..... .... Printer.EndDoc 打印成功后我将执行 sqlstr = "update vc_yh set pr=' 已打印 ', ......
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 ......
Private Sub DataList1_Click() If DataList1.Text = "" Then Lbl_EmpId = "" Lbl_EmpName = "" Lbl_Birth = "" Lbl_Sex = "" Lbl_Political_ ......