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 学习 {{-
相关问答:
Printer.ScaleMode = 6 6表示毫米 Printer.PaperSize = vbPRPSA4 '初始坐标 x = 1 y = 4 '最大的线筐 Printer.DrawStyle = 0 Printer.Line (x, y)-(x + 132.5, y) ......
请教一下:我用vb写了一个调用Illustrator的测试程序,代码很简单:Private Sub Command1_Click() Dim app As New Illustrator.Application Dim doc As Illustrator.Document Dim thislayer As Illustrator.Layer ......
设计一个鼠标画图程序,界面设计,窗体中添加一个picturebox控件,一个combobox组合下拉框、一个通用对话框与两个命令框,以下是我的程序,但是我运行的时候总是提示变量未定义,还望各位大侠帮忙指正哪里出了问题
......
用ADO创建了一个空Access表,并添加了多个字段名。 但现在问题是,不能向空表中添加记录。 每次添加都会出现“BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录” ......
Private Sub DataList1_Click() If DataList1.Text = "" Then Lbl_EmpId = "" Lbl_EmpName = "" Lbl_Birth = "" Lbl_Sex = "" Lbl_Political_ ......