编程学习biancheng.45soft.com 本站提供了各种在线教程和资料,供大家学习与参考.
编程学习
当前位置: 主页 > VB6 > 对象和程序设计 > VB6 对象和程序设计 窗体和基本控件的基本属性

VB6 对象和程序设计 窗体和基本控件的基本属性

1.Name名称属性

创建的对象有它默认的名称。在程序中,控件名是作为对象的标识而引用,不会显示在窗体上。可在属性窗口重新修改Name的属性值从而达到修改控件名称的目的。



2.Caption标题属性

该属性决定了在控件上显示的内容。



3.Height、Width、Top和Left属性

Height、Width属性,决定了控件的高度和宽度。Top和Left属性决定了控件距离窗体的上边框距离和距离窗体的左边边框的距离(如果是窗体则是针对屏幕而言)。

在窗体上设计控件时,VB自动提供了默认的坐标系统,窗体的上边框为坐标横轴,右方向为横轴正方向,左边框为坐标纵轴,向下方向为纵轴正方向。窗体左上角顶点为坐标原点。默认长度单位为twip(缇)。

应用程序要使窗体在屏幕的中央显示,可用如下代码:

Form.Left=(Screen.Width-Form.Width)/2
Form.Top=(Screen.Height-Form.Height)/2



4.Enabled属性

决定控件是否可操作。 当设置为False时,呈暗淡色,禁止用户进行操作。当设置为为True时,允许用户操作,并能对做出的操作做出响应。.



5. Visible属性

运行时控件是否可见。当设置为False时, 用户看不到控件,但控件本身存在。可以通过在程序中设置这个属性,使控件需要时出现,不需要时不出现。



6. Font属性

窗体和基本控件的基本属性_对象和程序设计_VB6


FontName字体  FontSize字体大小  FontBold是否是粗体
FontItalic是否斜体  FontStrikeThru是否加一删除线
FontUnderline是否带下划线

在窗体上建立两个命令按钮,名称分别是command1和command2。command1的font属性用代码实现。从属性窗口设置command2的font属性为隶书、斜体、四号。

rivate Sub Form_Load()
Form1.Top = (Screen.Height - Form1.Height) / 2 '使窗体在屏幕的中央
Form1.Left = (Screen.Width - Form1.Width) / 2
Command1.Caption = "确定"
Command1.FontName = "黑体"
Command1.FontSize = 20  '数值
Command1.FontBold = True '粗体
Command1.FontItalic = True '斜体
Command1.FontUnderline = True '下划线
Command1.FontStrikethru = True '中穿划线
Command1.Enabled = False '按钮不可用 。默认可用

'用代码设定command2的属性

Command2.Caption = "取消"
Command2.FontName = "隶书"
Command2.FontSize = 20
Command2.FontBold = True
Command2.FontItalic = True
Command2.FontUnderline = True
End Sub


7. Forecolor前景颜色属性

设置控件的前景颜色(即正文颜色). 其值是一个16进制常数,用户可以在调色板中直接选择所需颜色。



8. Backcolor背景颜色属性



9. Backstyle背景风格属性

transparent:透明显示,即控件背景颜色显示不出来。

1-opaque: 不透明,此时可为控件设置背景颜色。



10. BorderStyle边框风格属性


0-None:控件周围没有边框

1-Fixed Single:控件带有单边框。

上述属性值和意义仅适合于Label、Text、Picture等控件,对于窗体、Line、Shape的BorderStyle属性有其他不同范围的值和的意义。



11. Alignment属性

控件上正文水平对齐方式  

0: 正文左对齐 1:  正文右对齐2:  正文居中(VB常数分别为vbLeftJustify、vbRightJustify、vbCenter)



12. AutoSize属性

控件是否根据正文自动调整大小。

False:保持原设计时的大小,若正文太长自动裁减掉。

True: 自动调整控件的大小。



13. WordWarp属性  

只有当AutoSize 属性值设置为True时,WordWarp属性才生效。

True: 按正文字体大小和多少在垂直方向上改变显示区域的大小。在水平方向上不发生变化。

False: 表示在水平方向上按正文长度放大和缩小;垂直方向上以字体大小来缩放显示区域。



14.MousePointer 属性

该属性值表示在鼠标移动某个特定控件上时,被显示的鼠标指针类型。设置的值的范围为0—15,若值为99时,用户可通过设置属性MouseIcon的值来改变指针显示的图标。



15.MouseIcon属性

用户自己定义鼠标图标,文件类型为.ico或.cur。只有当MousePointer=99时,MouseIcon设置才有效。


16.TabIndex

窗体和基本控件的基本属性_对象和程序设计_VB6

决定了按Tab键时,焦点在各个控件间移动的顺序。各个控件默认TabIndex属性的值就是以控件建立时的顺序,第一个建立的控件的TabIndex属性值为0。可以通过代码或属性窗口中重新设定TabIndex属性值。


有5个标签,其名称默认值为Label1—Label5,每个标签的宽度和高度相同,有关属性设置如下:

默认控件名(Name) 标题(Caption) 有关属性设置
Form1 颜色、对齐、鼠标属性例 MousePointer=99 MouseIcon=key04.ico
Label1 左对齐 Alignment=0,BordStyle=1
Label2 居中 Alignment=2,BordStyle=1
Label3 自动 Autosize=True,WordWrap=False, BordStyle=1
Label4 背景白 BackColor=&H00FFFFFF&, BordStyle=0
Label5 前景红 ForeColor=&H000000FF&, BordStyle=0

部分代码

Private Sub Form_Load()
    'Form1.Name = "标签颜色、对齐、鼠标属性用编程实现例"
    '鼠标置于对象区域时才显示此区域定制的鼠标指针图标
    Form1.Top = (Screen.Height - Form1.Height) / 2
    Form1.Left = (Screen.Width - Form1.Width) / 2
    Form1.MousePointer = 99
    Form1.MouseIcon = LoadPicture(App.Path + "\key04.ico")
    '鼠标置于左边对齐标签区域位置时鼠标指针图标
    Label1.MousePointer = 99
    Label1.MouseIcon = LoadPicture(App.Path + "\pc04.ico")

    '鼠标置于中间对齐标签区域位置时鼠标指针图标
    Label2.MousePointer = 99
    Label2.MouseIcon = LoadPicture(App.Path + "\trash02b.ico")

    Label1.Alignment = 0     '文字左对齐
    Label1.BorderStyle = 1   '有边框

    Label2.Alignment = 2     '文字中间对齐
    Label2.BorderStyle = 1    '有边框

    Label4.BackColor = &HFFFFFF   '背景白色
    Label4.BorderStyle = 0      '无边框

    Label5.ForeColor = &HFF    '显示红色文字
    Label5.BorderStyle = 0     '无边框

    Label3.AutoSize = True
    Label3.WordWrap = True     '垂直方向改变标签大小
    Label3.FontName = "黑体"   '以下设定该标签标题文字的属性
    Label3.FontSize = 48
    Label3.FontBold = True
    Label3.FontItalic = True

    Label3.BorderStyle = 1
    'lblAutoAlignment.Alignment = 1
End Sub



17.控件默认属性

反映该控件最重要的属性,使用时可省略属性名。

控件名 属性名 控件名 属性名
文本框 Text 标签 Caption
命令按钮 Caption 图形、图片 Picture
单选按钮 Value 复选框 Value

例如:Label.Caption="朱子家训"与Label="朱子家训"都是设置标签控件的Caption属性值为“朱子家训”。



编程学习 VB6 对象和程序设计 窗体和基本控件的基本属性 转载请保留此行.谢谢.

VB6