关于图片显示的问题... ... ... ... ... ...

Question

当点击一个Image1里的图片时，弹出一个对话框，
对话框上显示以鼠标点击图片的坐标为中心的图像。用VB代码如何写。

Answer 1

意思没有特别懂，也许是这个Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox "X:" & X & "   Y:" & Y
End Sub

Answer 2

有两个窗体
第一个窗体，有一个Image 控件，
第二个窗体，有一个Picture 控件，在 Picture 上有一个Image 控件
            此窗体为点击第一个窗体Image 中的图片时弹出的窗口
            该窗体显示的内容为以鼠标点击的坐标为中心的局部图像。
            也就是第二个窗体显示鼠标点击为中心的周围的图像内容。

Answer 3

程序效果如下面的这张图所示http://lcgc.51.net/exp.jpg如何用VB代码写出来。

Answer 4

...很简单啊。你先确定第二个窗体中的Picture里面的图片是原来图片的放大倍数，然后用PaintPicture方法绘画图片到PictureBox中去（如果连PaintPicture都不会，就当我白说了）绘画后，再调整当前Picturebox的位置，具体根据点击Image的X和Y，还有放大倍数来计算。具体代码自己写，这也是提高水平的一个办法。

Answer 5

怎么才能把点击第一个窗体Image 的X　和　Y　传给弹出的窗体上变量。

Answer 6

对话框自己写一个，就用一般的窗体，模式窗体显示。
然后使用窗体的PAINTPICTURE方法从鼠标所在的IMAGE对象上拷贝图像就可以了。