Question

用vb做鼠标点击向窗口中任意位置添加指定图片 怎么做

Answer 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

运行之后点击窗体，就会要求选择图片。

添加的图片会出现在鼠标的位置。