Question

vb能不能使自己画的一个图形,响应鼠标事件.

想做一个程序，需要实现一下功能：
1）在界面—类似窗体—上点击，程序插入一个图标；
2）插入的图标可以响应鼠标事件如点击等。
如何实现？
我现在只能想出来直接定义鼠标点击事件，用坐标来判断。
VB有没有提供更方便的方法？

Answer 1

用程序实现自动在界面添加image控件。同时写一个模块，来对image控件进行初始化及响应。

追问

能不能帮忙写一个在form1中鼠标点击位置添加一个image控件的语句啊，谢谢了。

追答

你还可以先添加一个image控件数组。然后就可以控制数组编号来添加和删除。这个比较容易也占资源少。
下面的是自动加控件的：
1. Dim WithEvents myimage As VB.ControlExtender
Set myimage = Controls.Add("VB.ControlExtender", "myimage ",Form1)
以上的是语法示例，有些参数不太记得了。你可以在百度去搜下。有示例的。

Answer 2

实现方法很多哦，不过用GDI绘制，效果比较好。响应鼠标事件你就直接在Form的MouseDown事件里写就行了，比如在10,10这个点点了鼠标，然后判断这个点在不在我们插入的图标里面即可。

Answer 3

点击时动态插入一个图片框，让图片框响应鼠标事件就是了。

追问

能不能帮忙写一个在form1中鼠标点击位置添加一个图片框的语句

Answer 4

我没试过，我觉得不要直接把图标放在空白界面里，而是放到一个控件里，然后用控件来响应事件。

Answer 5

用image控件，可以有这个功能