VB-用鼠标点击屏幕，然后那个地方生成一个shape 200
也不一定用shape,我是想在一定情况下，点击能加入一个可以操作的东西（对象？），并具有自己图案，点击有自己属性信息之类的。...
也不一定用shape,我是想在一定情况下，点击能加入一个可以操作的东西（对象？），并具有自己图案，点击有自己属性信息之类的。
展开
1个回答
展开全部
添加一个CommonDialog和一个Image控件
然后输入以下代码
Option Explicit
Dim filename As String
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Visible = False
CommonDialog1.Flags = cdlOFNHideReadOnly ' 过滤器
CommonDialog1.Filter = "所有文件|*.*|jpg图片|*.jpg|bmp位图|*.bmp" ' 过滤器
CommonDialog1.ShowOpen ' 显示打开对话框
If CommonDialog1.filename = "" Then Exit Sub ' 如果用户添加图片退出该过程
filename = CommonDialog1.filename '获得图片路径
Image1.Picture = LoadPicture(filename) '加载图片
PaintPicture Image1.Picture, X, Y '在鼠标位置添加图片
End Sub
运行之后点击窗体，就会要求选择图片。
添加的图片会出现在鼠标的位置。
追问
这个“选择图片”是通过弹出文件夹来查找吗？
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
