VB 控件属性

VB 控件属性

Me.WindowState = 2 '最大化本程序窗口
Me.WindowState = 1 '最小化本程序窗口
Me.WindowState = 0 '还原本程序窗口   
Unload Me         '关闭本程序窗口  


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


'在Text1中选中字符串
  Text1.SelStart = ii - 1       '鼠标指针
  Text1.SelLength = Len(Text2)  '在控件被选中的字符的长度
  Text1.SetFocus                '在控件中选中字符串

text1 文本在右方法 Alignmant=1
Text1.MaxLength = 2 '控件对多输入2个字符

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

VB 控件属性

Label1.AutoSize=True【控件大小=字体大小】【点击字体发生事件】
Label1.AutoSize=False【默认】


[导入图片]
Image1.Picture = LoadPicture("C:\1.bmp")
Picture1.Picture = LoadPicture("C:\1.bmp")

【隐藏控件】
Visible    false '【隐藏控件】
Visible    True  '【显示控件】【默认】
'如' Text1.Visible = False   '【隐藏控件】

【是否选中控件】【VCheck控件】
’通用代码
【控件名】.Value=True   '【选中控件】     
【控件名】.Value=False  '【不选中控件】【默认】
’属性【如果不是True\False】【VCheck控件】

Option1.Value = False '【不选中控件】
Option1.Value = True  '【选中控件】

Check1.Value = 0  '【不选中控件】
Check1.Value = 1  '【选中控件】

1-Checked 【选中控件】
0-Unchecked 【不选中控件】【默认】
【不用True\False表示的控件写代码也可以用True\False来表示】

【禁用控件】   【控件名】.Enabled =【是否禁用控件】
Command1.Enabled = False  '【禁用控件】
Command1.Enabled = True   '【控件可用】【默认】

’【计算结果控件】
在VB的工程-部件里，增加：
Microsoft Script Control 1.0
放一个到窗体。
【显示控件内容的计算结果】
Text1 = ScriptControl1.Eval(Text1)


’【时间控件】
Dim a As Integer '必须在前

Private Sub Command1_Click()
Timer1.Interval = 1000
a = 30                       '从30开始
Label1.Caption = a         
End Sub

Private Sub Timer1_Timer()   '增加时间控件【样子是闹钟】
a = a - 1
Label1.Caption = a           '到几时显示在Label1控件中
If a = 0 Then                 '停止时间为0
Timer1.Enabled = False         
End If
If a < 6 Then               '当时间只剩下5秒时
Label1.ForeColor = vbRed     '字体颜色为红色
End If
End Sub



控件属性--
Appearance 控件外观
AutoRedraw 自动重画  
AutoSize\True’控件长度=内容长度
BacKColor 背景色
BordeStyle 边框样式
Caption 文本
ClipControls 控制窗体和控件的绘制
ControlBox 标题栏的控制按钮
DrawMode 画图模式
DrawStyle 画图线形
DrawWidth 画图线形宽度
Enabled 有效
FillColor 填充颜色
FillStyle 填充形式
Font 字体
FontTransparen 字体透明
ForeColor 前景色
HasDC 忘了
Height 高度
HelpContextID 帮助主题ID
Icon 图标
KeyPreview 接收键盘事件
Left 左边框位置
LinkMode 连接模式
LinkTopic 连接专题
MaxButton 最大化按钮
MDIChild MDI子窗体
MinButton 最小化按钮
MouseIcon 鼠标指针图标
MousePointer 忘了
Moveable 能移动吗？
NegotiateMenus 导航菜单
OLEDropMode OLE拖动模式
Palette 调色板
PaletteMode 调色板模式
Picture 图像
RightToLeft 右向左布局
Scaleheight 内部高度单位
ScaleLeft 内部左边框单位
ScaleMode 内部单位模式
ScaleTop 内部上边框单位
ScaleWidth 内部宽度单位
ShowInTaskbar 在任务栏显示
StartUpPsitio 启动时窗体位置
Tag 标签
Top 上边框位置
Visible 可见
WhatsThisbutto 帮助按钮
WhatsThisHelp 帮助主题
Width 宽度
WindowState 启动状态

_____________________________________________________________________________ _

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