窗体中显示画出点的坐标

Question

窗体中显示画出点的坐标，代码如下：

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim x As Integer = 8
        Dim y As Integer = 8

        Dim rect As Rectangle = Rectangle.FromLTRB(x - 4, y - 4, x + 4, y + 4)
        e.Graphics.DrawEllipse(SystemPens.ControlText, rect)
        e.Graphics.FillEllipse(SystemBrushes.ControlText, rect)

    End Sub
End Class

画出点的坐标为（８，８），怎样把“（８，８）”显示在点的右下方一点。用什么语句可以实现这种功能？

---

visual studio 2008

Answer 1

  e.Graphics.DrawString(String.Format("{0},{1}", x, y), Me.Font, Brushes.Red, x + 4, y + 4)

---

http://feiyun0112.cnblogs.com/

Answer 2

feiyun0112 说:

  e.Graphics.DrawString(String.Format("{0},{1}", x, y), Me.Font, Brushes.Red, x + 4, y + 4)

---

http://feiyun0112.cnblogs.com/

 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim t As Single
        Try
            t = DirectCast(sender, System.Windows.Forms.TextBox).Text
            x = t
        Catch
        End Try
        Me.Invalidate()
    End Sub
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        Dim t As Single
        Try
            t = DirectCast(sender, System.Windows.Forms.TextBox).Text
            y = t
        Catch
        End Try
        Me.Invalidate()
    End Sub

 Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        e.Graphics.SmoothingMode = SmoothingMode.AntiAlias '消除锯齿
        e.Graphics.TranslateTransform(0, Me.ClientRectangle.Height) '平移变换,将Y坐标下移Form的高度
        e.Graphics.ScaleTransform(1, -1) '缩放变换,Y坐标缩放比例为-1以完成Y的反向
        e.Graphics.TranslateTransform(0, 60) '把坐标原点放在(0,60)

e.Graphics.DrawString(String.Format("{0},{1}", x, y), Me.Font, Brushes.Black,  x + 4, y +4)

    End Sub
End Class

可以显示，但是坐标值倒过来了。

---

visual studio 2008

Answer 3

转化好的坐标系，我还要用到其它地方，所以不能改的。怎么解决坐标值倒过来了。

---

visual studio 2008

Answer 4

既然我已经转化好了坐标系，为什么‘坐标值’是倒立的？

---

visual studio 2008

Answer 5

下面的图像也会倒置 ，我下面的代码是正确的，为什么画出的函数图像也是倒立，这肯定跟转移的坐标系有关系，但是我也是按照规定来转移坐标系的，为什么画出的函数图像会倒置呢？能不能帮我解答下啊 ？
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

        e.Graphics.TranslateTransform(0, Me.ClientRectangle.Height) '平移变换,将Y坐标下移Form的高度

        e.Graphics.ScaleTransform(1, -1) '缩放变换,Y坐标缩放比例为-1以完成Y的反向

        e.Graphics.TranslateTransform(0, 60) '把坐标原点放在(0,60)

        Dim pen1 As Pen

        pen1 = New Pen(Color.Black, 2)

        Dim i As Integer

        Dim x1, x2, y1, y2 As Integer

        e.Graphics.DrawLine(pen1, 50, 150, 350, 150)

        e.Graphics.DrawLine(pen1, 50, 250, 50, 60)

        e.Graphics.DrawLine(pen1, 350, 150, 345, 145)

        e.Graphics.DrawLine(pen1, 350, 150, 345, 155)

        e.Graphics.DrawLine(pen1, 50, 60, 45, 65)

        e.Graphics.DrawLine(pen1, 50, 60, 55, 65)

        x1 = 50

        y1 = 150

        For i = 1 To 100

            x2 = 50 + i * 2

            y2 = 150 - Sin(3.1415926 / 50 * i) * 100

            e.Graphics.DrawLine(pen1, x1, y1, x2, y2)

            x1 = x2

            y1 = y2

            If (i Mod 5 = 0) Then

                e.Graphics.DrawLine(pen1, x1, y1, x1, 150)

            End If

        Next 

End Sub 

    Private Sub Form1_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.SizeChanged
        Me.Invalidate()
    End Sub
End Class

---

visual studio 2008

Answer 6

原来的坐标系是X向右，y向下

你改成X向右，y向上，当然图像翻了

---

http://feiyun0112.cnblogs.com/

Answer 7

我的理解是 我的函数图像是在新坐标轴中画的，应该遵从新坐标系的坐标。
难道新函数还是要按照原来的坐标系，那我转换的坐标轴有什么意思？怎么才能解决这个问题呢？
关键是我需要在新坐标系中画直线，如果这样的话，我就没办法利用新坐标系了。

---

visual studio 2008

Answer 8

当然 遵从新坐标系的坐标， 你这样画就明白了

e.Graphics.DrawLine(pen1, 0, 0, 100, 0)
        e.Graphics.DrawLine(pen1, 0, 0, 0, 100)
        e.Graphics.DrawLine(pen1, 0, 0, 100, 100)

---

http://feiyun0112.cnblogs.com/

Answer 9

feiyun0112 说:

当然 遵从新坐标系的坐标， 你这样画就明白了

e.Graphics.DrawLine(pen1, 0, 0, 100, 0)
        e.Graphics.DrawLine(pen1, 0, 0, 0, 100)
        e.Graphics.DrawLine(pen1, 0, 0, 100, 100)

---

http://feiyun0112.cnblogs.com/

我能够明白，为什么我上面的坐标值（x,y）在窗体中的显示会倒过来呢？

---

visual studio 2008

Answer 10

既然新坐标系中画直线是正常的，为什么坐标值（x,y）的显示不正常？

---

visual studio 2008

Answer 11

liunain021 说:

既然新坐标系中画直线是正常的，为什么坐标值（x,y）的显示不正常？

---

visual studio 2008

所有的点都翻转了，当然文字也一样

---

http://feiyun0112.cnblogs.com/

Answer 12

feiyun0112 说:

liunain021 说:

既然新坐标系中画直线是正常的，为什么坐标值（x,y）的显示不正常？

---

visual studio 2008

所有的点都翻转了，当然文字也一样

---

http://feiyun0112.cnblogs.com/

点可以，线也可以，图形就不可以了，这样不矛盾了吗？有解决的办法吗？

---

visual studio 2008

Answer 13

楼主，你好

你是想在窗体中建立自己的坐标系，然后在新坐标系中绘图。

但是无论你的新坐标系怎么建立，计算机默认的始终是它的默认的坐标系，即y轴向下。

你干脆自己建立一个函数，专门用来把新坐标系的值转换为计算机默认的坐标值进行绘图。
网上的例子你可以参考下。

http://bbs.pfan.cn/post-173703.html

---

Microsoft Online Community Support

Answer 14

 非常非常的感谢feiyun0112MVP, 版主；KeFang Chen - MSFT版主 的精彩解答！我会仔细研读你们提供的资料。

对于我这个初学者来说，开始弄的时候确实不易。

---

visual studio 2008