vbnet屏幕位置 vbnet doevents

在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 '声明转换要用到vbnet屏幕位置的变量

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

ScreenToClient(Me.Handle.ToInt32, P) '转换为本窗体vbnet屏幕位置的坐标

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

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

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

End Sub

相关问答

Q1: VB.NET的窗体是通过什么属性来控制在屏幕上的位置的？

.Top 和 .Left

.Top 是距离屏幕顶端vbnet屏幕位置的距离,也就是Y坐标

.Left 是距离屏幕左边vbnet屏幕位置的距离，也就是X坐标

例如

Private Sub Form_Load()

    With Me

        .Top = 0

        .Left = 0

    End With

End Sub

把自己的位置调到最左上角

Q2: VB.NET 可视化窗体应用程序设计的时候窗体在屏幕的位置

StartPosition属性有如下选项，分别含义如下：

CenterParent 窗体在其父窗体中居中。

CenterScreen 窗体在当前显示窗口中居中，其尺寸在窗体大小中指定。

Manual 窗体的位置由Location属性确定。

WindowsDefaultBounds 窗体定位在Windows默认位置，其边界也由Windows默认决定。

WindowsDefaultLocation 窗体定位在Windows默认位置，其尺寸在窗体大小中指定。

CenterScreen的意思并不是屏幕居中(是相对的),它是在"当前显示窗口"中居中。当用Show()方法时应选择CenterScreen,用ShowDialog()方法时应选择CenterParent,这样才能让要显示的窗口居中。

Q3: VB.net 界面无法出现在屏幕中央

要么在属性栏设置，要么在 new 事件里 写这句代码

load事件无用

   Public Sub New()

        InitializeComponent()

        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

    End Sub

vbnet屏幕位置的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet doevents、vbnet屏幕位置的信息别忘了在本站进行查找喔。