程序设计基础-Visual Basic(2019秋)

沈阳师范大学 刘立群

目录

  • 认识 Visual Basic
    • ● 认识 Visual Basic
    • ● 对象的属性、事件和方法
    • ● 控件的容器-窗体
    • ● 文本编辑工具-文本框
    • ● 命令按钮和标签
  • 程序设计基础
    • ● 语句和语法规则
    • ● 数据类型和常量变量
    • ● 运算符与表达式
    • ● 常用内部函数
    • ● 输入与输出
  • 基本控制结构和算法
    • ● 程序结构与算法
    • ● 选择结构的语句实现
    • ● 循环结构的语句实现
    • ● 穷举和递推问题求解
    • ● 嵌套循环解百钱百鸡问题
    • ● 星形矩阵的显示问题
  • 常用标准控件
    • ● 选择控件和滚动条--设置文字格式
    • ● 列表框及组合框—购票系统
    • ● 计时器与图片控件—自动变换的交通灯
    • ● 图形操作—小球运动
  • 数组和过程
    • ● 数组的定义与一维数组的应用
    • ● 二维数组
    • ● 控件数组
    • ● 自定义过程
    • ● 参数传递
    • ● 变量的作用域
  • 键盘鼠标事件与菜单设计
    • ● 鼠标键盘事件--小鸡吃虫游戏
    • ● 菜单程序设计--控制移动字幕
  • 通用对话框与文件操作
    • ● 通用对话框与文件操作
    • ● 文件操作--打开保存数据实例
选择控件和滚动条--设置文字格式


单选钮和复选框

单选钮(OptionButton)主要用来表示一系列的互斥选项,这些互斥选项常常被分成若干个组,每组仅允许用户选择一项。

复选框(CheckBox)与单选钮类似,不同之处是复选框代表多重选择。在列出可供用户选择的多个选项中,用户根据需要可选择一项或多项。

一、常用属性和事件

1.常用属性

⑴ Caption属性

该属性值为字符串型,用来设置单选钮的标题。

⑵ Value属性

Value属性用来设置或返回单选钮和复选框的状态,单选钮与复选框的Value属性不同,单选钮该属性值为逻辑型,而复选框该属性值为整型。

单选钮Value属性

       True:被选定。

       False(默认值):未被选定。

复选框Value属性

       0—Unchecked(默认值):未选定。

       1—Checked:选定。

       2—Grayed:禁止用户选择,此时复选框呈灰色。

⑶ Style属性

该属性值为整型,用来设置单选钮的显示方式。

0—Standard(默认值):标准方式。

1—Graphical:图形方式。

当该属性值为0-Standard时,可以显示控件按钮和标题;当该属性为1-Graphical时,单选钮外观与命令按钮类似。Style属性只能在属性窗口中进行设置。

⑷ Alignment属性

该属性值为整型,用来设置单选钮标题的对齐方式。

0—Left Justify(默认值):控件按钮在左边,标题显示在右边。

1—Right Justify:控件按钮在右边,标题显示在左边。

2.常用事件

单选钮和复选框的常用事件是Click事件。

 

框架

框架(Frame)是一个容器控件,用于将其它的控件对象分组。将不同的控件对象放在一个框架中时,不仅实现了视觉上的区分,而且框架内的所有控件可以随框架一起移动、显示、消失和禁用。

利用框架为单选钮分组

框架通常用来为单选钮分组。因为在若干个单选钮中只可以选择一个,但是有时有多组选项,希望在每组选项中各选一项。这时就需要用框架将单选钮分成几组,每组作为一个单元分别进行选择。

在框架中添加控件的方法有两种:

方法一:先创建框架,然后在框架内添加需要分组的控件。在添加控件时只能采用单击工具箱上的工具,然后在框架内拖动鼠标绘制控件的方式。这样才能保证框架内的控件成为一个整体和框架一起移动。

方法二:将框架外的控件放到框架内。如果将外部控件直接拖放到框架内,则该控件不会真正成为框架的一部分。正确的做法是,必须先选定这些外部控件,将它们剪切,然后单击选定框架并粘贴。粘贴成功后,拖动框架会使其中的控件与其一起移动。


框架的常用属性和事件

1.常用属性

⑴ Caption属性

该属性值为字符串型,用来设置框架的标题。

框架的标题位于框架的左上角。如果Caption属性值为空字符串,则框架为封闭的矩形框。

⑵Enabled属性

该属性值为逻辑型,用来设置框架是否有效,即框架内的所有控件是否有效。

       True(默认值):有效

       False:无效

该属性只能在程序中用代码进行设置。当该属性设置为False时,框架的标题为灰色,框架内的所有对象均被屏蔽,不允许用户对其进行操作。

⑶Visible属性

该属性值为逻辑型,用来设置框架是否可见。

       True(默认值):可见

       False:隐藏

该属性只能在程序中用代码进行设置,当该属性设置为False时,框架及其框架内的所有控件将被隐藏起来。

2.常用事件

框架可以响应Click、DblClick等事件。但是,在应用程序中一般不需要编写有关框架的事件过程。

 

滚动条

滚动条(ScrollBar)通常在窗体上用来协助观察数据或确定位置,也可以作为数据输入的工具。Visual Basic提供的滚动条有水平滚动条(HScrollBar)和垂直滚动条(VScrollBar)两种。我们先来看一个利用滚动条的程序实例。

1.常用属性

⑴ Max属性和Min属性

Max属性值为整型,用来设置当滑块处于滚动条最大位置时所代表的值。取值范围限定在-32,768~32,767,默认值为32767。

Min属性值为整型,用来设置当滑块处于滚动条最小位置时所代表的值。取值范围限定在-32,768~32,767,默认值为0。

最小值与最大值之间的数值变化就是滚动条值的变化范围。利用滚动进行程序设计,首先就要设置滚动条的取值范围。对例3而言就是,要先设置按钮宽度和高度的变化范围。其中,命令按钮的最小宽度为200,最大宽度不应超过命令按钮的初始控件宽度(Command1.Width),用下面两条语句实现:

HScroll1.Max =Command1.Width

HScroll1.Min =200

命令按钮的最小高度为200,最大高度不应超过命令按钮的初始控件高度(Command1.Height),用下面的两条语句实现:

VScroll1.Max =Command1.Height

VScroll1.Min =200

⑵ SmallChange(小变动值)属性和LargeChange(大变动值)属性

SmallChange属性值为整型,用来设置用户单击滚动条两端箭头时,滑块移动的距离,即Value属性增加或减少的量,其默认值为1。

LargeChange属性值为整型,用来设置用户单击滚动条空白处时,滑块移动的距离,即Value属性增加或减小的量,其默认值为1。

===================================================================================

                                                                      实验

程序设计:利用单选钮和复选框修改文本框文字格式

项目说明:窗体上有一个文本框,三个框架将单选钮和复选框分为3组,分别控制文本框的字体、字形和颜色。字号由滚动条进行控制。程序运行后,在文本框中输入文本,在单选钮和复选框中进行选择,改变滚动条滑块位置时,标签中提示字号的大小,最后单击命令按钮“确定”,文本框中的文字就会发生变化。

项目分析:

程序中需要将单旋钮和复选框分组,所以需要使用框架控件。

程序要求所有内容选择完毕后单击“确定”按钮,文本框才发生变化,所以要求程序代码编写在“确定”按钮的单击事件中。滚动条发生变化时标签显示的字号应该跟随变化,这需要编写在滚动条的change事件中。

项目设计步骤:

1界面设计

在窗体中添加1个文本框、3个框架、2个标签、一个水平滚动条和1个命令按钮、

在框架上分别添加单旋钮和复选框。注意:框架的使用方法为:先添加框架后添加框架上的控件,如果将已经存在的控价放到框架上需要“剪切控件,到框架上再粘贴”,测试控件是否添加到框架上的方法是:拖动框架,看上面的控件是否跟随移动。

2.属性设置

设置文本框和按钮的相关属性。

滚动条Min 设置为5,Max设置为100,smallchange设置为2,largchange设置为10.

3.编写代码。编写命令按钮的Click事件,程序要根据Value属性值的不同,进行简单的分支选择,注意对单旋钮的判断是判断value属性是否为真,而对复选框的判断是判断其value属性是否为1. 还需要在滚动条的change编写控制字号的语句,这里控制的是标签显示的数字,在按钮click事件中再控制文本框fontsize属性变化。

4.运行程序

选择字体、字形和颜色,滑动滚动条滑块或单击滚动条两端按钮,再单击确定按钮,观察文本框文字的变化。

 Private SubCommand1_Click()

    '控制字体

    If option1.Value = True Then Text1.FontName= "宋体"

    If Option2.Value = True Then Text1.FontName= "黑体"

    If Option3.Value = True Then Text1.FontName= "楷体_GB2312"

    '控制字形

    If Check1.Value = 1 Then

        Text1.FontUnderline = True

    Else

        Text1.FontUnderline = False

    End If

   

    If Check2.Value = 1 Then

        Text1.FontItalic = True

    Else

        Text1.FontItalic = False

    End If

     '控制字的颜色

    If Option4.Value = True Then Text1.ForeColor= vbRed

    If Option5.Value = True ThenText1.ForeColor = vbGreen

    If Option6.Value = True ThenText1.ForeColor = vbBlue    

    '控制字的大小

    Text1.FontSize = HScroll1.Value

End Sub

 

Private SubHScroll1_Change()

Label2.Caption = HScroll1.Value   '滚动条变化时在标签中显示值

End Sub

4.运行程序

选择字体、字形和颜色,滑动滚动条滑块或单击滚动条两端按钮,再单击确定按钮,观察文本框文字的变化。


===================================================================================

                                                                     练习