第2章 Visual Basic应用程序的创建与基本控件

1第2章VisualBasic应用程序的创建与基本控件2VisualBasic应用程序的创建与基本控件本章内容：开发VisualBasic应用程序的一般方法与步骤窗体和命令按钮、标签、文本框等基本控件的使用方法3学习目标了解VisualBasic应用程序的结构和工作方式。理解创建VisualBasic应用程序的一般步骤。掌握工程的管理、控件的编辑的方法。掌握窗体、命令按钮、标签、文本框的基本属性、方法和事件，能够熟练地把它们应用于应用程序之中。42.1创建VisualBasic应用程序的方法与步骤VisualBasic应用程序的结构工程一个工程由模块组成，常用的模块有窗体模块、标准模块模块窗体模块、标准模块由过程组成过程编写程序代码的基本单位VisualBasic应用程序的工作方式事件驱动的工作方式5工程的管理主要的操作有创建、打开工程关闭工程添加、删除模块保存工程可通过集成环境中的工程管理窗口来完成6控件的编辑窗体的组成窗体的组成工作区控制框控制按钮标题栏边框标题7控件的编辑控件的基本操作选中控件移动控件修改控件大小删除控件复制控件布局控件8控件的编辑控件属性的设置在设计模式下，利用属性窗口设置当前控件的属性值在程序运行中改变控件属性的值在程序代码中对属性的赋值设置控件属性属性列表框属性名称属性值被选中的属性设置List属性9在程序中使用控件的属性和方法在程序中访问对象属性对象名属性名例如：x=Form1.CaptionForm1.Caption=“标题”访问对象的默认属性时，可以只写对象名而省略“.属性名”在程序中调用对象方法对象名方法名[参数表]例如：Form1.Print“输出”10事件过程的命名窗体事件过程的命名Form_事件名称例如PrivateSubForm_Click()EndSub控件事件过程的命名控件名称_事件名称例如PrivateSubText1_KeyPress(KeyAsciiAsInteger)EndSub11创建VisualBasic应用程序的一般步骤创建工程对于普通应用，一般建立一个“标准EXE”类型的新工程建立交互界面在自动建立的窗体上画各种控件设置属性值利用属性窗口为窗体和控件设置属性的初始值设计、编写窗体和控件的事件过程为用到的事件过程设计算法和数据结构，利用代码窗口编写各个过程的程序代码运行和调试程序保存工程12创建VisualBasic应用程序的一般步骤例2-1设计一个欢迎窗口，标题为“欢迎”。程序运行时，命令按钮的标题变为“按钮”，单击命令按钮则在窗体上显示“欢迎”二字编写程序PrivateSubForm_Load()Command1.Caption=按钮EndSubPrivateSubCommand1_Click()Print欢迎EndSub例2-1的运行界面132.2窗体与基本控件窗体和大多数控件所共有的几个属性Name属性是对象的名称，只能在属性窗口中设置，程序中只能引用，不能修改Caption属性。窗体和部分控件的标题位置属性Width、Height、Left、Top，它们决定了对象的尺寸和对象在“容器”中的位置Left、Top属性的含义命令按钮的Top图片框的Top命令按钮的Left图片框的Left图片框14窗体和大多数控件所共有的几个属性Font属性FontName或Font.Name：表示文本的字体，是字符型，例如：“宋体”或“黑体”FontSize或Font.Size：表示文本的大小（即字号），是一个整数FontBold、FontItalic、FontUnderline、FontStrikethru：控制文字的外观，是逻辑型，当值为True时，分别表示文字是粗体、斜体、文字带下划线、加删除线Enabled属性决定对象是否可用，是逻辑型Visible属性决定对象是否可见，是逻辑型15窗体和多数控件所共有的几个方法Move方法把对象移动到指定的位置处调用格式[对象名.]Moveleft[,[top][,[width][,height]]]left——对象左边界到“容器”左边界的距离，即水平坐标（X轴坐标）top——对象上边界到“容器”上边界的距离，即垂直坐标（Y轴坐标）width——对象的新宽度height——对象的新高度方法成功调用后，对象的Left、Top、Width、Height属性也具有了这4个参数的值例如Text1.MoveText1.Left,10016窗体和多数控件所共有的几个方法SetFocus方法使对象获得焦点调用格式[对象名.]SetFocus例如Text1.SetFocus方法调用成功后，Text1文本框就获得了焦点只有具有“输入”功能的控件才可以获得焦点17窗体和大多数控件所共有的几个事件Click事件用户用鼠标左键单击对象时引发GotFocus、LostFocus事件当窗体或控件获得焦点时引发GotFocus事件当窗体或控件失去焦点时引发LostFocus事件当窗体上有可以获得焦点的控件时，窗体的GotFocus、LostFocus事件无效以下情况可使焦点转移鼠标左键单击无焦点的对象按Tab键一次调用了某个控件的SetFocus方法18窗体基本属性MaxButton、MinButton属性逻辑型，控制最大化按钮和最小化按钮是否可用ControlBox属性逻辑型，为False时，不管MaxButton、MinButton属性是True还是False，所有3个控制按钮以及左边的控制框都不显示Picture属性用来在窗体上显示一幅图片19窗体的常用方法Print方法调用格式[窗体名.]Print[显示表达式表]功能：在窗体上显示“显示表达式表”中的所有表达式的值例如PrivateSubCommand1_Click()PrintPrint方法的功能EndSub单击按钮前单击按钮后Cls方法调用格式[窗体名.]Cls功能：清除窗体上显示的所有信息，不包括窗体中控件上显示的信息20窗体的常用事件Load事件在窗体加载后显示前自动引发。通常用来编写进行窗体初始设置工作的程序事件过程首部：PrivateSubForm_Load()Unload事件Unload事件在窗体从内存中卸载前自动引发事件过程首部：PrivateSubForm_Unload(CancelAsInteger)若Cancel在事件过程中没有修改或被赋值为0，执行完Unload事件过程之后，窗体正常关闭若Cancel在事件过程中被赋值为非0值，执行完Unload的事件过程之后窗体不关闭21窗体的常用事件DblClick事件鼠标左键或右键双击窗体工作区中没有控件的区域时引发Resize事件窗体的尺寸发生变化时引发Activate事件窗体成为当前窗体（即活动窗体）时引发DeActivate事件当前窗体成为非当前窗体就引发22命令按钮命令按钮的基本属性Caption属性命令按钮上显示的文字Style属性0：标准样式，默认值，按钮上只显示文字，不显示图形1：图形样式，按钮上既可显示文字，也能显示图形Picture属性为按钮指定一个图形Default属性为True时，当按回车键产生与鼠标左键单击按钮相同的效果Cancel属性为True时，当按“Esc”键产生与鼠标左键单击按钮相同的效果Value属性为True时，产生与鼠标左键单击该按钮相同的效果用于在程序中模拟单击按钮的操作23标签基本属性Caption属性：标签上显示的内容，是默认属性Alignment属性：对齐方式。0:左对齐，是默认值；1:右对齐；2:居中对齐AutoSize属性：是否按标题的内容自动调整大小，是逻辑型BorderStyle属性0：无边框，默认值。程序运行时，看不到标签的边界。1：有边框。程序运行时，外观产生凹陷的效果BackStyle属性0：背景透明，标签所覆盖的内容也可以显示，此时背景色无效。1——Opaque：背景不透明，此时背景色有效。是默认值。标签的属性AutoSize=True有边框AutoSize=False“小”字不显示有边框BackStyle=1背景色为红色无边框左对齐BackStyle=0不显示背景色有边框居中对齐24文本框基本属性Text属性（字符型）是默认属性，Text属性的值就是文本框中显示的内容MultiLine属性（逻辑型）文本框是否可以多行显示ScrollBars属性（整型）0——None：无滚动条；1——Horizontal：水平方向有滚动条；2——Vertical：垂直方向有滚动条；3——Both：水平方向和垂直方向都有滚动条Maxlength属性（整型）文本框中可以输入字符的最大数目PasswordChar属性设置输入密码时的显示字符25文本框常用方法主要有Move、SetFocus常用事件Change事件在文本框中的文本发生变化，即文本框的Text属性的值发变化时，引发Change事件Click事件DblClick事件26文本框例2-4：在窗体上画2个文本框，名称分别为Text1、Text2，要求：当在Text1中输入文本时，在Text2中同步显示例2-4的界面运行界面同步复制例2-4程序代码PrivateSubText1_Change()Text2.Text=Text1.TextEndSub27作业二练习（不交）P45，上机题1、2上机作业（要交）P45，上机题4、5P46，上机题7、8