下载文档原格式
vb6.0实验六习题与答案实验六专业_1、认识常用控件：单选按钮、复选框、框架、列表框、组合框、滚动条、滑动器（slider）、时钟、图形控件；2.学习在表单中创建常用控件2、学习在属性窗口和在程序代码中设置属性3、学习调用控件的方法4.学习编写每个控件、鼠标和键盘的事件过程。
二、实验内容1、单选按钮、复选框、框架1）将表格F1的标题设置为“复选框、框架和单选按钮”；将表格中复选框ch1、ch2ch1和CH2的高度和宽度分别设置为360和1000；程序运行时，check2处于非零状态。
FR1帧包含单选按钮OP1和op2。
2）设计窗体，要求①标题为“设置字体”；② 带边框的标签控件Label1以表格形式设置，高度和宽度分别为450和3800，标题为“欢迎VB”，字体大小为“4”，并显示在中间；③标题为“字体”框架包含两个标题分别为“楷体_gb2312”和“华文新魏”的单选按钮op1和op2；④ 标题为“Italic”的框架包含两个标题为“是”和“否”的单选按钮。
⑤ 编写相应控件的事件进程，使程序运行时，点击“Kaiti_gb2312”，标签控件的字体为Kaiti_gb2312，点击“Chinese New Wei”，标签控件的字体为Chinese New Wei；单击Yes，label控件的字体将为斜体。
单击“否”取消标签控件字体的斜体化。
privatesuboption1_click()标签1。
fontname=option1。
说明文字endsubprivatesuboption2_uu单击（）label1.fontname=option2.captionendsubprivatesuboption3_click()label1.fontitalic=trueendsubprivatesuboption4_click()label1.fontitalic=falseendsub3）在窗体是设置设置框text1，其中文字为：黑体、四号、居中；设置单选按钮option1和option2，标题分别为“福州大学”和“阳光学院”，编写行当的事件过程，使得程序时，单击“福州大学”或“阳光学院”，在文本框中显示“福州大学”或“阳光学院”。
功---- VB6无疑是当前最先进的编程工具之一,无论是它的代码编写还是与视窗98的完美结合, 都令人们特别是程序员们赞叹不已。
在这里,我将自己在编程实践中对LISTVIEW控件的一些使用经验和心得体会与广大的同仁们作以探讨,希望大家批评指正,或者有所借鉴。
---- 在VB6专业版或者企业版中,LISTVIEW控件并不是默认的工具箱的配置项目,你必须要手工添加---单击"工程"菜单项目,选择"部件",在部件对话框的"控件"栏目中选择"MICROSOFT WINDOWS COMMON CONTROLS 6.0",确认在它前面的复选框中有一个黑色的对号,单击"确认" 按钮,这时你的工具箱中便添加了几个控件,其中,有五个空心圆圈的便是LISTVIEW控件了, 当然怎么把它添加到窗体上就不用我多说了吧。
---- 我个人认为,作为一个增强功能的列表框,它的本质是用来显示更多的信息的.因此, 在这篇文章中,我着重介绍它VIEW属性的LVWREPORT(报表)值的使用.至于它的外观怎样设计,诸位当然可以随心所欲了.为了直观一点,我举一个应用实例来说明。
---- 设计完成后的主界面参见图一,它实际上是一个增强功能的文件浏览器。
---- 首先新建一个标准EXE工程,主窗体名称为FRMMAIN,添加一个驱动器列表框DRIVE1,一个文件列表框FILE1（设置VISIBLE属性FALES，PATTERN属性(*.EXE；*.DLL)），一个目录列表框DIR1,一个增强列表框LISTVIEW1,一个IMAGE控件IMAGE1和一个IMAGELIST控件IMALIST1，在IMALIST1控件上单击右键,设计IMAGELIST控件，添加一个你最喜欢的图标（最好使用ICON图标），索引为一。
在主窗体FRMMAIN的通用声明段输入以下代码：Dim clmX As ColumnHeader；标题栏Dim itmX As ListItem；列表项目Dim Counter As Long；计数器Dim Fname As String；读取文件名Dim dname As String；增强列表框完整路径名称Public CurrentDir As String；完整的目录名称在主窗体的LOAD事件中写入以下代码：Private Sub Form_Load()Me.Caption = App.Title;窗体的标题为生成可执行文件的标题Me.Left = (Screen.Width - Me.Width) / 2Me.Top = (Screen.Height - Me.Height) / 2；窗体位置在屏幕中间ListView1.ColumnHeaders.Add ,, "文件名称",ListView1.Width / 3, 0’第一个标题栏是“文件名称“,长度为ListView1 宽度的三分之一,文字左对齐Set clmX = ListView1.ColumnHeaders.Add(,, "序号", ListView1.Width / 5, 2)’第二个标题栏是“序号“ 依次往下Set clmX = ListView1.ColumnHeaders.Add(,, "文件大小 ", ListView1.Width / 4, 1)Set clmX = ListView1.ColumnHeaders.Add(,, "创建时间", ListView1.Width / 3, 0)ListView1.BorderStyle = ccFixedSingle；边界类型ListView1.SmallIcons = ImageList1 ；关联图标仓库ImageList1For Counter = 0 To File1.ListCount - 1 Fname = File1.List(Counter)；获取当前目录下符合条件的文件名Set itmX = ListView1.ListItems.Add(,, Fname)’文件名称栏目itmX.SubItems(1) = CStr(Counter + 1) +"/" + CStr(File1.ListCount)’文件在列表框位置itmX.SubItems(2) = CStr(FileLen(Fname))；文件长度itmX.SmallIcon = 1；列表项目图标itmX.SubItems(3) = Format(FileDateTime(Fname),"hh:mm yyyy/MMMM/dd")；文件创建时间Next CounterListView1.View = lvwReport;报表类型ListView1.Arrange = 0belWrap = FalseDir1.ToolTipText = "当前目录是:" & Dir1.PathEND SUB双击驱动器列表框，输入以下代码：Private Static Sub Drive1_Change()On Error GoTo IFerr;拦截错误Dir1.Path = Drive1.Drive；关联目录列表框Exit SubIFerr:；如果磁盘错误MsgBox ("请确认驱动器是否准备好或者磁盘已经不可用!"),vbOKOnly + vbExclamation；弹出注意对话框Drive1.Drive=Dir1.Path；忽略驱动器改变End Sub双击目录列表框，输入以下代码：Private Static Sub Dir1_Change()File1.Path = Dir1.Path；关联文件列表框If Right(Dir1.Path, 1) < > "\" ThenCurrentDir = Dir1.Path & "\"ElseCurrentDir = Dir1.PathEnd If；设置选定的目录名称ListView1.ListItems.Clear；清除过期的列表项目For Counter = 0 To File1.ListCount - 1Fname = File1.List(Counter)Set itmX = ListView1.ListItems.Add(, , Fname);添加文件名itmX.SubItems(1) = CStr(Counter + 1) + "/"+ CStr(File1.ListCount)itmX.SubItems(2) = CStr(FileLen(CurrentDir & Fname)) itmX.SmallIcon = 1itmX.SubItems(3) = Format(FileDateTime(CurrentDir& Fname), "HH:MM YYYY/MMMM/DD")Next Counter；添加增强列表框的各个项目Dir1.ToolTipText = "当前目录是:" & Dir1.Path；提示End Sub---- 通过以下代码取得鼠标单击增强列表框返回的项目名称：Private Sub ListView1_ItemClick(ByVal Item AsMSComctlLib.ListItem)allfname = Item;文件名dname= CurrentDir& Item;完整的路径和文件名sElectmain = ListView1.SelectedItem.Index;文件序号End Su。
vb6 控件click变量VB6 控件Click 变量在VB6 中，控件的Click 事件是一种常用的事件类型，用于捕获用户点击该控件的动作。
而Click 变量则是用于处理该事件的变量。
在本文中，我们将详细讨论VB6 控件Click 变量的用法和相关知识，并通过一步一步的回答来帮助读者更好地理解和应用这一概念。
第一步：什么是VB6 控件Click 变量？在VB6 中，控件指的是用户界面中的各种元素，如按钮、文本框、复选框等。
而Click 事件是指用户点击这些控件时所触发的动作。
当用户点击一个控件时，该控件会触发Click 事件，从而引发相应的操作。
而Click 变量则是与Click 事件相关联的变量。
它通常用于在处理Click 事件时，保存和传递相关的信息和参数。
通过Click 变量，我们可以在Click 事件发生时，对点击操作进行各种处理和响应。
总的来说，VB6 控件Click 变量是用于处理控件点击事件的变量，通过它可以实现对点击动作的控制和处理。
第二步：如何在VB6 中使用控件Click 变量？在VB6 中，使用控件Click 变量通常需要以下几个步骤：1. 首先，我们需要在设计界面上添加相应的控件，并为其设置Click 事件的处理程序。
例如，如果我们需要在点击按钮时进行一些操作，就需要为按钮控件添加Click 事件处理程序。
2. 接下来，我们可以在Click 事件处理程序中，使用Click 变量来获取和处理点击事件相关的信息。
例如，可以通过Click 变量来获取点击的按钮的名称、坐标或者其他属性信息。
3. 最后，我们可以根据Click 变量的取值，来进行相应的处理和响应。
例如，可以通过Click 变量的取值来判断用户点击了哪个按钮，然后进行相应的操作。
总的来说，使用控件Click 变量通常需要先添加相应的控件和事件处理程序，然后在事件处理程序中使用Click 变量来获取和处理点击事件的相关信息，最后根据Click 变量的取值进行相应的处理和响应。
ProgressBar-进度条ProgressBar控件通过从左到右用一些方块填充矩形来表示一个较长操作的进度。
语法ProgressBar说明ProgressBar控件监视操作完成的进度。
ProgressBar控件有一个行程和一个当前位置。
行程代表该操作的整个持续时间。
当前位置则代表应用程序在完成该操作过程时的进度。
Max 和Min 属性设置了行程的界限。
Value 属性则指明了在行程范围内的当前位置。
由于使用方块来填充控件，因此所填充的数量只能是接近于Value 属性的当前设置值。
基于控件的大小，Value 属性决定何时显示下一个方块。
ProgressBar控件的Height 属性和Width 属性决定所填充控件的方块的数量和大小。
方块数量越多，控件就越能精确地描述操作进度。
为了增加显示方块的数量，需要减少控件的Height 或者增加其Width。
BorderStyle属性的设置值同样影响方块的数量和大小。
为了适应边框要求，方块的大小要更小一点。
可以用ProgressBar控件的Align 属性把它自动定位在窗体的顶部或底部。
提示缩小方块的大小直到其所表示的进度增加量与实际进度值达到最接近的匹配程度，应使ProgressBar控件的宽度至少是其长度的13 倍。
下面的示例说明如何用一个名为ProgressBar1 的ProgressBar控件，来表示对一个大数组冗长的操作进度。
把一个CommandButton控件和一个ProgressBar控件放在同一窗体里。
示例代码中的Align 属性把ProgressBar控件定位在沿着窗体的底部。
该ProgressBar不显示任何文本。
Private Sub Command1_Click()Dim Counter As IntegerDim Workarea(250) As StringProgressBar1.Min = LBound(Workarea)ProgressBar1.Max = UBound(Workarea)ProgressBar1.Visible = True'设置进度的值为Min。
在 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（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 字体。
第五章基本控件的使用5.1 标签控件在Windows应用程序的各种对话框中，都显示有一些文本提示信息，在VB中可以使用标签控件来实现在窗体中显示这些文本提示信息。
表5.1中列出了标签控件的一些主要属性。
既可以在程序设计阶段通过【属性】窗口设置标签的属性，也可以在程序运行阶段在代码中设置窗体的属性。
如将标签（名称为Labell）显示的文本设置为"欢迎"的语句如下：Labell.Caption=欢迎实例5.1标签的使用在该程序中，窗体上显示一行提示用户执行操作的文本，当用户单击或双击窗体时，窗体上还会显示出用户所执行的操作。
在窗体上放置两个标签控件，它们的属性设置如表5.2所示。
打开【代码】窗口，将下列代码添加到Form_Click事件过程中：（BorderStyle属性的值为0）,第二行语句是设置标签上显示的文本。
窗体上显示"您双击了窗体！",并且文本有一个边框，如图5.3所示：5.2 按钮控件在应用程序中，按钮控件常常被用来启动、中断或结束一个进程，用户可以通过简单的单击按钮来执行操作。
只要用户单击按钮，就会触发它的Click事件过程，通过编写按钮的Click 事件过程，就可以指定它的功能了。
按钮控件的常用属性如表5.3所示。
5.2.1按钮的有效性在某些应用程序界面中，按钮会根据用户的操作情况呈现两种不同的状态，一种是"有效",一种是"无效".在"无效"状态时，按钮通常以浅灰色显示，不能响应用户的任何操作。
Windows系统自带的录音机程序界面，其中的【停止】与【后退】按钮无效（以浅灰色显示）.按下【播放】按钮后，【播放】按钮变为无效，而【停止】按钮变为有效。
按下【停止】按钮后，【停止】按钮变为无效，【播放】按钮恢复有效。
通过按钮的有效性可以看出当前程序的状态，从而避免一些不需要的或重复的操作。
如在录音机处于停止状态时（【停止】按钮无效）,用户就不需要再去单击【停止】按钮来停止播放了。
ProgressBar-进度条ProgressBar控件通过从左到右用一些方块填充矩形来表示一个较长操作的进度。
语法ProgressBar说明ProgressBar控件监视操作完成的进度。
ProgressBar控件有一个行程和一个当前位置。
行程代表该操作的整个持续时间。
当前位置则代表应用程序在完成该操作过程时的进度。
Max 和Min 属性设置了行程的界限。
Value 属性则指明了在行程范围内的当前位置。
由于使用方块来填充控件，因此所填充的数量只能是接近于Value 属性的当前设置值。
基于控件的大小，Value 属性决定何时显示下一个方块。
ProgressBar控件的Height 属性和Width 属性决定所填充控件的方块的数量和大小。
方块数量越多，控件就越能精确地描述操作进度。
为了增加显示方块的数量，需要减少控件的Height 或者增加其Width。
BorderStyle属性的设置值同样影响方块的数量和大小。
为了适应边框要求，方块的大小要更小一点。
可以用ProgressBar控件的Align 属性把它自动定位在窗体的顶部或底部。
提示缩小方块的大小直到其所表示的进度增加量与实际进度值达到最接近的匹配程度，应使ProgressBar控件的宽度至少是其长度的13 倍。
下面的示例说明如何用一个名为ProgressBar1 的ProgressBar控件，来表示对一个大数组冗长的操作进度。
把一个CommandButton控件和一个ProgressBar控件放在同一窗体里。
示例代码中的Align 属性把ProgressBar控件定位在沿着窗体的底部。
该ProgressBar不显示任何文本。
Private Sub Command1_Click()Dim Counter As IntegerDim Workarea(250) As StringProgressBar1.Min = LBound(Workarea)ProgressBar1.Max = UBound(Workarea)ProgressBar1.Visible = True'设置进度的值为Min。
