VB移动控件

VB移动控件


例:将窗体上所有对象的位置向左移1000缇：【"-"是向右移】

Private Sub Command1_Click()
For Each lxn In Controls
lxn.Left = lxn.Left + 1000
Next lxn
End Sub
====================
例:将窗体上除"Command1"的所有对象的位置向左移1000缇：【"-"是向右移】

Private Sub Command1_Click()
For Each lxn In Controls
If lxn.Tag <> "lxm" Then
lxn.Left = lxn.Left + 1000
End If
Next lxn
End Sub

Private Sub Form_Load()
Command1.Tag = "lxm" '名称为"Command1"的控件不移动
End Sub
====================================================
在程例如要使窗体居于显示器中央，有两个新属性变量，
screen.width  '显示器的屏幕宽度
screen.height '显示器的屏幕高度

使对话框在显示屏中间：
Private Sub Form_Load()
Form1.Left = (Screen.Width - Form1.Width) / 2
Form1.Top = (Screen.Height - Form1.Height) / 2
End Sub


_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/