如附件中我的程序，通过读取文本文件每一行的部分信息（最后两位数）后，可以在picture控件中生成一个色块，目前我也能做到鼠标挪到picture控件中也可以得到鼠标停留位置的坐标（如窗体左上角），但这个坐标不是我想得到的信息，我想得到的是每一个色块的信息（也就是相应的文本中某一行的前两个数字），例如，我把鼠标在左上角第一个蓝色色块范围内来回移动，窗体左上角的坐标显示要显示为（92,87），只要不出第一个色块范围，这个坐标值是不变的；横排挪动鼠标到第二个色块范围内，窗体左上角的坐标显示要显示为（93,87），后面以此类推。另外，当鼠标挪动到picture空间中右侧和下方纯黑的区域，窗体左上角的坐标是没有任何显示的。

以上是我急需解决的疑问，请路过的版主和各位高手大神不吝赐教，出手援助。

下面一个问题也是我很抓瞎，无从下手，不知该如何解决，但相对上一个问题，急需解决度排在第二：

就是pictuer控件中图片放大缩小的问题，图片内容如上，放大一倍、两倍、最多三倍，缩小看当前图片状态，最多缩小到原图大小。大于原图大小时（两倍大或三倍大时），有移动条可以时图片上下或左右移动。

以上两个问题，在程序中不知道该如何编写语句，烦请路过的版主和各位高手大神不吝赐教，出手援助。这里先拜谢了。

附件两个文件，一个是RAR压缩文件，一个是ZIP文件，内容一样。

不好意思啊，需求没说完整，修改一下。

我想得到的是每一个色块的信息（也就是相应的文本中某一行的所有数字），例如，我把鼠标在左上角第一个蓝色色块范围内来回移动，窗体左上角的坐标显示要显示为（92,87，00），只要不出第一个色块范围，这个坐标值是不变的；横排挪动鼠标到第二个色块范围内，窗体左上角的坐标显示要显示为（93,87，00），挪动鼠标到某个绿色色块范围内，窗体左上角的坐标显示要显示为（XX,YY，01），也就是相应的文本中某一行的所有数字，后面以此类推。

烦请路过的版主和各位高手大神不吝赐教，出手援助。拜谢，拜谢！

下午写了一大堆修改建议，忘了发，关机了。

现在在手机上打字，多的不说了。
看了你的程序，基本上面向对象的方向的
写小工程还无所谓，你这个有点不合适。
使用面向对象搭ui，用面向过程搭逻辑处理。

需要保存读到的所有数据，用于提示，你这个程序抛弃了，重写吧。

最后，每个色块换理来说是正方形的，而你按 显示区域 来划分格子，不成正方形，并且与你那个放大功能冲突。

显示提示，根据XY和格式大小，计算所在的格子，然后显示内容。

你数据文件格式也没说明

[此贴子已经被作者于2019-11-13 23:18编辑过]

都是简单的东西。
反应出 逻辑运算不过关，数学不过关。
好吧，我也不怎么的。

大神！跪拜叩首！

写的匆忙，可以有错误！不知效果如何？

您好，谢谢您的回复。

我试了一下，发现一个问题，当鼠标移至某个红点时，指示框内最后面一个数字是“01”，这里错了，“01”应该为绿色。横排向后一个格子指示框内最后面一个数字非“01”，应为红色，但显示为绿色，简单来说估计是指示框横排错了一格。比如第一排的唯一的一个红点的指示框内应该显示为：“134,90,05”，不该显示为“133,90,01”。

另外，看到您使用了指示框功能，这个功能会有一定的拖延，在某些情况下不能显示，再给您一个文件试试，这个文件里的数据比较多。在程序里，有这几个地方要改一改：
1、    wd = "204"
       ht = "225"
2、向下几行的Right(temp, 2)都改成Right(temp, 1)。
您再试一试。

另外，您是否能够将生成的图片，放大一倍、两倍、三倍......?  缩小看当前图片状态，最多缩小到原图大小。当图片放大超出窗体时，有移动条可以时图片上下或左右移动，看到超出窗体的部分。

放大图片可能会遇到一个问题，就是间隔的黑线也会随之加粗，在放大到一定倍数后格子就会发生变化，大小不同，很丑陋。如果您会放大缩小功能，就用我刚刚上传的文件试一试。

在这里再次向您表示感谢！

写完了；老费劲了；

我忽然有种预感！过两天，楼主会不会再发一个更大的111.txt，让我改写代码？

晕，这么大的图像啊，1倍时就要出滚动条。服了。

我的代码修改如下部分以便适合你这样经常改大小的情况。
1、BAS 中，
'坐标最大值，根据实际来定义，从0起
'Public Const MaxX = 71          '72个格子
'Public Const MaxY = 79          '80个格子
改成下面这行
Public MaxX As Long, MaxY As Long

'读取的整个数据
'Public D(MaxX, MaxY) As 数据结构
改成下面这行
Public D() As 数据结构

2、FORM中
Private Sub Form_Load()   
在这个过程中，开头就增加3行
MaxX = 204 - 1
MaxY = 225 - 1
ReDim D(MaxX, MaxY)
为什么要减1，因为数据起始从0开始，所以需要减1.

------------修改方向
1、建立打开文件的按钮，来调用 这二行
Call 读数据文件("111.txt")
Call 绘图(Picture1)

2、读数据文件前，要求输入图像大小。
然后保存到 maxx 和 maxy 变量中去，同时重新执行 ReDim D(MaxX, MaxY) 。