可不可以回答一下，vb.net中的窗體坐標和屏幕上的屏幕坐標怎么轉換？？ （最好是有代碼） 祝好人一生平安!

vb.net 2008

我們提供的服務有：成都網站設計、成都網站建設、微信公眾號開發、網站優化、網站認證、輪臺ssl等。為上千企事業單位解決了網站和推廣的問題。提供周到的售前咨詢和貼心的售后服務，是有科學管理、有技術的輪臺網站制作公司

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中怎么獲取 鼠標在屏幕中的坐標

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當前窗體坐標 vbmdi窗體
文章位置：http://vcdvsql.cn/article18/ddcssgp.html

成都網站建設公司_創新互聯，為您提供小程序開發、建站公司、網站內鏈、移動網站建設、微信公眾號、網站建設

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯