一个纵坐标确定两个横坐标，怎么读取中间白色两边坐标，读取5组

[hfbjfinejd]

[赵4老师]

Point 方法示例 本示例使用 Point 方法来确定一个窗体上的一个指定点的颜色。要检验此示例，可将本例代码粘贴到一个窗体的声明部分，然后按 F5 键并单击该窗体。 Private Sub Form_Click () Dim LeftColor, MidColor, Msg, RightColor ' 声明变量。 AutoRedraw = -1 ' 打开AutoRedraw。 Height = 3 * 1440 ' 将高度设置为 3 英寸。 Width = 5 * 1440 ' 将宽度设置为 5 英寸。 BackColor = QBColor(1) ' 将背景设置为蓝色。 ForeColor = QBColor(4) ' 将前景设置为红色。 Line (0, 0)-(Width / 3, Height), , BF ' 红框。 ForeColor = QBColor(15) ' 将前景设置为白色。 Line (Width / 3, 0)-((Width / 3) * 2, Height), , BF LeftColor = Point(0, 0) ' 查找左框颜色，, MidColor = Point(Width / 2, Height / 2) ' 中框， 和 RightColor = Point(Width, Height) ' 右框。 Msg = "The color number for the red box on the left side of " Msg = Msg & "the form is " & LeftColor & ". The " Msg = Msg & "color of the white box in the center is " Msg = Msg & MidColor & ". The color of the blue " Msg = Msg & "box on the right is " & RightColor & "." MsgBox Msg ' 显示信息。 End Sub