也可以在程序中改变,代码如下: 标签名.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
程序如下: 文本框: 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