VB实验会话：双倍程序与过程实验.pdfVIP

SessionTwoTheDoubleItProgram:Experimentingwith

Procedures

OpenaNewProjectfromtheFilemenu,andsavetheprojectasDoubleIt.

Makeaformthatlooksliketheformbelow,usingthetoolboxtocreatetheobjects

showninthePropertiestable:

PropertiesTable:

目的财产环境

FormNamefrmDoubleIt

Text双倍计划

文本框Nametxt编号

Text（空白的）

文本对齐

字体大小18

文本框Nametxt编号

Text（空白的）

文本对齐

字体大小18

启用错误的

请注意，如果组合框的向下箭头包含一系列可能的值（例如TextAlign

和Enabled属性），您只需双击属性值本身即可获取所需的值，而无需

使用向下箭头。

您可能还注意到上面的表单不包含“”按钮。要包含按钮，您可

以像以前一样输入过程的结束代码。按钮是终止程序的简洁且推荐

的方式。然而，当您仍在学习VB时，将其包含在每个程序中会变得相当乏

味且耗时。结束程序的另一种（且更快）方法是单击中的“停止”按

钮。请注意，它当前呈“灰色”，因为没有程序正在运行。

从现在开始，您可以设置自己的“”按钮，或者仅使用“停止”图标退

出程序。按钮并不总是包含在这些会话的属性表中。

我们现在将代码添加到对象中。

双击txtNumber文本框（表单顶部的文本框）。对于出现的过程(txtNumber_

TextChanged())，键入以下一行代码：

_

PrivateSubtxtNumberTextChanged()

txtNumberDoubled.Text=Val(txtNumber.Text)*2End

Sub

ObjectPropertySetting

Form