锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net转屏幕坐标 vb如何实现图形旋转

IT技术打不开

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 坐标的转化也就是A(x,y)-------A'(y*sin(x*pi/180),y*cos(x*pi/180))------------前提是先：
Dim g As Graphics = Me.PictureBox1.CreateGraphics
g.TranslateTransform(x, y)'实现坐标平移，即把圆中心作为了坐标原点了-----该处的x,y为圆心在要作图picture中的相对坐标
g.ScaleTransform(1, -1)'X轴不变 ， 反转Y轴
用VB.NET写一个获取鼠标当前屏幕的坐标.vb.net转屏幕坐标你好 那因为vb.net转屏幕坐标你放在vb.net转屏幕坐标了Label1控件的移动事件vb.net转屏幕坐标了。
说明：
当前你的代码是在当鼠标经过Label1的MouseMove事件才被激活vb.net转屏幕坐标，其他事件不备激活的 。
建议应用函数调用具体方法网上应该有
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
TextBox1.Text = System.Windows.Forms.Cursor.Position.X.ToString","System.Windows.Forms.Cursor.Position.Y.ToString
End Sub
上面代码我是做过测试才发的，完全能实现你的要求?。。。。。?
VB.NET中如何获取TextBox的光标屏幕坐标？TextBoxBase.GetPositionFromCharIndex 方法
检索控件内指定字符索引处的位置 。
此方法使您得以确定特定字符索引在控件中的位置 。此方法可用于诸如显示快捷菜单项或控件中某个单词的帮助信息等任务 。例如 ， 如果希望当用户在控件中的单词上右击时向用户显示选项菜单 ， 则可以使用此方法确定单词的位置以正确显示 ContextMenu 控件 。
Control.PointToScreen 方法
将指定工作区点的位置计算成屏幕坐标 。
在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毫秒均可
【vb.net转屏幕坐标 vb如何实现图形旋转】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中的窗体坐标和屏幕上的屏幕坐标怎么转换？？ （最好是有代码） 祝好人一生平安!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 '鼠标点击坐标（屏幕上vb.net转屏幕坐标的屏幕坐标）
a_Point = PointToClient(MousePosition) 'vb.net中vb.net转屏幕坐标的窗体坐标
c_point = PointToScreen(a_Point) '将vb.net中vb.net转屏幕坐标的窗体坐标转换成屏幕上vb.net转屏幕坐标的屏幕坐标

推荐阅读


上一篇：山西专注sap软件运维，sap 运维招聘

下一篇：帝国时代3下载，帝国时代3下载手机版