vb窗体属性

vb窗体属性

统一属性
Private Sub Form_Load()
Dim Txt As Control
For Each Txt In Form1
If LCase(TypeName(Txt)) = "textbox" Then
Txt.Font.Size = 16  '字体的大小
End If
Next
End Sub




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

ControlBox =True '【默认显示右上角按钮】
ControlBox =False '去掉右上角按钮

’Me    【表示此窗体】  
’True  【表示可用】
’False 【表示不可用】

form2.show'【打开窗体：
form1.hide'【关闭窗体：
Form2.Show vbModal, Form1 '【打开窗体： Form2 , 想操作  Form1 必须先关闭 Form2 [如果设置了 Form1一定在顶端 就要取消这个设置]

Me.Move X, Y   ’窗体位置
Screen.Width   ’屏幕宽度
Screen.Height  ’屏幕高度

Icon = (None)去图标。
Moreabce = True      窗体大小【默认:可移动】
Moreabce = False     窗体大小【不可移动】

MaxButton = True ’窗体最大化   【默认:可用】
MaxButton = False ’窗体最大化  【不可用】

MinButton = True ’窗体最小化   【默认:可用】
MinButton = False ’窗体最小化  【不可用】

Me.WindowState = 0 - normal  【默认:窗体按设计时大小显示。】
Me.WindowState =1 - maximized  【窗体最小化显示。】
Me.WindowState =2 - maximized  【窗体最大化显示。】


'【传递窗体内容】
Form2.Text1.Text = Form1.Text1.Text


'【除了【默认】窗体无法缩放和移动】
borderStyle = 2 - Sizable    【默认】
borderStyle = 0 - None         【去掉窗体外壳：form2】
borderStyle = 1 - Fixed Single 【不能改变窗体大小只显示 错“X”
========
'【定义为0 - None后输入】【可移动无边框窗体 - 代码】
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static FormX%, FormY%
If Button = 1 Then
Me.Move Me.Left - FormX + X, Me.Top - FormY + Y
ElseIf Button = 0 Then
FormX = X
FormY = Y
End If
End Sub

_____________________________________________________________________________ _

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