理学简单的VisualBasic程序设计

2023/10/25机械工业出版社1常用控件PictureBox图片框TextBox文本框CommandButton命令按钮OptionButton选项按钮ListBox列表框Vscroll垂直滚动条Label标签Frame框架CheckBox复选框ComboBox组合框Hscroll水平滚动条Timer计时器Shape形状Line线条Image图像框2023/10/25机械工业出版社23.3窗体和基本控件

3.3.1对象的公共属性Name（名称）属性1)标识引用对象的作用(所有对象都具有的属性）2)每个对象在创建时，VB就自动为它创建一个默认名称(对象类名后跟编号，编号从1开始，依次顺延)

；自行命名对象的命名规则：必须以一个字母或汉字开头，可包含字母、数字、汉字和下划线，但不能包含空格和西文标点符号，长度不得超过40个字符3)在同一窗体中，控件对象的名称属性值是唯一的、不能同名，在同一工程中，窗体对象也不能同名4)设计态时，通过属性窗口设置Name属性；在程序运行时，它是只读的，不能改变图3-12对象的Name属性2023/10/25机械工业出版社33.3.1对象的公共属性位置属性（Left、Top、Width、Height）Left和Top属性决定对象左上角在它所在容器对象里的相对位置坐标。Width和Height属性决定对象自身的宽度和高度。图3-13对象的位置属性2023/10/25机械工业出版社43.3.1对象的公共属性Visible属性

Visible属性用以设置程序运行时对象是否可见，属性值有：True：默认值，程序运行时对象可见。False：程序运行时对象不可见，但仍然存在。2023/10/25机械工业出版社53.3.1对象的公共属性Font属性组窗体对象和凡是涉及到文本或标题的对象都具有该属性组。可以更改文本或标题的字体、字体样式、字体大小、是否具有下划线等一系列属性。2023/10/25机械工业出版社63.3.1对象的公共属性Enabled属性

Enabled属性用于决定是否允许操作对象，一般在程序中设置，用于临时屏蔽对窗体对象或其他对象的控制，属性值有：True：默认值，允许用户操作对象。

False：呈暗淡色，禁止用户进行操作。2023/10/25机械工业出版社73.3.1对象的公共属性ForeColor、BackColor属性ForeColor和BackColor属性用来设置对象的前景色和背景色。前景色是该对象上显示的文本（正文）的颜色。背景色则是正文以外其他区域的颜色。2023/10/25机械工业出版社83.3.1对象的公共属性在设计阶段用户可在属性框里相应的属性下用调色板直接选取，如图3-14所示。图3-14对象的BackColor属性2023/10/25机械工业出版社93.2窗体窗体是VB最重要的对象，它用于创建VB应用程序的用户界面或对话框，是包容用户界面或对话框所需的各种控件对象的容器在创建新工程时，VB会在窗体设计器中自动新建一个空白的窗体，要求以它为起点创建程序一个应用程序通常包含多个窗体，其中应有一个窗体作为程序的启动窗体，也就是运行程序时首先出现的窗体。系统默认第一个窗体，即属性Name为Form1的窗体为启动（起始）窗体。用户也可使用工程菜单→工程属性，自定义设置起始窗体2023/10/25机械工业出版社103.3.2窗体常用属性Caption属性该属性是对象上或标题栏上显示的内容，往往在外观上起到提示和标志的作用在设计态和程序运行时，均可修改该属性值图3-15窗体的Caption属性2023/10/25机械工业出版社113.3.2窗体MinButton、MaxButton属性

MinButton属性和MaxButton属性分别用于设置窗体右上角的最大化按钮和最小化按钮。Icon属性

Icon属性用于改变系统提供的默认窗体图标。可以单击属性窗口中Icon项右边的“...”按钮，选择一个存在的图标文件装入即可。2023/10/25机械工业出版社123.3.2窗体BorderStyle属性

BorderStyle属性用于设置窗体的边框样式。BorderStyle属性取值如下表所示。属性值样式名称意义0None无边框。无法移动及改变大小1FixedSingle固定单边框。可以包含控制菜单框，标题栏，最大化按钮和最小化按钮。只有使用最大化和最小化按钮才能改变大小2Sizable（默认值）可调整大小的边框2023/10/25机械工业出版社133.3.2窗体属性值样式名称意义3FixedDialog固定对话框。可以含控制菜单框和标题栏，不包含最大化和最小化按钮，不能改变尺寸4FixedToolWindow固定工具窗口。不能改变尺寸，显示关闭按钮并用缩小的字体显示标题栏5SizableToolWindow可变尺寸工具窗口。可变大小，显示关闭按钮并用缩小的字体显示标题栏2023/10/25机械工业出版社143.3.2窗体Picture属性Picture属性用于设置在窗体上显示的背景图片。在程序代码中设置该属性的方法如下：

[Form1.]Picture=LoadPicture(图形文件源路径及文件名)如果装入的图片与应用程序在同一文件夹，图形文件源路径及文件名为：

App.Path+"\文件名"2023/10/25机械工业出版社153.3.2窗体WindowState属性

WindowState属性用于设置该窗体首次出现时的状态，其取值如下表所示：属性值状态名称意义0Normal（缺省值）正常状态1Minimized最小化状态，以图标方式运行2Maximized最大化状态，无边框，充满整个屏幕2023/10/25机械工业出版社163.3.2窗体常用事件Click事件当用户将鼠标置于窗体上，按下鼠标左键并立即释放（即单击事件），此时，便会在窗体上触发Click事件。事件过程格式为：

PrivateSubForm_Click()......EndSub2023/10/25机械工业出版社173.3.2窗体DblClick事件当用户在窗体上双击时触发DblClick事件。事件过程格式为：

PrivateSubForm_DblClick()......EndSub2023/10/25机械工业出版社183.3.2窗体Load事件在装载一个窗体时触发Load事件。当应用程序启动时，Form_Load()事件过程将被自动执行。因此，通常用来在启动应用程序时对属性和变量初始化。事件过程格式为：

PrivateSubForm_Load()......EndSub2023/10/25机械工业出版社193.3.2窗体主要方法Print方法Print方法用于在窗体对象上输出相关信息。语法格式为：

[窗体名.]Print[输出项]2023/10/25机械工业出版社203.3.2窗体Cls方法Cls方法用于清除运行时在窗体上显示的文本或图形，使用时不带任何参数。语法格式如下：

[窗体名.]Cls2023/10/25机械工业出版社213.3.2窗体【例3-2】设计应用程序，要求程序运行时，当用户单击窗体，在窗体上显示“VisualBasic程序设计教程”，要求字体类型为楷体，字体大小为20磅，字形为粗斜体并且文字下具有下划线，如图3-16所示；当用户双击窗体，清除窗体上的所有内容。图3-16【例3-2】运行结果2023/10/25机械工业出版社223.3.2窗体分析：在窗体的Click事件过程中，使用窗体的Print方法可在窗体上输出相关信息。在窗体的DblClick事件过程中，使用窗体的Cls方法可清除窗体上显示的文本。2023/10/25机械工业出版社23Font系列字体属性FontName字体类型FontSize字体大小FontBold粗体FontItalic斜体FontStrikethru加删除线FontUnderLine加下划线编写代码2023/10/25机械工业出版社243.3.2窗体PrivateSubForm_Click()Form1.FontName="楷体_GB2312"'设置字体为楷体

Form1.FontSize=20'设置字号为20Form1.FontBold=True'设置粗体

Form1.FontItalic=True'设置斜体

Form1.FontUnderline=True'设置下划线

Form1.Print"VisualBasic程序设计教程"EndSubPrivateSubForm_DblClick()Form1.ClsEndSub2023/10/25机械工业出版社253.3.2窗体【例3-3】设计应用程序，要求程序运行时，窗体上无最大化、最小化按钮，标题栏显示“窗体的装入事件”，在窗体上装入一幅图片作为背景，如图3-17a)所示；图3-17a)【例3-3】Load事件过程的运行结果2023/10/25机械工业出版社263.3.2窗体当用户单击窗体时，去除窗体背景，标题栏显示“窗体的单击事件”，如图3-17b)所示。图3-17b)【例3-3】Click事件过程的运行结果2023/10/25机械工业出版社273.3.2窗体分析：使用Form的Load事件过程在启动应用程序时对窗体的Caption属性和Picture属性初始化可实现窗体标题和窗体背景的改变。在窗体的Click事件过程中通过设置窗体的Picture属性和Caption属性可实现去除窗体背景和窗体标题的改变。编写代码2023/10/25机械工业出版社283.3.2窗体PrivateSubForm_Load()Form1.Caption="窗体的装入事件"

Form1.Picture=LoadPicture(App.Path+"\niao.jpg")EndSubPrivateSubForm_Click()Form1.Picture=LoadPicture("")Form1.Caption="窗体的单击事件"EndSub2023/10/25机械工业出版社293.3.2窗体Move方法Move方法用于在屏幕上移动窗体或在窗体上移动控件，并可以改变其大小，其语法格式如下：

[窗体名.]MoveLeft[，Top[，Width[，Height]]]

其中：Left：表示窗体相对于屏幕左边缘的水平坐标(x轴)。Top：表示窗体相对于屏幕顶部的垂直坐标(y轴)。Width：表示窗体的新宽度。Height：表示窗体的新高度。2023/10/25机械工业出版社303.3.2窗体【例3-4】设计应用程序，在窗体上添加两个标签，要求当用户单击窗体时，窗体自己向右下移动(100,100)的位移，同时窗体的宽和高均放大1.5倍，并在2个标签中分别显示窗体当前的坐标信息，如图3-18所示。图3-18【例3-4】运行结果2023/10/25机械工业出版社313.3.2窗体分析：在窗体的Click事件过程中使用Move方法和设置标签Label1及标签Label2的Caption属性可实现设计要求。设计界面创建工程，在窗体上添加2个标签控件。2023/10/25机械工业出版社323.3.2窗体设置对象属性编写代码对象对象名属性属性值窗体Form1CaptionMove方法标签Label1Caption空Label2Caption空2023/10/25机械工业出版社333.3.2窗体PrivateSubForm_Click()

Form1.MoveForm1.Left+100,Form1.Top+100,Form1.Width*1.5,Form1.Height*1.5Label1.Caption=Form1.LeftLabel2.Caption=Form1.TopEndSub2023/10/25机械工业出版社343.3.2窗体Show方法用于在屏幕上显示窗体，使指定的窗体在屏幕上可见，语法格式为：[窗体名称.]Show[0|1]其中：0－非模式窗体（默认）1－模式窗体2023/10/25机械工业出版社353.3.2窗体Hide方法用于隐藏指定的窗体，使指定的窗体在屏幕上不可见，语法格式为：[窗体名称.]Hide2023/10/25机械工业出版社363.3.3基本控件标签控件（Label）标签控件常用于在界面上标注和显示提示信息，标识那些本身不具有标题（Caption）属性的控件。常用属性Caption属性：是标签的默认属性，该属性用来改变标签中显示的文本。2023/10/25机械工业出版社373.3.3基本控件Alignment属性：用于设置Caption属性中文本的对齐方式，属性值有：0-LeftJustify：默认值，显示的标题左对齐。1-RightJustify：显示的标题右对齐。2-CenterJustify：显示的标题居中对齐。2023/10/25机械工业出版社383.3.3基本控件AutoSize属性确定标签是否会随标题内容的多少自动变化，属性值有：True：默认值，根据显示的标题内容的多少自动调整标签大小，且不换行。False：标签的尺寸不能自动调整，超出尺寸范围的内容不予显示。2023/10/25机械工业出版社393.3.3基本控件BorderStyle属性用于确定标签是否有边框，属性值有：0-None：默认值，标签没有边框。1-FixedSingle：标签有单边框。常用事件标签控件支持Click、DblClick等常用事件。2023/10/25机械工业出版社403.3.3基本控件【例3-5】设计应用程序，在窗体上添加一个具有单边框的标签，标题为“大家好！”居中，并且能根据内容自动调整大小，设计界面如图3-19所示。要求当用户单击“放大两倍”按钮时，标签中文字放大两倍，当用户单击“隶书”按钮时，标签中文字的字体变为“隶书”。图3-19【例3-5】设计界面2023/10/25机械工业出版社413.3.3基本控件分