vb窗口在屏幕上的位置

写程序时,vb有个显示程序窗口在显示器位置的预览图,我在里面把程序右端与显示器右端对齐了,在我电脑上没问题。
但是老师的电脑上运行窗口有一大半都在显示器右端外了,设置了更大的分辨率才到中间来,但右端没对齐了。
怎么才能在任意分辨率下达到原效果?

首先把界面在图纸上画好了,记下各处控件的位置和大小(一般是top left width height四个参数)注意坐标系是从屏幕的左上角为原点,向右为X,向下为Y

在form的load事件中加入代码:
me.top= '窗体上边的位置
me.left= '窗体左边的位置
me.width= '窗体的宽度
me.height=‘窗体的高度
........
(然后是各控件相对窗体的相对位置、大小参数)
只要老师的屏幕分辨率和你电脑是一样的或是比你的大就可以正常显示。
如还有不明白之处可邮件联系。zst1982@foxmail.com
温馨提示:内容为网友见解,仅供参考
无其他回答

用VB编写程序时若想让窗体永远在屏幕最前面该怎么做?
在使用VB编写程序时,若希望窗体始终显示在屏幕最前面,可以通过调用SetWindowPos函数实现。具体代码如下:在程序中定义SetWindowPos函数,使用Private Declare Function语句实现,参数包括:hwnd(要移动的窗口句柄)、hWndInsertAfter(插入的窗口句柄,-1表示插入在顶层窗口的最前端)、x、y、cx、cy(窗口位置和...

vb判断控件在屏幕上的坐标
窗体与屏幕左边的距离 + 控件与窗体左边的距离 因为VB中默认的计量单位与像素是15比1的关系 所以转化为像素就要除以15

vb.net多屏时控制窗体显示在哪个显示器上
''' 多屏显示屏幕设置''' 目标窗体''' 由0开始的屏幕索引,0为主屏幕Private Sub ShowScreens(obj As Form, scrIndex As Integer) Dim arr As Screen() = Screen.AllScreens If scrIndex < arr.Length Then obj.Left += arr(scrIndex).Bounds.X Else Dim mess As String =...

vb窗口在屏幕上的位置
首先把界面在图纸上画好了,记下各处控件的位置和大小(一般是top left width height四个参数)注意坐标系是从屏幕的左上角为原点,向右为X,向下为Y 在form的load事件中加入代码:me.top= '窗体上边的位置 me.left= '窗体左边的位置 me.width= '窗体的宽度 me.height=‘窗体的高度 ...(然后...

vb窗口在屏幕上的位置
首先把界面在图纸上画好了,记下各处控件的位置和大小(一般是top left width height四个参数)注意坐标系是从屏幕的左上角为原点,向右为X,向下为Y 在form的load事件中加入代码:me.top= '窗体上边的位置 me.left= '窗体左边的位置 me.width= '窗体的宽度 me.height=‘窗体的高度 ...(然...

vb窗体位置的控制
其位置可由三个主要属性来确定: StartUpPosition:“启动位置”属性 ;Height: 高度参数值;Width: 宽度参数值;其启动位置属性包括如图1.13所示的四种情形。图1.13窗体的位置属性设置 其中,设置“手动”属性时,窗体在运行启动时首先出现在屏幕的左上角,然后用户可以通过鼠标进行拖动,这就是所谓的“...

VB.NET 可视化窗体应用程序设计的时候窗体在屏幕的位置
Manual 窗体的位置由Location属性确定。WindowsDefaultBounds 窗体定位在Windows默认位置,其边界也由Windows默认决定。WindowsDefaultLocation 窗体定位在Windows默认位置,其尺寸在窗体大小中指定。CenterScreen的意思并不是屏幕居中(是相对的),它是在"当前显示窗口"中居中。当用Show()方法时应选择CenterS...

联想小新电脑的vb在哪里
联想小新电脑的vb在stratposition属性里。VB可以在设置form的stratposition属性里找到,其中manual表示form在屏幕左上角显示,centerscreen表示在屏幕中间显示,windowsdefaultlocation表示在屏幕左上方显示。VB是VisualBasic编程语言编写计算机程序需要使用计算机编程语言。

VB中如何编程让窗体在屏幕上左右来回移动
添加一个定时器,定时器移动,超过屏幕自动回来。代码如下:Dim M As Integer '定义变量,确定移动方向Private Sub Form_Load()Timer1.Interval = 200 '移动时间 0.2秒移一次Me.Left = 0 '左空初始为0M = 0 '默认先向右移End SubPrivate Sub Timer1_Timer()If (Me.Left + Me.Width) > ...

VB里msgbox函数弹出对话框在屏幕上的位置应该用什么代码改啊
msgbox 没有位置信息 常见人问改msgbox的更改。也有人回答一堆API去改,的确达到了目的。但我认为,编程是累人的活,但让自己累着。最简单的的画个窗口,show 1即可了。想怎么做怎么做,大小位置随心所欲了。

相似回答