http://www.bccn.net/Article/kfyy/vb/jc/Index.html
一、打开程序:
点击桌面上的 Visual Basic 图标,在弹出的如图一的窗口中选择“创建标准 EXE”按钮。
确定后的状态如图二
图二
这就是创建了一个新的“标准 EXE”文件了。
二、工作界面简介:
默认的 VB 工作界面由标题栏(1)、菜单栏(2)、工具栏(3)、工具箱面板(4)、程序
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
区(5)、项目窗口(6)、属性窗口(7)、布局窗口(8)组成,至于它们具体有什么作用,我们将在以后的实例学习中接触,这里就不予以说明。
三、编写我的第一个应用程序:
<1>、应用程序要产生的效果:
创建的应用程序要有什么样的功能?这是开发每一个应用程序必须最先想到的。
我们的第一个应用程序非常简单,使用者只需点击程序上的一个按钮,程序界面上就会显现“跟我来学 VB 神童
教程
人力资源管理pdf成真迷上我教程下载西门子数控教程protel99se入门教程fi6130z安装使用教程
”字样。
<2>、开发思路:
根据应用程序要实现的功能,那么我们至少需要制作一个按钮、一个程序界面,为了让应用程序更规范,我们还需要创建一个用来显示“跟我来学 VB 神童教程”字样的容器。
<3>、具体制作过程:
1、创建一个新的“标准 EXE”文件,如第一步所做。
需要指出的是,这个以 Form1 为标题栏的程序界面就是我们需要的“程序界面”,也是用户首先看到的对象,所以尽可能将其做得美观一点。
当然,对应用界面的美化问题我们将在以后探讨。
2、根据开发思路,现在我们来制作按钮。
双击工具箱面板上的命令按钮(Command Button)图标,如图三:
图三
然后你会发现程序界面上多了一个命令按钮,如图四:
图四
用鼠标拖动新建的按钮到适当位置,如图五:
图五
再创建一个标签按钮,双击如图六的图标:
图六
完成后程序界面如图七:
图七
用鼠标拖动标签按钮到合适位置,如图八:
图八
将鼠标放在标签按钮左右边缘任意一处,当鼠标呈左右键头时横向拖动,把标签按钮拖长,最后的程序界面如图九:
图九
3、对按钮属性进行设置:
开发任何应用程序,在完成界面布局后,应该就每一个元素进行属性设置以达到自己的要求。
当然,也可以在元素布局的过程中进行属性设置。 首先点选箭头状的“选择”图标以便进行选择,如图十:
图十
选中程序界面上的命令按钮,然后找到属性面板,如图十一:
图十一
其中,“名称:Command1”是此按钮的名称,主要用于程序引用,所以不要用中文名字。
此处,可以不修改按钮的名字,但为了程序更规范,我们将其名字改成“CmdShow”,如图十二:
图十二
“Caption:Command1”是命令按钮的标题,也就是显示在命令按钮上的字样,
我们将其改成“显示”,如图十三:
图十三
用上面的
方法
快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载
,我们将标签按钮的名字改为“LblShow”,如图十四:
图十四
将标签按钮的标题改成空字符串,也就是没有任何文字,如图十五:
图十五
4、输入程序代码:
我们前面讲到的元素布局、属性设置只不过是对应用程序操作界面的定制,要让程序实现功能,关键还得输入程序代码。
选中命令按钮 CmdShow ,然后双击它,弹出如图十六的程序代码输入窗口:
图十六
在光标闪烁处输入代码:LblShow.Caption = "跟我来学 VB 神童教程"(这句程序是什么意思?以后我们讲述)。如图十七:
图十七
输入完毕,点击右上角的 “X” 回到对象窗口,然后点击工具栏上的“启动”按钮(快捷键:F5),可以看最终结果了!
四、知识点:
1、我们的第一个程序确实非常简单,但它道出了程序设计的基本方法:首先,应用程序要用来做什么?也就是开发应用程序的目的;其次,应用程序大体上由哪些元素组成?也就是应用程序的操作界面如何,如果可能,最好先用笔把程序界面画出来;然后是对程序界面中每一个元素的属性进行设置;最后输入程序代码和调试。
2、前面我们所谈到的“命令按钮”、“标签按钮”,其实它们准确的说法是“命令按钮控件”、“标签按钮控件”,无论是这些控件,还是刚才作为应用程序界面的“窗体”,都是“对象”,因此, VB 是一门面向对象的编程语言,每一个对象都具有很多属性,如大小、位置、标题等等。属性的设置通过属性窗口完成。
3、这一点的内容不需强记,在以后的控件讲述中将会涉及。
除了“命令控钮控件”、“标签按钮控件”,默认的工具箱面板上还有“指针”工具(用来选择程序设计窗口中的对象)、图片控件(在界面上添加图片)、文本框控件(在界面上显示文本或用来输入文本)、选项框控件(主要用来作为区域划分的控件,一般把相同类型的控件放置在一个选项框中,把其他类型的控件放在其他选项框中)、复选控件(用来制作复选按钮)、单选控件(制作单选按钮)、组合框控件(用来制作功能更为强大的列表框,既有文本框控件的功能,还有列表框控件的功能)、列表框控件(制作各种列表)、滚动条控件(共有横向与竖直两种)、时钟控件(一般用来添加时间触发)、文件操作控件(共有磁盘列表框控件、文件夹列表框、文件列表框三种),另外,还有绘图控件、图像框控件、日期控件。
4、VB 提供了丰富的控件选择,除了默认的工具箱面板上的控件外,还有很多控件没有罗列出来,我们可以通过“工程‖部件”命令或在工具箱面板上单击鼠标右键,在弹出的快捷菜单中选择“部件”命令,弹出如图十八的窗口:
图十八
本窗口罗列了当前系统中所有的控件,只需选中所需控件前面对应的复选框就行了。5、编写程序应该养成好习惯,在给每一个对象命名时首先要保证规范,其次要能“望文生义”,也就是看见一个对象的名字就能知道它是做什么的,如前面我们给命令按钮控件起名为“CmdShow”,一看就知道是用来 Show 的 Command 类型控件。6、我们最初进入的程序设计界面是对象界面,进入代码界面的办法很简单,前面用到的双击控件是一种办法,另外还可以通过点击项目窗口中的“查看代码”按钮进入,如果点按旁边的“查看对象”按钮就会又回到原来的对象界面。如图十九:
图十九
7、在前面的例子:LblShow.Caption = "跟我来学 VB 神童教程"中,“=”并不是数学中的等号,而是一种赋值符号,表示:将“跟我来学 VB 神童教程”这个字符串赋值给 LblShow ,并作为它的标题。
另外如:X = X+6 ,在数学中,这种表达式不存立,而在 VB 中,是指在 X 本来的基础上加 6 ,然后把结果重新赋给 X ,这时 X 的值不再是原来的数字,而是加上 6 后的值。
8、程序的保存:
在 VB 中进行保存,常常用“保存工程”命令,而在保存过程中,必须保存两次,一次是以 .frm 为扩展名的文件保存,另一次是以 .VBP 为扩展名的文件保存。前者是保存应用程序的窗体文件,后者是保存应用程序的工程文件。如图二十与图二十一:
图二十
图二十一
第一节——Label 控件
在第一章,我们已经知道,任何一个 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),点按 CmdChange1 ,标签有边框;点按 CmdChange2 ,标签无边框。
联想:在完成本题后,你可能会想到,有没有办法用一个按钮来完成本题的功能?即鼠标点击一下,标签有边框,再点一下,标签边框消除,再点一下,边框又出现,以此类推。回答是肯定的,不过,这是在以后的学习中要讲的。
答案
八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案
:见本节最后的答案区。
3、Font(字体)属性:
本属性用来设置标签显示的字体,既可以在创建界面时设定,也可以在程序中改变。
在创建界面时设定,如图四:
图四
在图四的设置界面中,除了可以选择字体,还可以设置显示文字是否为粗体、斜体、下划线等。
在程序中改变 Font 属性,程序代码书写规则如下:
字体改变:标签名.FontName = "字体类型",其中,“字体类型”可以是中文,如“宋体”、“隶书”;也可以是英文名,如“Arial”、“Times New Roman”,等等,不过,这些字体名称必须是电脑上有的。
字体大小改变:标签名.FontSize = X ,其中,X 是阿拉伯数字,代表字体是几号字。如:LblShow.FontSize = 11 。
粗体(FontBold)、斜体(FontItalic)、下划线(FontUnderline)、删除线(FontStrikethru)属性的设置值是代表真/假的逻辑判断值 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),能够让标签显现。
答案:见本节最后的答案区
二、标签控件(Label)的主要事件:
所谓的事件,其实就是用户对应用程序的操作,如第一章中用鼠标点击命令按钮触发的 Click 事件。
事件的作用在于触发程序的执行,如第一章中的 Click 事件改变了标签控件的 Caption 属性。
标签控件的主要作用在于显示文本信息,但也支持一些为数不多的事件。
1、Click 事件(鼠标单击):
用鼠标点击标签时触发的事件,如改变标签的字体属性:
Private Sub LblShow_Click()
LblShow.FontName = "隶书"
End Sub
2、DbClick 事件(鼠标双击):
鼠标双击引发的事件,如改变标签的可见性:
Private Sub LblShow_DbClick()
LblShow.Visible = False
End Sub
三、知识点:
1、用 VB 编写程序犹如搭积木,把每块“积木”(控件或其他对象)放在合理的位置,然后以某种机制(程序)将这些“积木”们运用起来,最后就搭成了我们需要的东西。所以,掌握每一种控件,包括它们的属性与主要事件,是我们学习编程的基础!
2、某些属性是大多数控件所共有的,如 Name 、FontBold、FontItalic、Visible ,等等;但也有些属性是某个控件所独有的,如标签控件的 WordWrap (标签的标题显示方式)。本节中我们只是讲述了部分标签控件的属性,其他属性可以在 VB 的帮助文件中查找到。
3、大家在学习过程中一定会疑惑,为什么在属性设置时,“=” 右边有时使用 "" ,有时又不使用 "" 。不知大家注意到没有,我们在使用 "" 时,是因为引号里面的内容是字符串,如"隶书"、"Times New Roman",等等。
4、字符的大小写问题:初学者还常常疑惑,字母什么时候应该大写,什么时候应该小写?其实,大写小写在 VB 程序中都是一样的,但为了让程序编写得更为规范,程序可读性更高,英文单词的第一个字母一般都要大写,如 Visible 、Name ,等等;
控件的命名也遵循以上原则,不同的是,命名都是由“控件类型名+具体名字”组成的,控件类型名的第一个字母要大写,具体名字的第一个字母要大写,如 LblShow 、CmdShow 、LblChange ,等等。
5、程序代码的规范:上面有这样的例子:
Private Sub CmdShow_Click()
LblShow.Caption = "跟我来学 VB 神童教程"
End Sub
Private Sub CmdShow_Click()代表一个过程,共由两部分组成,CmdShow 代表 CmdShow 这个按钮,Click 代表这个按钮的触发事件。
以此类推,Private Sub LblShow_DbClick ()也代表一个过程,LblShow 是个标签,DbClick 是双击事件。
另外,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
第二节——TextBox控件
在 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 ,选中文本的长度,返回的是选中文本的字符串个数。 例如:文本框 TxtContent 中有内容如下:
跟我一起学习 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、GotFocus、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、请记住,Clipboard 指的是 Windows 剪贴板,剪贴板最常用的操作是所选文本的拷贝与粘贴。
拷贝:
Clipboard.SetText 文本框名称.SelText
粘贴:
文本框名称.SelText = Clipboard.GetText
2、Multiline 属性为 True 时,文本框控件的 PasswrodChar 属性不起作用。
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、水平间距与垂直间距:
调整某几个控件的水平间距或垂直间距。
活用上面几个操作,将使你的工作事半功倍!
VB 神童教程第二章第四节——CommandButton 控件
在 Visual Basic 操作界面中,CommandButton(命令按钮)控件所代表的图标如图一:
图一
CommandButton 控件在程序中主要作为按钮进行使用。默认的名称为 CommandX(X为 1、2、3,等等),命名规则为 CmdX(X为用户自定义的名字,如 CmdCopy、CmdPaste ,等等)。
一、CommandButton 的主要属性:
1、Cancel(取消)属性:
当一个按钮的 Cancel 属性设置为 True 时,按 ESC 键与单击此命令按钮的作用相同,因此,这个命令按钮被称为取消按钮。
在一个窗体中,只允许一个命令按钮的 Cancel 属性为 True 。如图二:
图二
2、Default(默认)属性:
当一个按钮的 Default 属性设置为 True 时,按回车键与单击此命令按钮的作用相同,因此,这个命令按钮被称为默认按钮。
与 Cancel 的设置一样,在一个窗体中,只允许一个命令按钮的 Default 属性设置为 True ,如图三:
图三
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"
二、CommandButton 的事件:
命令按钮最常用的事件是鼠标点击(Click)事件,当点击按钮时,犹如发出了一道命令,而这也正是“命令按钮”这个说法的由来。
VB 神童教程第二章第五节——单选与复选控件
在 Visual Basic 中,单选与复选按钮控件主要作为选项提供给用户选择。不同的是,在一组选择按钮中,单选控件只能选择一个,其他单选控件自动变为未被选中状态;而在一组复选按钮中,可以选定任意数量的按钮。
一、单选控件(OptionButton)与复选控件(CheckBox)的主要属性:
单选控件默认名称为 OptionX(X为阿拉伯数字 1、2、3,等等),起名规则为 OptX(X为用户自定义名字,如 OptRed、OptArial,等等);复选控件默认名称为 CheckX(X为 1、2、3,等等),起名规则为 ChkX(X为用户自定义名字,如 ChkName、ChkRed ,等等)。
在 VB 操作界面中,单选控件与复选控件的图标如图一所示:
图一
以前讲到的大多数属性都适用于单选与复选控件,包括:Caption、Enabled、Font(FontBold、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 < 60 Then
LblShow.Caption = "成绩不及格"
ElseIf 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 < 60 Then
LblShow.Caption = "成绩不及格"
End If
(5)、块结构语句必须以 If 开始,以 End If 结束。
五、复选按钮举例:
上面我们学习了复选按钮的判断过程,现在进入实例学习。 有如图三这样一个应用程序:
图三
文本框(TxtContent)显示预设的字样;复选按钮一(ChkBold)可以将文本框里面的字变为粗体;复选按钮二(ChkItalic)可以将文本框里面的字变为斜体;复选按钮三(ChkUnderline)可以给文本框里面的文字加上下划线。
复选按钮一:
Private Sub ChkBold_Click()
If ChkBold.Value = 1 Then
TxtContent.FontBold = True
Else
TxtContent.FontBold = False
End Sub
复选按钮二:
Private Sub ChkItalic_Click()
If ChkItalic.Value = 1 Then
TxtContent.FontItalic = True
Else
TxtContent.FontItalic = False
End Sub
复选按钮三:
Private Sub ChkUnderline_Click()
If ChkUnderline.Value = 1 Then
TxtContent.FontUnderline = True
Else
TxtContent.FontUnderline = False
End Sub
联想:
复选按钮是不是非得经过这种选择判断?能不能如单选按钮那样直接使用呢?这是许多初学者,包括笔者自己,曾经感到疑惑的地方。(虽然现在看来它们的区别是如此之大)
还是上面这个例子,假设复选按钮一不经过判断,而直接在点击事件中输入代码:
Private Sub ChkBold_Click()
TxtContent.FontBold = True
End Sub
那么你会发现,复选按钮一经点击就不能取消字体加粗的效果了;而实际上,复选按钮一的功能是,点击一次即选中时,字体加粗;点击第二次即取消选择,字体不再加粗;以此类推。
六:知识点:
1、切记,单选按钮与复选按钮的 Value 值是不同的。
单选按钮:
选中时,Value 值为 True ;未被选中时,Value 值为 False 。
复选按钮:
选中时,Value 值为 1 ;未被选中时,Value 值为 0 ;禁止选择,Value 值为 2 。
你可以试验一下,将复选按钮的 Value 值分别用 True/False 代替,看一下会出现什么问题。
2、两种选择按钮都针对 Click 事件做出反应,但单选按钮比较简单,只需直接输入代码即可;复选按钮比较复杂,需经过条件判断后再做出反应。切记!
3、 If···Then···ElseIf···End If ,只是条件判断方法的一种,以后我们还会学到其他的方法。
VB 神童教程第二章第六节——综合示例二
在前面两节中,我们学习了命令按钮(CommandButton)、单选按钮(OptionButton)、复选按钮(CheckBox)的使用,本节将就前两节的知识做个总结。
一、程序目的:
通过选项按钮的选择,对所选文本进行定制。
二、程序界面:
程序界面如图一:
图一
一个文本框(TxtContent),显示“Learning Visual Basic”字样;三个单选按钮:按钮一(OptArial)让文本字体变为 Arial 类型;按钮二(OptModern)让文本字体变为 Modern 类型;按钮三(OptRoman)让文本字体变为 Times New Roman 类型;三个复选按钮:按钮一(ChkBold),让文本字体变为黑体;按钮二(ChkItalic),让文本字体变为斜体字;按钮三(ChkUnderline),给文本增加下划线。另外,还有一个退出按钮(CmdQuit),作用在于退出程序。
三、属性设置:
根据图一进行属性设置。
四、书写程序:
OptArial 按钮:
Private Sub OptArial_Click()
TxtContent.FontName = "Arial"
End Sub
OptModern 按钮:
Private Sub OptModern_Click()
TxtContent.FontName = "Modern"
End Sub
OptRoman 按钮:
Private Sub OptRoman_Click()
TxtContent.FontName = "Times New Roman"
End Sub
ChkBold 按钮:
Private Sub ChkBold_Click()
If ChkBold.Value = 1 Then
TxtContent.FontBold = True
Else
TxtContent.FontBold = False
End Sub
ChkItalic 按钮:
Private Sub ChkItalic_Click()
If ChkItalic.Value = 1 Then
TxtContent.FontItalic = True
Else
TxtContent.FontItalic = False
End Sub
ChkUnderline 按钮:
Private Sub ChkUnderline_Click()
If ChkUnderline.Value = 1 Then
TxtContent.FontUnderline = True
Else
TxtContent.FontUnderline = False
End Sub
CmdQuit 按钮:
Private Sub CmdQuit_Click()
End
End Sub
五、分组控件(Frame)的学习:
从前面学到的知识我们知道,单选按钮只能多选一,那么,下面这种分组选项的选择又该如何制作呢?如图二:
图二
在图二中,既可以选择性别,又可以选择年级,它们是通过选项框分组控件(Frame)得以实现的。
简单地说,选项框控件是将不同的选项分类,在某一类里只能多选一,但多个类别的交叉使用,可以完成比较复杂的多项选择。
不仅仅如此,我们还可以将单选按钮、多选按钮分组,不同组内的操作不会影响其他组的操作。如图三:
图三
分组控件的制作方法:
先在窗体上绘制合适大小的框架,然后点选单选控件或多选控件,最后将鼠标移到框架内并拖拉出选项按钮。
注意:请不要使用双击选择按钮控件然后将其拖动到分组框内的办法,否则,分组会失败。
VB 神童教程第二章第七节——列表框控件
Visual Basic 提供了列表框控件(ListBox)以供用户进行多个项目的选择。在工具箱面板上,列表框控件的图标如图一所示:
图一
默认的列表框控件名为 ListX(X为阿拉伯数字 1、2、3,等等),规则的命名方式为:LstX(X为用户自定义的名字,如 LstName、LstUser,等等)。
一、列表框控件的主要属性:
列表框中可以有多个项目供选择,用户通过单击某一项选择自己所需要的项目,如果项目太多,超出了列表框设计时的长度,则自动增加竖向滚动条,如图二:
图二
除了一些常见的诸如 Font 、Height、Left、Width、Enabled、Name 等属性外,列表框还有一些特殊的属性:
1、List(列表)属性:
List 是列表框最重要的属性之一,其作用是罗列或设置表项中的内容。可以在界面设置时直接输入内容,如图三:
图三
在程序运行时,列表框中所有的选项,都可以通过 List(下标值) 的形式表示。比如列表框中的第一项,用 List(0)表示,列表框中的第二项,用 List(1)表示,列表框中的第十项,用 List(9)表示,以此类推。
大家注意,列表框中的第一项,是 List(0) ,而不是 List(1) 。
<1>、List() 属性的使用是非常灵活的,比如我们要从如图二的列表框(Lst1)中取出第三项内容,可以用下面的代码做到:A$ = Lst1.List(2)
其中,A 是一个变量;$ 指明了这个变量的类型:字符串型;这句话的意思是:将 Lst1 列表框中第三项(List(2))取出来然后赋值给字符串变量 A 。
象上面这种赋值办法,在 VB 中是非常普遍的,又如以前我们学到的:
LblShow.Caption = "Visual Basic",这句话是指将 Visual Basic 这个字符串赋值给 LblShow 标签控件并作为其标题。
紧接上面的内容,假设我们用一个标签显示出刚才取出的表项:
LblShow.Caption = A$
那么显示的结果正是我们取出的选项。
可见,取出某个列表框中的某一表项并将其赋值给某个变量,代码如下:
字符串变量 = 列表框名称.List(X) ,其中,X 是下标。
<2>、通过 List() 改变原有表项:假设我们要将如图二的列表框中第三项内容改为“跟我学 VB”,只需输入下面的代码即可:
Lst1.List(2) = "跟我学 VB"
上句话的意思是将“跟我学 VB”字符串赋值给 Lst1 并作为其第三项的内容。
结果如图四:
图四
可见,要修改某个列表框中某一选项:
列表框名称.List(X) = "欲修改成的内容" ,其中,X 是下标。
2、ListCount