计算机编程VB PPT.

1、 第二章 VB可视化编程基础2.1.1 对象及概念 一个完整的对象包含了属性、事件和方法，这三个方面称为对象的三要素。 属性：对象的特征（姓名，年龄） 事件：对象能够接受的动作（推） 方法：对象本身所具有的行为（吃饭，说话）2.1.1 对象及概念 属性：对象的特征（大小，标题） 事件：对象能够接受的动作（鼠标单击） 方法：对象本身所具有的行为【例2-2】请写出下列事件过程：单击窗体，将窗体的标题（Caption）设为“第一次编程！”。 对象是窗体，事件是单击，事件功能是修改窗体的标题栏。 Sub Form_Click() Form1.Caption = 第一次编程！ End Sub窗体的属性1

2、窗体的事件2窗体的方法342.2.1 窗体对象 属性 （1）Name：设置窗体的名称，中英文均可，默认的名称为Form1注意：属性窗口中的Name “名称”显示。 （2）Caption : 标题栏中显示的内容 （3）Font: 用于改变窗体或对象上文本的格式 （4）BorderStyle: 设置窗体边框样式 （5）Enabled :用于设置是否允许 用户对窗体进行操作属性 （6）Visible:程序在运行时窗体是否可见。 （7）BackColor和ForeColor :背景色，前景色即在窗体上用Print方法输出的文本颜色 （9）Height,Width: 初始高度和宽度 （10）Pictur

3、e:设置窗体上显示的图片 （11）AutoRedraw属性 :设置窗体上所画图形是否将会被其他窗体覆盖。top和left属性 单位为缇twip：1 twip=1/20点=1/567cm 注意：注意：这四个属这四个属性决定窗体（或控性决定窗体（或控件）的大小和位置。件）的大小和位置。如右图。如右图。事件（1）Click事件：鼠标左键单击窗体触发。Sub Form_Click( )End Sub（2）DblClick事件：鼠标左键双击窗体。Sub Form_DblClick( )End Sub（3）Load事件：一旦启动Visual Basic程序，Load事件将会自动执行。Sub Form_Lo

4、ad( ) End Sub 方法 （1）Print方法：在窗体上输出信息。 （2）Cls方法：清除运行时在窗体上的信息。 （3）Move方法：移动窗体，并可改变其大小。 （4）Show方法：在屏幕上显示一个窗体。 （5）Hide方法：用于使窗体隐藏。【例2-4】程序启动时，在窗体上输出“欢迎进入Visual Basic！”。程序启动时，在窗体上输出，所以事件为窗体的Load事件，输出用Print方法。Load事件中使用Print方法。 Private Sub Form_Load() Form1.Print 欢迎进入Visual Basic！ End Sub窗体的属性1窗体的事件2窗体的方法34

5、2.2.2 标签 label 标签属性名属性名属性值属性值说明说明Caption字符型数据字符型数据标签上显示的文本标签上显示的文本Alignment0标签上的文本左对齐标签上的文本左对齐1标签上的文本右对齐标签上的文本右对齐2标签上的文本居中对齐标签上的文本居中对齐AutoSizeTrue根据根据Caption内容的多内容的多少自动调整控件的大小少自动调整控件的大小False控件的大小保持不变控件的大小保持不变BorderStyle0标签无边框标签无边框1标签有边框标签有边框【例2-5】 在窗体上建立一个标签Label1，单击窗体时标签中的字体放大，标签随着放大。标签随内容变化，需要设置Au

6、toSize属性。Private Sub Form_Click() Label1.FontSize = Label1.FontSize + 1 End Sub2.2.3 文本框 textbox文本框 （一） 属性 1Name属性：默认名称为Text1,Text2 2. Text文本属性:在文本框中显示的正文内容 文本框没有Caption属性MaxLengthMaxLength0 0任意长的字符串任意长的字符串非零值非零值文本框中字符个数的最大值文本框中字符个数的最大值MultiLineMultiLineTrueTrue可输入或显示多行文字可输入或显示多行文字FalseFalse只能输入或显示一

7、行文字只能输入或显示一行文字ScrollBarsScrollBars0 0无滚动条无滚动条1 1只有水平滚动条只有水平滚动条2 2只有垂直滚动条只有垂直滚动条3 3同时同时有有水平和垂直滚动条水平和垂直滚动条PassWordCharPassWordChar字符型数据字符型数据输入的文字全部以这个非空字符显示输入的文字全部以这个非空字符显示在文本框中在文本框中如如 * *LockedLockedTrueTrue不能编辑文本框中的文字内容不能编辑文本框中的文字内容FalseFalse能编辑文本框中的文字内容能编辑文本框中的文字内容SelLengthSelLength数值型数据数值型数据选定的字符个

8、数，只能在程序中设置选定的字符个数，只能在程序中设置SelTextSelText字符型数据字符型数据选定的文字内容，只能在程序中设置选定的文字内容，只能在程序中设置SelStartSelStart数值型数据数值型数据被选定文本的开始位置，从被选定文本的开始位置，从0 0开始，往开始，往后依次递增，只能在程序中设置后依次递增，只能在程序中设置（二）事件（二）事件u Change ： 当改变文本框的当改变文本框的Text属性时会引发该事件。属性时会引发该事件。u KeyPress: 当用户按下并释放键盘上一个当用户按下并释放键盘上一个ANSII键时键时u LostFocus ： 当控件失去焦点时发

9、生。当控件失去焦点时发生。u GotFocus ： 当控件获得焦点时发生。当控件获得焦点时发生。（三）（三） 方法方法 Text1.SetFocus 功能：功能： 是把光标移到指定的文本框对象中。是把光标移到指定的文本框对象中。 【例2-6】在窗体上建立两个文本框Text1和Text2，在Text1中输入内容时，Text2同步以“*”显示相同内容，单击窗体时清除两个文本框内容。 Text1中输入内容时，Text2同步显示，采用文本框的Change事件。 Text2以“*”显示内容，需要将其PassWordChar设置为“*”。 清除文本框内容只需将其Text属性设置为空Private Sub

10、Form_Click()Text1.Text = Text2.Text = End Sub Private Sub Text1_Change()Text2.PasswordChar = *Text2.Text = Text1.TextEnd Sub2.2.4 命令按钮 Command Button命令按钮属性名属性名属性值属性值说说 明明Caption字符型数据字符型数据用于设置命令按钮上显示的内容用于设置命令按钮上显示的内容Default逻辑值逻辑值当设置为当设置为True时，按时，按“Enter”键相键相当于用鼠标单击该按钮当于用鼠标单击该按钮。Cancel逻辑值逻辑值当设置为当设置为Tr

11、ue时，程序运行时按时，程序运行时按Esc键与单击此命令按钮的效果相同键与单击此命令按钮的效果相同。 【例2-7】 图片显示程序。在窗体上建立两个命令按钮Command1和Command2，单击Command1时窗体上显示图片，单击Command2时窗体上图片消失。Private Sub Command1_Click()Form1.Picture = LoadPicture(App.Path + pic.jpg)End Sub Private Sub Command2_Click()Form1.Picture = LoadPicture()End Sub【例2-8】 编写一个设置文本对齐方式的

12、程序。（1）创建对象（2）属性设置（3）代码设计（4）保存（5）调试运行2.4 输入输出 方法2.4.1 Print方法说明详见教材（3）各个表达式需要用“，”（逗号）或“；”（分号）等分隔符隔开。 分号表示按紧凑格式输出，即输出在上一个输出的字符后； 逗号表示按分区格式输出。（14个字符为一个区段）Print “aaaaaa”；bbbbbbaaaaaabbbbbbPrint aaaaaa, bbbbbbaaaaaabbbbbbPrivate Sub Command1_Click() x = 1: y = 2: z = 3 Print 12345678901234567890123456789

13、012345678901234567. Print 11111111111111222222222222223333333333333344444. Print x, y, abc, def 标准位置输出 Print abc, def, x, y 标准位置输出 Print 输出空行 Print 12345678901234567890123456789012345678901234567. Print x; y; abc; def 紧凑格式输出 Print abc; def; x; y 紧凑格式输出 Print 输出空行 Print abc; Print def; Print x, Print

14、 y思考：思考：Print x + y Print x + y 结结果多少？果多少？注意：（1） -（5）（2）Print方法具有计算功能 Print 2 + 3 输出结果为5 Print 2 + 3 输出结果为23（3）分号或逗号为结尾符号。（4）Print方法在Form_Load事件中不能直接起作用，必须先设置窗体的AutoRedraw属性值为True，才能得到输出结果。3.1.2 与Print方法有关的函数1.Tab函数 格式：Tab(n) 功能：在参数n指定的位置输出Tab函数后面的表达式值。如：Print Tab(20); Hello 从窗体的第20个位置开始输出Hello【例2-1

15、0】分析以下程序的输出结果。Private Sub Form_Click() Print Tab(20); * Print Tab(19); * Print Tab(18); * Print Tab(17); *End Sub 格式：Spc(n) 说明：从当前位置跳过n个空格后进行输出，即输出时从当前位置起插入n个空格。Spc与Space 使用效果相同。 2. Spc函数 【例2-11】分析以下程序的输出结果。 Private Sub Form_Click() Print Tab(20); * Print Tab(19); *; Spc (1); * Print Tab(18); *; Spa

16、ce(3); * Print Tab(17); *; Spc (1); *; Spc (1); *; Spc (1); * End Sub 使数值、日期或字符按指定的格式输出。 格式： Format（表达式，格式字符串） 说明： “表达式”为需要格式化的内容； “格式字符串” 指定输出的格式 格式字符串要加上引号作为定界符。 3. Format函数Print Format(12.36, 0.000E+000)Print Format(12.36, 0.0E+0)Format（表达式（表达式，格式字符串，格式字符串）n常用的数值型格式说明字符常用的数值型格式说明字符字符字符说说 明明#数字占位符

17、。显示一位数字或什么都不显示。数字占位符。显示一位数字或什么都不显示。0数字占位符。显示一位数字或是零。数字占位符。显示一位数字或是零。.小数点占位符小数点占位符,千分位符号占位符千分位符号占位符%百分比符号占位符。表达式乘以百分比符号占位符。表达式乘以100。而百分比字符（。而百分比字符（%）会插入）会插入到格式字符串中出现的位置上到格式字符串中出现的位置上$在数字前强加在数字前强加$+在数字前强加在数字前强加+-在数字前强加在数字前强加-E+用指数表示用指数表示E-用指数表示用指数表示 2.4.2 InputBox函数函数n作用作用:打开一个打开一个对话框对话框，等待用户输入内容，等待用户

18、输入内容，当用户单击当用户单击“确定确定” 按钮或按下回车键后，按钮或按下回车键后，函数函数返回返回输入的值，其返回值为输入的值，其返回值为字符型字符型。 n格式：q变量变量$=InputBox(, , , ,qPrivate Sub Form_Load()qInputBox (HELL0!)qEnd Sub【例2-13】运行如下程序得到如图2-29所示的对话框，熟悉InputBox三个常用参数。Private Sub Form_Click() Return = InputBox(提示在这里：, 标题在这里 , 我是默认值 ) Print ReturnEnd Sub3.3 MsgBox函数与M

19、sgBox过程1MsgBox函数 作用：在对话框中显示信息，等待用户单击按钮，并返回一个整数表明单击了哪个按钮。 格式: 变量%=MsgBox(, , )Private Sub Form_Load() MsgBox (HELLO!) End Sub分类分类按钮值按钮值系统符号常量系统符号常量含义含义按钮类型按钮类型0 0vbOKOnly只显示只显示“确定确定”按钮按钮1 1vbOKCancel显示显示“确定确定”及及“取消取消”按钮按钮2 2vbAbortRetryIgnore显示显示“终止终止”、“重试重试”和和“忽略忽略”按钮按钮3 3vbYesNoCancel显示显示“是是”、“否否”和

20、和“取消取消”按钮按钮4 4vbYesNo显示显示“是是”、“否否”按钮按钮5 5vbRetryCancel显示显示“重试重试”、“取消取消”按钮按钮图标类型图标类型1616vbCritical显示显示Critical Message图标图标3232vbQuestion显示显示Warning Query图标？图标？4848vbExclamation显示显示Warning Message图标！图标！6464vbInformation显示显示Information Message图标图标默认按钮默认按钮0 0vbDefaultButton1第一个按钮是默认值第一个按钮是默认值256256vbDef

21、aultButton2第二个按钮是默认值第二个按钮是默认值512512vbDefaultButton3第三个按钮是默认值第三个按钮是默认值768768vbDefaultButton4第四个按钮是默认值第四个按钮是默认值强制返回强制返回0vbApplicationModal应用程序强制返回，当前应用程序被挂起，应用程序强制返回，当前应用程序被挂起，直到用户对消息框作出响应才继续工作。直到用户对消息框作出响应才继续工作。4096vbSystemModal系统强制返回，系统全部应用程序都被挂起，系统强制返回，系统全部应用程序都被挂起，直到用户对消息框作出响应才继续工作。直到用户对消息框作出响应才继续

22、工作。【例2-14】利用MsgBox模拟密码错误提示对话框。Private Sub Form_Click()a = MsgBox(密码错误，请重新输入！, vbOKCancel + vbQuestion, 登录) Print aEnd Sub变量变量%=MsgBox(, , )表表3-5 MsgBox3-5 MsgBox函数的返回值函数的返回值被按下的按钮被按下的按钮返回值返回值系统符号常量系统符号常量确定确定1 1vbOkvbOk取消取消2 2vbCancelvbCancel终止终止3 3vbAboutvbAbout重试重试4 4vbRetryvbRetry忽略忽略5 5vbIgnorevb

23、Ignore是是6 6vbYesvbYes否否7 7vbNovbNo 格式： MsgBox ， ， MsgBox过程和函数实现功能相同，只是没有返回值，常用于较简单的信息输出。2. MsgBox过程Private Sub Form_Load() MsgBox “2*3=” & 2 * 3 End Sub2.5 字体、字形和颜色 方法：属性窗口代码设置3.4.1 字体相关属性的设置 1.属性窗口法2.代码设置法 格式：窗体.控件.属性名称=“值” 例如：FontName = 宋体属性名称属性名称取值类型取值类型 说明说明示例示例FontNameFontNameStringString设置字体类型，默认为设置字体类型，默认为“宋体宋体”FontName = FontName = 宋体宋体 FontSizeFontSizeBooleanBoolean设置字的大小（点数），设置字的大小（点数），默认为默认为8 8FontSize = 20FontSize = 20FontBoldFontBoldBooleanBoolean设置粗体字，默认为假设置粗