vb.net转换坐标 c#坐标转换

在VB.net中怎么获取 鼠标在屏幕中的坐标

Private Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As Long '全屏坐标声明

为民勤等地区用户提供了全套网页设计制作服务,及民勤网站建设行业解决方案。主营业务为成都做网站、成都网站制作、民勤网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!

Private Declare Function ScreenToClient Lib "user32.dll" (ByVal hwnd As Int32, ByRef lpPoint As POINTAPI) As Int32 '窗口坐标声明

Private Structure POINTAPI '声明坐标变量

Public x As Int32 '声明坐标变量为32位

Public y As Int32 '声明坐标变量为32位

End Structure

'以上是声明部分

'以下是窗口部分

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick '用时钟控件来取坐标,窗口上放个Timer组件,Enabled为允许,周期为10到100毫秒均可

Dim P As POINTAPI '声明坐标变量

Dim xx, yy '声明转换要用到的变量

GetCursorPos(P) '获取鼠标在屏幕中的位置

ScreenToClient(Me.Handle.ToInt32, P) '转换为本窗体的坐标

xx = P.x.ToString '把X转换成能显示到文本框的字符串格式

yy = P.y.ToString '把Y转换成能显示到文本框的字符串格式

TextBox1.Text = xx + "和" + yy '文本框的内容为X坐标和Y坐标

End Sub

VB.NET坐标变换

Dim g As Graphics = PictureBox1.CreateGraphics

g.TranslateTransform(2, 2) ‘定义原点坐标

g.ScaleTransform(1, -1) ’X轴不变,反转Y轴

以PictureBox1中(2,2)点为新的原点(0,0)

向右为X轴正方向 向上为Y轴正方向

可不可以回答一下,vb.net中的窗体坐标和屏幕上的屏幕坐标怎么转换?? (最好是有代码) 祝好人一生平安!

vb.net 2008

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a_Point, b_Point, c_point As Point

b_Point = MousePosition '鼠标点击坐标(屏幕上的屏幕坐标)

a_Point = PointToClient(MousePosition) 'vb.net中的窗体坐标

c_point = PointToScreen(a_Point) '将vb.net中的窗体坐标转换成屏幕上的屏幕坐标

End Sub

End Class


文章题目:vb.net转换坐标 c#坐标转换
本文链接:http://myzitong.com/article/dodpojc.html