
正文
vb.net屏幕位置 vbnet override
提示:扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
vb.net如何定义启动窗体的默认位置?
方法如下vb.net屏幕位置:
1、打开例1.1创建vb.net屏幕位置的工程。
2、选择窗体Form1并双击该窗体vb.net屏幕位置,出现窗体vb.net屏幕位置的调事件的过程代码体。
3、在窗体调用的过程代码体中编制如下过程代码vb.net屏幕位置:
Private Sub Form_Load()
Form1.Width = 4860
Form1.Height = 2520
End Sub
4、设置窗体Form1的SartUpPosition属性为2-屏幕中心,这样运行窗体可以发现,屏幕的大小与例1.6中通过属性设置的大小是一致的。
相关问答
Q1: vb.net 窗口位置
你的 Me.StartPosition =FormStartPosition.CenterScreen 写在哪的?
写在Form_Load事件里是不起作用的(也不叫不起作用,只是那个时候窗体已经不算Start了),一般代码是这样写,在Form1中的某个地方
Dim frm As New Form2
frm.StartPosition =FormStartPosition.CenterScreen
frm.ShowDialog()
如果你一定要在Form2中通过代码设置,可以把Me.StartPosition =FormStartPosition.CenterScreen移到Form2的构造函数中。
Q2: VB.net 界面无法出现在屏幕中央
要么在属性栏设置,要么在 new 事件里 写这句代码
load事件无用
Public Sub New()
InitializeComponent()
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
End Sub
Q3: VB.NET的窗体是通过什么属性来控制在屏幕上的位置的?
.Top 和 .Left
.Top 是距离屏幕顶端vb.net屏幕位置的距离,也就是Y坐标
.Left 是距离屏幕左边的距离vb.net屏幕位置,也就是X坐标
例如
Private Sub Form_Load()
With Me
.Top = 0
.Left = 0
End With
End Sub
把自己的位置调到最左上角
Q4: 在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
Q5: 如何在代码中设置vb.net运行初始界面与屏幕右上角对齐?
获取屏幕大小宽和高 和初始化窗口的尺寸 屏幕减尺寸等于你想要的left值 和top值 即屏幕比你窗体高多少 宽多少就是你右对齐的初始值 右上角对齐top依旧为0
vb.net屏幕位置的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于vbnet override、vb.net屏幕位置的信息别忘了在本站进行查找喔。






