vb.net控件坐标 vb如何显示坐标

VB.NET 坐标查找问题

代码就不写了,给你思路,默认左上角是原点,所以x的位置=窗口高度-y.

专注于为中小企业提供成都网站建设、成都网站设计服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业越秀免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了数千家企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。

这样就获得xy

复杂点的办法是重写绘制,绘制十字,

简单点的办法就是十字放到picbox或者image里,然后取中,然后隐藏,确定按钮点击显示,中心位置等于坐标点,然后换算左上角控件位置,然后设置坐标.

VB.NET怎么让控件往指定坐标移动

Button1.Location = New Point(100, 100)

Button1.Left = 100

Button1.Top = 100

在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控件坐标 vb如何显示坐标
文章转载:http://bzwzjz.com/article/dopgidh.html

其他资讯

Copyright © 2007-2020 广东宝晨空调科技有限公司 All Rights Reserved 粤ICP备2022107769号
友情链接: 成都网站设计 成都网站建设 成都网站设计 网站制作公司 网站建设 成都网站建设 网站制作 成都网站设计公司 手机网站制作 手机网站制作 品牌网站建设 四川成都网站设计 重庆网站制作 成都网站建设 成都网站设计 重庆企业网站建设 成都网站建设 成都网站建设 成都企业网站制作 品牌网站建设 重庆企业网站建设 定制网站建设