Visual Basic程序设计案例教程第4章.pptVIP

例4-3 移动窗体并改变窗体的大小。 （1）编写代码。 在窗体的Form1_ Click事件过程中，输入如下代码： Private Sub Form1_ Click ′Form1窗体的Click单击事件过程 Form1. Move left-15,top+15,width-20,height-20 ′移动窗体 End Sub 代码窗口如图4-10所示。 4.3.1 窗体 4.3.1 窗体 图4-10 例4-3代码窗口 4.3.1 窗体 （2）运行程序。 启动应用程序，每单击一次窗体，该窗体就会向屏幕的左边、下方各移动15 Wip，同时将窗体的宽度高度都减少20Wip，窗体随着单击越变越小，而且越来越靠近左下方。 （6）Refresh（刷新）方法。 强制全部重绘窗体及控件。 调用格式：[对象名].Refresh 4.3.2　文本框 文本框（TextBox）是一个文本编辑区域，在文本框内可以输入、编辑和显示一行或者多行文本。 1．属性 （1）Name（名称）属性。 此属性用来指定文本框的名称，在程序代码中用这个名称来引用文本框。 （2）Text（文本）属性。 Text属性既可以输入文本，又可以输出信息。程序运行时，在文本框中输入信息，会自动保存在Text属性中。Text属性是文本框使用最多和最为重要的属性。 4.3.2　文本框 （3）Multiline（多行）属性。 该属性决定文本框中的内容是否可以显示多行，缺省值为False（假），只能输入一行文本。当将Multiline属性设置为True（真）时，程序运行时就可以在文本框中输入多行文本。当输入的文本超出文本框的边界或者按【Enter】键，文本会自动换行。 （4）Alignment（对齐）属性。 设置文本框中文本内容的对齐方式。该属性有3个值：0—Left Justify（左对齐）；1—Right Justify（右对齐）；2—Center（中间对齐）。 4.3.2　文本框 （5）PasswordChar（密码字符）属性。 此属性的值决定程序运行时从键盘上输入字符的显示字符。例如，一个文本框text1，设置它的PasswordChar属性值设为“*”，程序运行时，无论从键盘向文本框text1中输入任何字符，都会将输入的每一个字符在屏幕上显示为“*”。但是，Text属性接收的是实际输入的字符。这一属性经常被用在设置密码的情况中，以保证输入密码的安全性。 4.3.2　文本框 例4-4 编程实现检查密码输入是否正确。如果正确，显示“密码正确！”；如果输入错误，显示“密码错误，请再输入！”。密码假设为“666888”。 （1）设计界面。 界面中的控件有2个标签、1个文本框、1个命令按钮。 （2）设置属性。 界面中每个控件对应的属性设置如表3-2所示。 4.3.2　文本框 表4-2 属性设置 控件 属性名 属性值 窗体 Name Form1 Caption 密码检查 标签 Name Lable1 Caption 请输入密码 标签 Name Lable2 Caption 空 文本框 Name Text1 Text passwordchar * 命令按钮 Name Command1 Caption 确定 4.3.2　文本框 属性设置后的界面如图4-11所示。 图4-11 例4-4的界面设计 4.3.2　文本框 （3）编写代码。 Private Sub Command1_Click() Dim Password As String Password = Text1.Text ′将文本框text1内输入的内容赋给变量Password If Password = 666888 Then ′判断Password的值与密码666888是否相同 Label2.Caption = 密码正确！ ′相同，显示密码正确 Else Label2.Caption = 密码错误，请再输入！ ′不相同，显示密码错误 End If End Sub 代码窗口如图4-12所示。 4.3.2　文本框 图4-12 例4-4代码窗口 4.3.2　文本框 （4）运行程序。 单击工具栏中的“启动”工具按钮，运行程序，显示界面如图4-13所示。 图4-13 例4-4运行界面 4.3.2　文本框 单击文本框，输入密码，例如“123456”，在文本框中显示6个“******”。单击界面上的“确定”按钮，触发Commad1_Click事件，程序中将输入的字符串与事先设置好的密码“666888”进行比较，由于密码和预先设置好的密码不同，在标签中显示“密码错误，请再输入！”的提示信息，如图4-14所示。重新运行