VB初学者基础教程

一 打开程序 一 打开程序 点击桌面上的 Visual Basic 图标 在弹出的如图一的窗口中选择 创建标准 EXE 按钮 图一图一 确定后的状态如图二 图二图二 这就是创建了一个新的 标准 EXE 文件了 二 工作界面简介 二 工作界面简介 默认的 VB 工作界面由标题栏 1 菜单栏 2 工具栏 3 工具箱面板 4 程 序设计区 5 项目窗口 6 属性窗口 7 布局窗口 8 组成 至于它们具体有 什么作用 我们将在以后的实例学习中接触 这里就不予以说明 三 编写我的第一个应用程序 三 编写我的第一个应用程序 1 应用程序要产生的效果 创建的应用程序要有什么样的功能 这是开发每一个应用程序必须最先想到的 我们的第一个应用程序非常简单 使用者只需点击程序上的一个按钮 程序界面上就会显 现 跟我来学 VB 神童教程 字样 2 开发思路 根据应用程序要实现的功能 那么我们至少需要制作一个按钮 一个程序界面 为了让应 用程序更规范 我们还需要创建一个用来显示 跟我来学 VB 神童教程 字样的容器 3 具体制作过程 1 创建一个新的 标准 EXE 文件 如第一步所做 需要指出的是 这个以 Form1 为标题栏的程序界面就是我们需要的 程序界面 也是用 户首先看到的对象 所以尽可能将其做得美观一点 当然 对应用界面的美化问题我们将在以后探讨 2 根据开发思路 现在我们来制作按钮 双击工具箱面板上的命令按钮 Command Button 图标 如图三 图三图三 然后你会发现程序界面上多了一个命令按钮 如图四 图四图四 用鼠标拖动新建的按钮到适当位置 如图五 图五图五 再创建一个标签按钮 双击如图六的图标 图六图六 完成后程序界面如图七 图七图七 用鼠标拖动标签按钮到合适位置 如图八 图八图八 将鼠标放在标签按钮左右边缘任意一处 当鼠标呈左右键头时横向拖动 把标签按钮拖长 最后的程序界面如图九 图九图九 3 对按钮属性进行设置 开发任何应用程序 在完成界面布局后 应该就每一个元素进行属性设置以达到自己的要 求 当然 也可以在元素布局的过程中进行属性设置 首先点选箭头状的 选择 图标以便进 行选择 如图十 图十图十 选中程序界面上的命令按钮 然后找到属性面板 如图十一 图十一图十一 其中 名称 Command1 是此按钮的名称 主要用于程序引用 所以不要用中文名字 此处 可以不修改按钮的名字 但为了程序更规范 我们将其名字改成 CmdShow 如图 十二 图十二图十二 Caption Command1 是命令按钮的标题 也就是显示在命令按钮上的字样 我们将其改成 显示 如图十三 图十三图十三 用上面的方法 我们将标签按钮的名字改为 LblShow 如图十四 图十四图十四 将标签按钮的标题改成空字符串 也就是没有任何文字 如图十五 图十五图十五 4 输入程序代码 我们前面讲到的元素布局 属性设置只不过是对应用程序操作界面的定制 要让程序实现 功能 关键还得输入程序代码 选中命令按钮 CmdShow 然后双击它 弹出如图十六的程序代码输入窗口 图十六图十六 在光标闪烁处输入代码 LblShow Caption 跟我来学 VB 神童教程 这句程序是什么 意思 以后我们讲述 如图十七 图十七图十七 输入完毕 点击右上角的 X 回到对象窗口 然后点击工具栏上的 启动 按钮 快捷 键 F5 可以看最终结果了 四 知识点 四 知识点 1 1 我们的第一个程序确实非常简单 但它道出了程序设计的基本方法 首先 应用程序要 用来做什么 也就是开发应用程序的目的 其次 应用程序大体上由哪些元素组成 也就 是应用程序的操作界面如何 如果可能 最好先用笔把程序界面画出来 然后是对程序界 面中每一个元素的属性进行设置 最后输入程序代码和调试 2 2 前面我们所谈到的 命令按钮 标签按钮 其实它们准确的说法是 命令按钮控 件 标签按钮控件 无论是这些控件 还是刚才作为应用程序界面的 窗体 都 是 对象 因此 VB 是一门面向对象的编程语言 每一个对象都具有很多属性 如大 小 位置 标题等等 属性的设置通过属性窗口完成 3 3 这一点的内容不需强记 在以后的控件讲述中将会涉及 除了 命令控钮控件 标签按钮控件 默认的工具箱面板上还有 指针 工具 用 来选择程序设计窗口中的对象 图片控件 在界面上添加图片 文本框控件 在界面 上显示文本或用来输入文本 选项框控件 主要用来作为区域划分的控件 一般把相同 类型的控件放置在一个选项框中 把其他类型的控件放在其他选项框中 复选控件 用 来制作复选按钮 单选控件 制作单选按钮 组合框控件 用来制作功能更为强大的 列表框 既有文本框控件的功能 还有列表框控件的功能 列表框控件 制作各种列表 滚动条控件 共有横向与竖直两种 时钟控件 一般用来添加时间触发 文件操 作控件 共有磁盘列表框控件 文件夹列表框 文件列表框三种 另外 还有绘图控件 图像框控件 日期控件 4 4 VB 提供了丰富的控件选择 除了默认的工具箱面板上的控件外 还有很多控件没有罗 列出来 我们可以通过 工程 部件 命令或在工具箱面板上单击鼠标右键 在弹出的快 捷菜单中选择 部件 命令 弹出如图十八的窗口 图十八图十八 本窗口罗列了当前系统中所有的控件 只需选中所需控件前面对应的复选框就行了 5 5 编 写程序应该养成好习惯 在给每一个对象命名时首先要保证规范 其次要能 望文生义 也就是看见一个对象的名字就能知道它是做什么的 如前面我们给命令按钮控件起名为 CmdShow 一看就知道是用来 Show 的 Command 类型控件 6 6 我们最初进入的程序设 计界面是对象界面 进入代码界面的办法很简单 前面用到的双击控件是一种办法 另外 还可以通过点击项目窗口中的 查看代码 按钮进入 如果点按旁边的 查看对象 按钮 就会又回到原来的对象界面 如图十九 图十九图十九 7 7 在前面的例子 LblShow Caption 跟我来学 VB 神童教程 中 并不是数学中 的等号 而是一种赋值符号 表示 将 跟我来学 VB 神童教程 这个字符串赋值给 LblS how 并作为它的标题 另外如 X X 6 在数学中 这种表达式不存立 而在 VB 中 是指在 X 本来的基础上 加 6 然后把结果重新赋给 X 这时 X 的值不再是原来的数字 而是加上 6 后的值 8 8 程序的保存 在 VB 中进行保存 常常用 保存工程 命令 而在保存过程中 必须保存两次 一次是 以 frm 为扩展名的文件保存 另一次是以 VBP 为扩展名的文件保存 前者是保存应用 程序的窗体文件 后者是保存应用程序的工程文件 如图二十与图二十一 图二十图二十 图二十一图二十一 第一节第一节 LabelLabel 控件控件 在第一章 我们已经知道 任何一个 VB 程序都是由操作界面及与之相应的程序代码组成 而操作界面则是由诸如 命令按钮控件 标签控件 等控件以及窗体共同组成 从 本章开始 我们进入控件的学习过程 Label 标签控件 是图形控件 主要作用在于显示文字信息 如大家比较熟悉的程序安装 界面 在某个软件安装过程中 常常会显示一些帮助信息或与产品相关的介绍信息 而这 些 大多是用标签控件制成的 与以后我们要学到的文本框控件 TextBox 不同的是 标签控件显示的文字不能直接进行 修改 要修改的话只能在设计阶段进行 文本框既可以用来显示文本 还能够在文本框中 输入文本 在 Visual Basic 工具箱中 标签控件的图标如图一所示 标签的默认名称 Name 和标 题 Caption 为 LabelX X 为 1 2 3 等等 规范的命名方式为 LblX X 为自己定 义的詞 如 LblShow LblRed 等等 图一图一 一 标签控件的主要属性 一 标签控件的主要属性 1 Caption 标题 属性 此属性用来设置在标签上显示的文本信息 可以在创建界面时设置 也可以在程序中改变 文本信息 如第一章的例子中 通过点击按钮改变标签显示的字样 如果要在程序中修改标题属性 代码规则如下 标签名称 Caption 欲显示的文本 如第一章在程序中改变标签 LblShow 的 Caption 属性 LblShow Caption 跟我来学 VB 神童教程 但是请大家注意 上面的代码应该写入供触发的控件对应的程序代码区 如第一章中 是 在命令按钮的程序代码区输入的代码 而不是标签本身的代码区哟 这也是初学者常常大惑不解的地方 为什么我要让标签改变字样 却要在其他控件中输入 代码 这是因为 我们是通过触发其他控件这个事件来让标签改变 Caption 属性的 当然 你也可以让标签本身来触发 Caption 属性改变事件 如用鼠标点击标签 这时你就 需要在标签对应的程序代码区输入代码了 但在实际编写中 这种情况非常罕见 毕竟 标签控件用于显示信息的本意远远超过了响应鼠标点击的意图 2 BorderStyle 边框 属性 本属性用来设置标签的边框类型 有两种值可选 0 代表标签无边框 1 代表标签有边 框 并且具有三维效果 如图二显示的两个标签 图二图二 BorderStyle 属性可以在设计界面时指定 如图三 图三图三 也可以在程序中改变 但这种应用不多见 程序代码规则 标签名 BorderStyle 0 1 0 或 1 两者取一 习题一 创建一个标签 LblShow 两个按钮 CmdChange1 CmdChange2 点按 CmdCh ange1 标签有边框 点按 CmdChange2 标签无边框 联想 在完成本题后 你可能会想到 有没有办法用一个按钮来完成本题的功能 即鼠标 点击一下 标签有边框 再点一下 标签边框消除 再点一下 边框又出现 以此类推 回答是肯定的 不过 这是在以后的学习中要讲的 答案 见本节最后的答案区 3 Font 字体 属性 本属性用来设置标签显示的字体 既可以在创建界面时设定 也可以在程序中改变 在创建界面时设定 如图四 图四图四 在图四的设置界面中 除了可以选择字体 还可以设置显示文字是否为粗体 斜体 下划 线等 在程序中改变 Font 属性 程序代码书写规则如下 字体改变 标签名 FontName 字体类型 其中 字体类型 可以是中文 如 宋体 隶书 也可以是英文名 如 Arial Times New Roman 等等 不过 这 些字体名称必须是电脑上有的 字体大小改变 标签名 FontSize X 其中 X 是阿拉伯数字 代表字体是几号字 如 LblShow FontSize 11 粗体 FontBold 斜体 FontItalic 下划线 FontUnderline 删除线 FontStri kethru 属性的设置值是代表真 假的逻辑判断值 True False 如下 LblShow FontBold True False LblShow FontItalic True False 习题二 一个标签 LblShow 用于显示文本 按钮 1 Cmd1 可以让标签显示的字体变成 隶书 按钮 2 Cmd2 可以让标签显示的字体变成 13 号字 按钮 3 Cmd3 可以让字体变 成粗体 答案 见本节最后的答案区 4 Alignment 对齐 属性 此属性用来设置标签上显示的文本的对齐方式 分别是 左对齐 0 右对齐 1 居中显 示 2 可以在界面设置时设定 如图五 图五图五 也可以在程序中改变 代码如下 标签名 Alignment 0 1 2 5 Visible 可见 属性 本属性在大多数控件中都有 它能设定该控件是否可见 当值为 True 控件可见 当值 为 False 控件隐藏 控件的可见属性可以在界面设置时设定 如图六 图六 也可以在程序中改变 代码如下 标签名 Visible True False 习题三 一个标签 LblShow 在界面设置时为可见 按钮 1 Cmd1 能够让标签隐藏 按钮 2 Cmd2 能够让标签显现 答案 见本节最后的答案区 二 标签控件 二 标签控件 LabelLabel 的主要事件 的主要事件 所谓的事件 其实就是用户对应用程序的操作 如第一章中用鼠标点击命令按钮触发的 Cl ick 事件 事件的作用在于触发程序的执行 如第一章中的 Click 事件改变了标签控件的 Caption 属性 标签控件的主要作用在于显示文本信息 但也支持一些为数不多的事件 1 Click 事件 鼠标单击 用鼠标点击标签时触发的事件 如改变标签的字体属性 Private Sub LblShow Click LblShow FontName 隶书 End Sub 2 DbClick 事件 鼠标双击 鼠标双击引发的事件 如改变标签的可见性 Private Sub LblShow DbClick LblShow Visible False End Sub 三 知识点 三 知识点 1 1 用 VB 编写程序犹如搭积木 把每块 积木 控件或其他对象 放在合理的位置 然 后以某种机制 程序 将这些 积木 们运用起来 最后就搭成了我们需要的东西 所以 掌握每一种控件 包括它们的属性与主要事件 是我们学习编程的基础 2 2 某些属性是大多数控件所共有的 如 Name FontBold FontItalic Visible 等等 但也有些属性是某个控件所独有的 如标签控件的 WordWrap 标签的标题显示方式 本节中我们只是讲述了部分标签控件的属性 其他属性可以在 VB 的帮助文件中查找到 3 3 大家在学习过程中一定会疑惑 为什么在属性设置时 右边有时使用 有 时又不使用 不知大家注意到没有 我们在使用 时 是因为引号里面的内容是字 符串 如 隶书 Times New Roman 等等 4 4 字符的大小写问题 初学者还常常疑惑 字母什么时候应该大写 什么时候应该小写 其实 大写小写在 VB 程序中都是一样的 但为了让程序编写得更为规范 程序可读性更 高 英文单词的第一个字母一般都要大写 如 Visible Name 等等 控件的命名也遵循以上原则 不同的是 命名都是由 控件类型名 具体名字 组成的 控件类型名的第一个字母要大写 具体名字的第一个字母要大写 如 LblShow CmdShow LblChange 等等 5 5 程序代码的规范 上面有这样的例子 Private Sub CmdShow Click LblShow Caption 跟我来学 VB 神童教程 End Sub Private Sub CmdShow Click 代表一个过程 共由两部分组成 CmdShow 代表 CmdShow 这个按钮 Click 代表这个按钮的触发事件 以此类推 Private Sub LblShow DbClick 也代表一个过程 LblShow 是个标签 DbCli ck 是双击事件 另外 Private 意为 私有 表明这个事件过程的类型 此外还有 Public 即 公有 事件 Sub 表明这个过程是 子程序 若干个 子程序 共同组成最终的应用程序 里面是用来装参数的 关于参数 我们以后讲述 如果没有参数 里面为空 四 答案区 四 答案区 第一题 第一个按钮的点击事件 Private Sub CmdChange1 Click LblShow BorderStyle 1 End Sub 第二个按钮的点击事件 Private Sub CmdChange2 Click LblShow BorderStyle 0 End Sub 第二题 按钮 1 Private Sub Cmd1 Click LblShow FontName 隶书 End Sub 按钮 2 Private Sub Cmd2 Click LblShow FontSize 13 End Sub 按钮 3 Private Sub Cmd3 Click LblShow FontBold True End Sub 第三题 按钮 1 Private Sub Cmd1 Click LblShow Visible False End Sub 按钮 2 Private Sub Cmd2 Click LblShow Visible True End Sub 第二节第二节 TextBoxTextBox 控件控件 在 Visual Basic 操作界面中 TextBox 文本框 控件所代表的图标如图一 图一图一 TextBox 控件主要用来显示文本或用来输入文本 如 Windows 登陆时的 口令 窗口 或 者记事本的整个编辑区域 双击工具箱中的文本框控件或者单击文本控件 然后用鼠标在 VB 的工作区域拖拉 就可 以创建文本框了 如图二 图二图二 文本框控件的默认名称为 TextX X 为 1 2 3 等等 命名规则为 TxtX X 为用户自 定义的名字 如 TxtShow TxtFont TxtColor 等等 一 文本框控件的主要属性 一 文本框控件的主要属性 1 Text 文本 属性 本控件最重要的属性 用来显示文本框中的文本内容 可以在界面设置时指定 如图三 图三图三 也可以在程序中动态修改 程序代码规则 文本框控件名 Text 欲显示的文本内容 如要在一个名为 TxtFont 的文本框控件中显示 隶书 字样 那么输入代码 TxtFont Text 隶书 习题一 创建一个文本框 TxtContent 用来显示文本 按钮一 Cmd1 点击时文本框 内容变为 跟我来学 VB 神童教程 按钮二 Cmd2 点击时文本框内容清空 也就是没 有内容 答案 见答案区 2 SelText 选中文本 属性 本属性返回或设置当前所选文本的字符串 如果没有选中的字符 那么返回值为空字符串 即 请注意 本属性的结果是个返回值 或为空 或为选中的文本 一般来说 选中文本属性跟文件复制 剪切等剪贴板 在 VB 中 剪贴板用 Clipboard 表 示 操作有关 如要将文本框选中的文本拷贝到剪贴板上 Clipboard SetText 文本框名称 SelText 注意 本行没有表示赋值的等号 要将剪贴板上的文本粘贴到文本框内 文本框名称 SelText Clipboard GetText 注意 本行有表示赋值的等号 例 一个文本框 TxtContent 按钮一 CmdCopy 用于复制文本框中的选中文本 按钮 二 CmdPaste 用于将剪贴板上的内容粘贴到文本框内 按钮一 Private Sub CmdCopy Click Clipboard SetText TxtContent SelText End Sub 按钮二 Private Sub CmdPaste Click TxtContent SelText Clipboard GetText End Sub 3 SelStart 与 SelLength 属性 SelStart 选中文本的起始位置 返回的是选中文本的第一个字符的位置 SelLength 选中文本的长度 返回的是选中文本的字符串个数 例如 文本框 TxtCont ent 中有内容如下 跟我一起学习 VB 神童教程 假设选中 一起学习 四个字 那么 SelStart 为 3 SelLength 为 4 4 MaxLength 最大长度 属性 本属性限制了文本框中可以输入字符个数的最大限度 默认为 0 表示在文本框所能容纳 的字符数之内没有限制 文本框所能容纳的字符个数是 64K 如果超过这个范围 则应该 用其他控件来代替文本框控件 这跟 Windows 中用记事本打开文件一样 当文件过大 系统会自动调用写字板来打开文件 而不是用记事本 文本框控件 MaxLength 属性既可以在界面设置过程中予以指定 如图四 图四图四 也可以在设计时予以改变 代码如下 文本框控件名 Maxlength X X 为阿拉伯数字 如 10 20 57 等等 5 MultiLine 多行 属性 本属性决定了文本框是否可以显示或输入多行文本 当值为 True 文本框可以容纳多行 文本 当值为 False 文本框则只能容纳单行文本 本属性只能在界面设置时指定 程序运行时不能加以改变 如图五 图五图五 6 PasswordChar 密码 属性 本属性主要用来作为口令功能进行使用 例如 若希望在密码框中显示星号 则可在 属 性 窗口中将 PasswordChar 属性指定为 这时 无论用户输入什么字符 文本框 中都显示星号 如图六 图六图六 在 VB 中 PasswordChar 属性的默认符号是星号 但你也可以指定为其他符号 但请注意 如果文本框控件的 MultiLine 多行 属性为 True 那么文本框控件的 PasswordChar 属性将不起作用 习题二 一个文本框 TxtPassword PasswordChar 属性指定为星号 一个按钮 CmdShow 另外还有一个标签 LblShow 在初始状态下 Caption 为空 程序目的在 于 点击 CmdShow 按钮 LblShow 能显示文本框控件中输入的密码 答案 见本节后面的答案区 7 ScrollBars 滚动条 属性 本属性可以设置文本框是否有滚动条 当值为 0 文本框无滚动条 值为 1 只有横向 滚动条 值为 2 只有纵向滚动条 值为 3 文本框的横竖滚动条都具有 如图七 图七图七 8 Locked 锁定 属性 当值为 False 文本框中的内容可以编辑 当值为 True 文本框中的内容不能编辑 只 能查看或进行滚动操作 二 文本框控件的事件 二 文本框控件的事件 除了 Click DbClick 这些不常用的事件外 与文本框相关的主要事件是 Change GotFoc us LostFocus 事件 1 Change 事件 当用户向文本框中输入新内容 或当程序把文本框控件的 Text 属性设置为新值时 触发 Change 事件 2 GotFocus 事件 本事件又名 获得焦点事件 所谓获得焦点 其实就是指处于活动状态 在电脑日常操 作中 我们常常用 Alt Tab 键在各个程序中切换 处于活动中的程序获得了焦点 不处于 活动的程序则失去了焦点 LostFocus 3 LostFocus 事件 失去焦点 详情如上 例子 一个文本框 TxtContent 默认状态下内容为空 当获得 焦点时 文本框内容显示 大家好 课程还难吗 字样 当失去焦点 文本框回 到初始状态 另外再创建一个标签 LblShow 当用户试图向文本框输入文本或改变文本 框本来的文本时 标签显示 标签的作用大家还清楚吗 字样 界面如图八 图八图八 程序如下 文本框 Private Sub TxtContent GotFocus TxtContent Text 大家好 课程还难吗 End Sub Private Sub TxtContent LostFocus TxtContent Text End Sub Private Sub TxtContent Change LblShow Caption 标签的作用大家还清楚吗 End Sub 三 知识点 三 知识点 1 1 请记住 Clipboard 指的是 Windows 剪贴板 剪贴板最常用的操作是所选文本的拷贝 与粘贴 拷贝 Clipboard SetText 文本框名称 SelText 粘贴 文本框名称 SelText Clipboard GetText 2 2 Multiline 属性为 True 时 文本框控件的 PasswrodChar 属性不起作用 3 3 如果要让文本框的内容自动换行 只需取消文本框的横向滚动条就行了 四 答案区 四 答案区 习题一 按钮一 Private Sub Cmd1 Click TxtContent Text 跟我来学 VB 神童教程 End Sub 按钮二 Private Sub Cmd2 Click TxtContent Text End Sub 习题二 按钮 Private Sub CmdShow Click LblShow Caption TxtPassword Text End Sub VB 神童教程第二章第三节 综合示例一 在前面两节里 我们学到了 VB 的操作方法 以及 Label 与 TextBox 控件的使用方法 现在我们用这两节学到的知识来做一个简单的文本编辑器 一 程序最终目的 一 程序最终目的 用户可以在程序的编辑窗口输入文本 对输入的文本可以进行复制 粘贴 清除操作 另 外 还能在两个标签上分别显示选中文本的起始位置 选中文本的长度 二 界面设置 二 界面设置 根据程序的要求 我们需要制作一个文本框控件 TxtContent 它将做为程序的输入窗 口 另外还有四个按钮 分别是复制按钮 CmdCopy 粘贴按钮 CmdPaste 清除按钮 CmdClear 退出程序按钮 CmdQuit 此外 还需要两个用来显示所选文本起始位置 的标签一 LblStart 和显示所选文本长度的标签二 LblLength 最终界面如图一 图一图一 请大家仿照图一制作 三 属性设置 三 属性设置 如图一所示 但请注意 文本框控件的 Multiline 多行 属性要设置为 True 这样 文本框才能自动换行 如图二 图二图二 四 程序书写 四 程序书写 1 文本框 TxtContent 的鼠标事件 对文本的选择 可以理解为这样的过程 先在欲选择的文本前点击鼠标 按下左键不放 拖动鼠标直到选择文本的结束处 最后松开鼠标 这说明 松开鼠标代表着文本选择的结 束 从而应该在文本框的鼠标弹起事件 MouseUp 中书写代码 以改变两个标签的标题 具体代码如下 Private Sub TxtContent MouseUp Button As Integer Shift As Integer X As Single Y As Single 括号中这一长串内容大家不必管它 这主要是产 生位移时的坐标变动 LblStart Caption 起始位置 TxtContent SelStart LblLength Caption 文本长度 TxtContent SelLength End Sub 注意 这个 符号表示将两个字符串连接起来 另外如 A B 结果是 AB ABC EFG 结果是 ABCEFG 等等 2 复制按钮的点击事件 Private Sub CmdCopy Click Clipboard SetText TxtContent SelText End Sub 3 粘贴按钮的点击事件 Private Sub CmdPaste Click TxtContent SelText Clipboard GetText End Sub 4 清空按钮的点击事件 Private Sub CmdClear Click TxtContent Text End Sub 5 退出程序按钮的点击事件 Private Sub CmdQuit Click End End 在 VB 中 代表程序结束 用它可以直接退出程序 End Sub 五 运行调试 按 F5 键 或者点按运行按钮 这个简单的文本编辑器可以用了吗 六 控件的一些基本操作 在 VB 菜单栏 中有一个 格式 命令 通过它提供的一些功能可以让我们的工作事半 功倍 1 对齐 分别是纵向对齐的 左对齐 居中对齐 右对齐 横向对齐的 顶端 中 间 底端 对齐 以及面向网格的 网格对齐 它们的功能非常简单 你只需随意 绘制几个控件 然后选择它们 再试着使用相关命令就能掌握了 如图三是随意绘制的程 序界面 图三图三 全部选中后 使用 左对齐 的结果如图四 图四图四 也许你要问 这个对齐是以哪一个控件做为参照物的 再仔细看看图三 那个 Command1 按钮四周是八个实心的黑色小点 而其他控件则是白色的小点 现在你知道了吧 正是以 Command1 按钮为参照物进行对齐的 也就是说你最后选择的那一个控件 2 统一尺寸 以某个控件为参照物 统一其他控件的大小尺寸 3 水平间距与垂直间距 调整某几个控件的水平间距或垂直间距 活用上面几个操作 将使你的工作事半功倍 VBVB 神童教程第二章第四节神童教程第二章第四节 CommandButtonCommandButton 控件控件 在 Visual Basic 操作界面中 CommandButton 命令按钮 控件所代表的图标如图一 图一图一 CommandButton 控件在程序中主要作为按钮进行使用 默认的名称为 CommandX X 为 1 2 3 等等 命名规则为 CmdX X 为用户自定义的名字 如 CmdCopy CmdPaste 等 等 一 一 CommandButtonCommandButton 的主要属性 的主要属性 1 Cancel 取消 属性 当一个按钮的 Cancel 属性设置为 True 时 按 ESC 键与单击此命令按钮的作用相同 因 此 这个命令按钮被称为取消按钮 在一个窗体中 只允许一个命令按钮的 Cancel 属性为 True 如图二 图二图二 2 Default 默认 属性 当一个按钮的 Default 属性设置为 True 时 按回车键与单击此命令按钮的作用相同 因 此 这个命令按钮被称为默认按钮 与 Cancel 的设置一样 在一个窗体中 只允许一个命令按钮的 Default 属性设置为 Tru e 如图三 图三图三 3 Caption 标题 属性 跟其他控件的 Caption 属性一样 都用来显示控件标题的属性 这里要强调的是 作为按 钮控件 用户可以给按钮控件的 Caption 指定快捷方式 方法是在按钮 Caption 属性中欲作为快捷键的字母前加上一个 符号 程序运行时 该字母的下面会自带一条下划线 同时按下 Alt 键和带有下划线的字母 功效相当于用 鼠标点击该按钮 如图四 图四图四 4 Enabled 可用 属性 本属性决定了控件是否可用的问题 当值为 False 按钮在程序运行时呈灰色 不能响应 用户的鼠标动作 只有当值为 True 按钮才能使用 本属性可以在设置界面时予以指定 如图五 图五图五 也可以在程序中修改 代码如下 按钮控件名称 Enabled True False 例一 两个命令按钮 按钮一 CmdEnable 初始状态为可用 按钮二 CmdFalse 初始状态不可 用 点击按钮一 按钮二变为可用 按钮一变为不可用 点击按钮二 按钮一变为可用 按钮二变为不可用 程序界面如图六 图六图六 程序代码如下 按钮一 Private Sub CmdEnable Click CmdFalse Enabled True CmdEnable Enabled False End Sub 按钮二 Private Sub CmdFalse Click CmdFalse Enabled False CmdEnable Enabled True End Sub 5 Style 类型 与 Picture 图片 属性 也许你想让应用程序的操作界面更美观一点 也许你想在某个按钮上添加幅小图片 那么 你就得使用到本控件的 Style 与 Picture 属性 铵钮控件共有两种 Style 一种是标准型 Standard VB 中用 VbButtonStandard 或者 0 表示 另外一种是图形型 Graphical VB 中用 VbButtonGraphical 或者 1 表示 Style 属性可以在界面设置过程中予以指定 如图七 图七图七 也可以在程序中改变 代码如下 按钮名称 Style VbButtonStandard VbButtonGraphical 或者 按钮名称 Style 0 1 只有当按钮的 Style 设置为 Graphical 类型时 按钮的 Picture 属性才起作用 本属性 能在指定的按钮上添加图片 可以在界面设置过程中为按钮指定图片 如图八 图八图八 也可以在程序中进行指定 代码如下 按钮名称 Picture 图形文件所在的路径与文件名 例如 CmdPicture Picture D image 01 jpg 二 二 CommandButtonCommandButton 的事件 的事件 命令按钮最常用的事件是鼠标点击 Click 事件 当点击按钮时 犹如发出了一道命令 而这也正是 命令按钮 这个说法的由来 VBVB 神童教程第二章第五节神童教程第二章第五节 单选与复选控件单选与复选控件 在 Visual Basic 中 单选与复选按钮控件主要作为选项提供给用户选择 不同的是 在 一组选择按钮中 单选控件只能选择一个 其他单选控件自动变为未被选中状态 而在一 组复选按钮中 可以选定任意数量的按钮 一 单选控件 一 单选控件 OptionButtonOptionButton 与复选控件 与复选控件 CheckBoxCheckBox 的主要属性 的主要属性 单选控件默认名称为 OptionX X 为阿拉伯数字 1 2 3 等等 起名规则为 OptX X 为用户自定义名字 如 OptRed OptArial 等等 复选控件默认名称为 CheckX X 为 1 2 3 等等 起名规则为 ChkX X 为用户自定义名字 如 ChkName ChkRed 等等 在 VB 操作界面中 单选控件与复选控件的图标如图一所示 图一图一 以前讲到的大多数属性都适用于单选与复选控件 包括 Caption Enabled Font FontB old FontItalic FontName 等等 Name Height 等等 此处不再赘述 Value 属性是单选与复选控件最主要的属性 但单选与复选控件的 Value 值有些微的差别 单选控件 选中时 Value 值为 True 未被选中 Value 值为 False 复选控件 选中时 Value 值为 1 未被选中 Value 值为 0 禁止对该按钮进行选择 Value 值 为 2 请大家注意 单选控件与复选控件的 Value 值是不同的 而这是初学者最容易混淆的 二 单选按钮与复选按钮的事件 二 单选按钮与复选按钮的事件 这两种控件最主要的事件是 Click 事件 当选中时 Value 值变为 True 或者 1 控件 也自动变为选中状态 三 单选按钮程序举例 三 单选按钮程序举例 有如图二这样一个程序 图二图二 文本框 TxtContent 显示预设的字样 单选按钮一 OptArial 单击此按钮可以将文 本框里显示的字样改变成 Arial 字体 单选按钮二 OptModern 单击此按钮能将文本 框里显示的字样改变成 Modern 字体 1 单选按钮一 Private Sub OptArial Click TxtContent FontName Arial End Sub 2 单选按钮二 Private Sub OptModern Click TxtContent FontName Modern End Sub 四 复选按钮的判断过程 四 复选按钮的判断过程 复选按钮的使用跟单选按钮相似 但由于一次可以选择多个复选按钮 所以复选按钮的选 择比单选按钮多了一个判断过程 这个判断过程在 VB 中可以用 If Then ElseIf End If 语句完成 If Then ElseIf End If 是 VB 中的块结构条件语句 主要用来针对不同 的情况 让应用程序做出不同的反应 语句功能如下 If 假设情况一 Then 假设情况一成立时执行的语句块一 ElseIF 假设情况二 Then 假设情况二成立时执行的语句块二 ElseIf 假设情况三 Then 假设情况三成立时执行的语句块三 Else 所有条件都不成立时要执行的语句块 End If 上面的语句块含义为 如果 情况一 成立 则执行 语句块一 否则如果 情况二 成立 则执行 语句块二 如果所有情况都不成立 则执行 Else 之后的 语句块并最后跳出判断过程 例 假设输入学生成绩 Score 如果分数小于 60 标签 LblShow 显示 成绩不及格 如果分数大于 90 标签显示 成绩优秀 如果分数介于两者之间 标签显示 成绩 优良 If Score 90 Then LblShow Caption 成绩优秀 Else LblShow Caption 成绩优良 End If 有几点必须加以注意 有几点必须加以注意 1 在上面的语句块中 ElseIf 之间没有空格 如果有空格即 Else If 块结构则不 成立 Else If 这种形式只能在单行结构条件语句中成立 而不能在块结构条件中成立 2 执行语句块的程序代码不能紧跟 Then 必须放到下一行中 这是块状结构的规定 3 在块结构判断语句中 ElseIf 子句的数量没有限制 可以根据需要加入任意多个 ElseIf 子句 4 ElseIf 与 Else 都是可选的 最简单的判断语句块形式如下 If 条件 Then 要执行的语句块 End If 如 If Score 0 Then LstRight AddItem LstLeft List LstLeft ListIndex LstLeft RemoveItem LstLeft ListIndex End If End Sub 向左按钮 Private Sub CmdLeft Click If LstRight SelCount 0 Then LstLeft AddItem LstRight List LstRight ListIndex LstRight RemoveItem LstRight ListIndex End If End Sub 看见了吧 向左与向右按钮还得增加列表框中是否有表项被选中的判断 4 大家先移动左列表框中的一个项目到右列表框中 然后再全部移过去 你又会发现什么 样的问题呢 这时 你会发现右列表框的项目多了一项 而这多出来的表项正是最先移过去的那个项目 那么 全部移动的按钮还需要加以完善 如图四 图四图四 解决办法很简单 在全部移动时 先清除目标列表框的内容再进行移动 修改后的代码如 下 全部向右按钮 Private Sub CmdAllRight Click LstRight Clear LstRight AddItem 刘德华 LstRight AddItem 张学友 LstRight AddItem 郭富城 LstRight AddItem 黎 明 LstRight AddItem 谭咏麟 LstRight AddItem 梅艳芳 LstRight AddItem 张曼玉 LstLeft Clear End Sub 全部向左按钮 Private Sub CmdAllLeft Click LstLeft Clear LstLeft AddItem 刘德华 LstLeft AddItem 张学友 LstLeft AddItem 郭富城 LstLeft AddItem 黎 明 LstLeft AddItem 谭咏麟 LstLeft AddItem 梅艳芳 LstLeft AddItem 张曼玉 LstRight Clear End Sub 5 本节的程序只是为了让大家便于理解才这样编写的 而最为科学 最为有效的编写方法 我们将在下一节讲述 在开始下一节课程之前 大家可以将两个列表框的 Style 改成 1 即复选类型 你会发现本节所编写的程序又有很多问题了 该如何解决呢 下一节见 VB 神童教程第二章第十节神童教程第二章第十节 综合示例四综合示例四 在上一节 我们制作了一个 Style 为 0 的列表程序 现在我们来制作一个 Style 为 1 的列表程序 虽然仅仅是 Style 的改变 但整个程序发生了完全的变化 本节中的程序更为科学 而且 只需改动几行代码 同样适合上一节的程序 在编制本节程序前 我们有必要对 For Next 循环结构语句做个了解 一 一 ForFor 循环语句 循环语句 在实际生活中 我们经常会遇到一些操作并不复杂 但需要重复多次处理的情况 如人口 统计 银行利率的计算等 为此 Visual Basic 提供了循环语句来专门解决此类情况 循环语句的具体情况 我们将在以后的章节中阐述 本节我们只是针对 For 循环语句做个 大致的了解 1 For Next 语句的一般格式 For 变量 Start To End Step 需要循环的语句 Exit For Next 变量 说明 1 For 后的 变量 与 Next 后的 变量 为同一个 变量 应该是数值类型的 2 Start 代表的是循环的初始值 End 代表的是循环的终值 假设从 1 到 100 进行 循环 那么 循环初值是 1 终值是 100 假设从 1 到 50 进行循环 那么初值是 1 终值是 50 3 To 是循环中的关键字 表示从初值到终值的范围 不能省略 4 Step 是步长值 代表变量的增量 既可以是正数 递增循环 也可以是负数 递减循环 但不能为 0 如果步长值为 1 即默认状态 可以省略不写 5 需要循环的语句 既可以是一个 也可以是多个语句 但必须放在 For 与 Next 之间 6 Exit For 当程序执行到此处 自动退出本层循环 7 需要循环的语句与 Exit For 都可以省略 这时表示的是一个无内容的空循环 主 要做为程序延迟使用 2 示例一 编写一个程序 用来计算 1 到 100 间所有整数的和是多少 1 程序界面与控件属性 程序界面与控件属性如图一 为了让大家看得更为清楚 我们将标签控件的 BoderStyle 属性设为 1 图一图一 2 程序功能 用户点击 开始 按钮 CmdStart 开始计算 完成后将结果用标签 LblShow 显示出来 3 书写代码 开始 按钮的点击事件 Private Sub CmdStart Click x 0 For y 1 To 100 x x y Next y LblShow Caption 最后的结果是 x End Sub 说明 1 1 到 100 中所有整数的和可以这样来看 1 2 3 100 即 100 次相加 那么这重复的 100 次相加可以通过 For 循环来完成 2 程序中 y 只是用来决定循环次数的变量 通常的 我们会利用其他变量来编写程 序 这里的 X 就是一个求和累加器 它的初值是 0 终值则是我们最后需要的数值 3 X X y 是指变量 X 与 y 相加后将新的值赋给 X 当 X 为初始的 0 时 y 进入第一次循环即 y 1 X Y 1 系统将 X 1 记录下来 然后进入第二次循环 即 y 2 X Y 3 1 2 然后将 X 3 记录下来并进入第三次循环 以此类推 这就将 1 2 3 100 的最终值算了出来 4 经过第一百次循环 程序执行 Next y 后的语句 即将最后结果用标签显示出来 3 示例二 计算 1 到 100 间所有奇数的和 只需将上例中的 开始 按钮的循环程序加上步长值即可 代码如下 Private Sub CmdStart Click x 0 For y 1 To 100 Step 2 x x y Next y LblShow Caption 最后的结果是 x End Sub 二 列表程序二 二 列表程序二 1 程序界面 最终的程序界面如图二 图二图二 跟上一节的内