小弟正在试做用listbox选取档案
丢进image内
之后再用image的mousedown抓鼠标点的座标在该位置上标记
(可以想像是在数人头的感觉)
现在可以在对的位置画出我要的标记
但是有个问题是
点了image区域(画标记)之后
image好像是被active还怎样 会挡住新产生的或是已经画好的标记
然后鼠标要滑离开image的范围 标记才会显示回来
(这时候开旁边的选取窗格看图层 是没有变化的)
原程式码如下 CountArea为Image的名称
Private Sub CountArea_MouseDown _
(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
ActiveSheet.Shapes.AddShape _
(msoShapeOval, X +202.5, Y + 2, 30, 30).Select
'标记图形细部格式省略, XY座标后加的数字为图片的位置
Range("AP25").Value = Cells(25, 42) + 1
'标记计数
不知道有没有什么办法可以解决这个问题
谢谢