第三章  赋值与输入 / 输出
双击滚屏  关闭窗口

 

3.5 基本结构

  3.5.1 控件的公共属性
  3.5.2 命令按钮
  3.5.3 标签  
  3.5.4 文本框


3.5.1 控件的公共属性

( 1 ) Name 属性:用于定义控件对象的名称。控件的 Name (名称)属性必须以字母开头,其后可以是字母、数字和下划线。名称长度不能超过 40 个字符。

( 2 ) Caption 属性:用于确定控件的标题。

•  Enabled 属性:决定控件是否对用户旌的事件做出相应。

•  Visible 属性:决定控件是否可见。

•  Height , Width , Top , Left 属性: Height 和 Width 属性确定控件的高度和宽度, Top

和 Left 属性用于确定控件在窗体中的位置。 Top 表示控件到窗体顶部的距离, Left 表示控件到窗体左边的距离。如图 3.7 所示。

                


图 3.7 控件的大小及位置

( 6 ) BackColor 和 ForeColor 属性:这两个属性用于设置控件的背景色和前景色。

( 7 ) FontName , FontSize , Fontbold , Fontitalic , FontStrikethru 和 FontUnderline 属性:这些属性用于设置推荐件中显显示文本所用的字体、字号、是否粗体、是否斜体、是否加删除线和是否带下划线。

( 8 ) Font 对象属性:确定控件中显示的文本所用字体的样式、大小、字体效果等。

3.5.2 命令按钮

1 .常用属性

( 1 ) Default 属性和 Cancel 属性:窗体上的命令按钮常会有一人“默认”按钮和一个“取消”按钮。

( 2 ) Style 属性:设置命令按钮的外观。

( 3 ) Value 属性:该属性只能在程序运行期间使用。设置为 True 表示该命令按钮被按下。

2 .常用事件和方法

命令按钮最常用的事件是 Click 事件,但不支持 DblClick 事件。

命令按钮常用的方法是 SetFocus 方法。

3.5.3 标签

标签( Label )主要用来显示比较固定的提示信息。

1 .常用属性

( 1 ) Alignment 属性:设置标签中文本的对齐方式。

( 2 ) AutoSize 属性:确定标签的大小是否根据标签的内容自动调整。

( 3 ) BoderStyle 属性:设置标签的边框。

( 4 ) BackStyle 属性:设置标签的背景模式。

( 5 ) WordWrap 属性:设定标签大小是否根据其内容改变垂直方向的大小,即是否增减行来适应内容的改变,但保持宽度不变。为了使 WordWrap 起作用,应把 AtuoSize 属性设置为 True 。

2 .常用的事件和方法

标签可触发 Click 和 DblClick 等事件。

标签支持 Move 方法,用于实现控件的移动。

3.5.4 文本框

1 .常用属性

( 1 ) Maxlength 属性:该属性确定文本框中文本的最大长度

( 2 ) Multiline 属性:该属性指定文本框中是否允许显示和输入多行文本。

( 3 ) PasswordChar 属性:该属性确定在文本框中是否显示用户输入的字符,常用于密码输入。

( 4 ) ScrollBars 属性:该属性指定在文本框中是否出现滚动条。

( 5 ) SelStart 、 SelLength 和 SelText 属性:这 3 个属性用来标识用户选定的文本,它们只在运行阶段有效。

( 6 ) Text 属性:该属性设置或返回文本框中所饮食的文本内容。

( 7 ) Locked 属性:该属性设置文本框是否可以进行编辑修改。

2 .常用事件和方法

文本框支持 Click , DblClick 等鼠标事件,同时支持 Chang , gotFocus , LostFocus 等事件。

文本框常用方法有 SetFocus 方法和 Move 方法。

[ 例 3.4] 输入一个总秒数,化成小时、分钟和秒数,然后显示出来。

( 1 )创建应用程序的用户界面和设置对象属性,如图 3.8 所示。

               

图 3.8 例 3.4 的运行结果

( 2 )编写两个命令按钮的单击事件过程代码如下:

Private Sub Command1_Click()

Dim h As Integer, m As Integer, s As Integer, t As Integer

t = Val(Text1.Text)

h = t \ 3600

t = t - h * 3600

m = t \ 60

s = t - m * 60

Text2.Text = h

Text3.Text = m

Text4.Text = s

Text1.SetFocus

End Sub

Private Sub Command2_Click()

End

End Sub

 
双击滚屏  关闭窗口
 
版权所有数学与信息科学学院