UC知道请教VB高手一个画图软件的问题
来源：百度知道 编辑：UC知道 时间：2024/06/08 17:59:20
比如PPT里面，有自选图表，比如“电脑”图片，当你点击一下这个图片，在PPT里就出现了一个电脑的图片，请问它这是怎么实现的，如想在VB里面这样实现，点单击一下，就能在窗体里出现一个图片，思路是什么呢？
我的意思就是，当VB程序运行时，比如窗体左边有个Frame1，它里面有个command1按纽，command的picture属性里有个"自行车"的图片。当我点击command1时，这幅自行车的图片便自动出现在窗体右边的picture1里。当然左边的可以是command1,也可以是picture1,image1等，只要能实现上述功能就行。一楼和二楼都没理解我的意思。
我的意思就是，当VB程序运行时，比如窗体左边有个Frame1，它里面有个command1按纽，command的picture属性里有个"自行车"的图片。当我点击command1时，这幅自行车的图片便自动出现在窗体右边的picture1里。当然左边的可以是command1,也可以是picture1,image1等，只要能实现上述功能就行。一楼和二楼都没理解我的意思。
很简单啊，假设Picture1中有一幅图片，单击它，复制到Picture2中
Private Sub Picture1_Click()
Picture2.Picture = Picture1.Picture
End Sub
你看看要不要得哈.其中:
=============================================
Dir1-目录列表控件
Drive1-驱动器列表控件
File1-文件列表控件
Image1-图像控件
Text1-文本框控件
Option1-单选控件(Caption为"通过单击浏览")
Option2-单选控件(Caption为"通过双击浏览")
=============================================
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
On Error GoTo DriErr
Dir1.Path = Drive1.Drive
Exit Sub
DriErr:
If Err.Number = 68 Then
If MsgBox("请问要重试还是取消?", vbRetryCancel + vbCritical, "硬盘不存在或光驱没有插入磁盘!") = vbRetry Then
Resume 0
Else
Drive1.Drive = "C:"
Resume Next
End If
End If
End Sub
----------------------------------------------
Private Sub File1_Click()
If Option2.Va