computer 版 (精华区)

发信人: windoe (为中国电信做贡献), 信区: program
标  题: VB:我希望窗体一运行就在屏幕的中央，怎么实现？
发信站: 听涛站 (Fri Mar 10 19:08:58 2000), 转信

VB的系统对象Screen记录了当前显示模式的高度和宽度，
可以利用这个值来设置窗体的位置。
Sub CenterForm(frm As Form) ’定义过程
frm.Move (Screen.width - frm.width) \ 2, (Screen.Height - frm.Height) \ 2
End Sub
Private Sub Form_Load()
CenterForm Me ’调用过程
End Sub


--By Kammi's SuperPost General Version
--

夜中不能寐，起坐弹鸣琴。
    薄帷鉴明月，清风吹我襟。
孤鸿号外野，翔鸟鸣北林。
    徘徊将何见，忧思独伤心。