Question

VB如何在picture控件内点亮指定范围的image

假设我在picture控件内制作了一张背景A，背景A一直显示。随后将picture控件作为一个容器，里面加入一个image图片B现在我要实现在背景像素坐标（X>100 & X<300，Y>500 & Y<700）（X>800 & X<1000，Y>900 & Y<1100）这个两个范围内点击鼠标，image图像B在这两个范围内显示出来。而且，要实现范围1，范围2同时可以显示，或者任意一个可以显示。不能是显示了一个范围另一个范围就没了。不是上面两个范围，按鼠标没有任何反应。图片显示最好是使用到焦点，不然估计程序太冗长了。最后需要一个清除所有已经显示的图片B的command。请高手给出源码。确定能用就给分，千万别是不动脑筋的复制黏贴。

Answer 1

可以用代码实现。
以下代码是我原来做过的实例里剪出来的，你可以参考一下，imgPreview 为Image对象。
Private Type PreviewSize
sngLeft As Single
sngTop As Single
sngWidth As Single
sngHeight As Single
intZoon As Integer
End Type
Private muPreviewSize As PreviewSize
Private Const cmChangeSize = 1.2
'// 缩小
Private Sub Command1_Click()
With muPreviewSize
.intZoon = .intZoon - 1
.sngHeight = .sngHeight / cmChangeSize
.sngWidth = .sngWidth / cmChangeSize
imgPreview.Stretch = True
imgPreview.Move .sngLeft, .sngTop, .sngWidth, .sngHeight
'// 如果已经缩小了9倍则缩小按钮不可用
If .intZoon < -9 Then
Command1.Enabled = False
Command2.Enabled = True
Else
Command2.Enabled = True
End If
End With
End Sub
'// 放大
Private Sub Command2_Click()
With muPreviewSize
.intZoon = .intZoon + 1
.sngHeight = .sngHeight * cmChangeSize
.sngWidth = .sngWidth * cmChangeSize
imgPreview.Stretch = True
imgPreview.Move .sngLeft, .sngTop, .sngWidth, .sngHeight
'// 如果已经放大了9倍则放大按钮不可用
If .intZoon > 9 Then
Command2.Enabled = False
Command1.Enabled = True
Else
Command1.Enabled = True
End If
End With
End Sub
Private Sub Form_Load()
With muPreviewSize
.intZoon = 0
'// + 0.5 为Image的边框
.sngHeight = imgPreview.Height + 0.5
.sngWidth = imgPreview.Width + 0.5
.sngLeft = imgPreview.Left
.sngTop = imgPreview.Top
End With
End Sub

Answer 2

可以用现歌歌来表事