文档详情

[2018年最新整理]20(改变颜色,改变窗体背景颜色).doc

发布:2018-02-19约4千字共7页下载文档
文本预览下载声明
(1) 【解题思路】通过命令按钮的Name、Caption属性设置命令按钮的名称、标题,通过窗体的Caption属性设置窗体的标题,在C1_Click事件过程中,通过设置窗体的BackColor属性实现单击命令按钮时,将窗体的背景颜色改为红色。 【操作步骤】 步骤1:建立一个窗体,在窗体中添加一个命令按钮,并添加并设置控件的属性。程序中用到的控件及属性见表3.67。 表3.67 控件 命令按钮 窗体 属性 Name Caption Caption 设置值 C1 改变颜色 改变窗体背景色 步骤2:编写程序代码。 参考答案 Private Sub C1_Click() Form1.BackColor = HFF End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 【举一反三】可以通过第41套第一大题的第二小题来进行同类知识点的练习。 (2) 【解题思路】通过形状控件的Name、Shape属性设置形状控件的名称和形状,通过列表框的Name、List属性设置列表框的名称和列表项,单击列表框中的某一项,通过List1的Text属性确定选中的值,并将其值作为形状控件的填充参数,FillStyle属性用于返回/设置一个形状控件的填充样式。 【操作步骤】 步骤1:建立界面,将窗体的Caption属性设置为图形控件。然后设置控件的属性。程序中用到的控件及属性见表3.68。 表3.68 控件 形状控件 列表框 属性 Name Shape Name List 设置值 Shape1 3 List1 1 2 3 4 5 步骤2:编写程序代码。 参考答案 Private Sub List1_Click() Shape1.FillStyle = List1.Text End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 【举一反三】可以通过第12套第一大题的第一小题来进行同类知识点的练习。 (1)【解题思路】Sub calc()函数实现将大于文本框中的正整数,并且能够被所选除数整除的5个数添加到列表框List1中,首先调用ClearList函数清空列表框,运用Val函数使Text1的值由字符转化为数值,Do While语句控制产生整数的个数为5个,通过Mod函数和If语句判断是否能被所选数整除,并用列表框的AddItem方法,把能被整除的数添入到列表框中。在Command1 Click事件过程中,向文本框中输入正整数,并运用val(Option1(i). Caption)语句提取单选按钮数组中所选的数值,再通过调用calc()函数实现数据的处理过程。 【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Dim y As Integer For i = 0 To 2   If ? = True Then   y = val(Option1(i).?)    End If Next Call calc(y) End Sub Private Sub_calc(y As Integer) ClearList i = 1 x = Val(Text1.Text) + 1  Do While i = ?    If x Mod y = 0 Then   List1.AddItem ?      i = i + 1    End If    x = x + 1 Loop End Sub Private Sub_ClearList() For k = List1.ListCount - 1 To 0 Step -1    List1.RemoveItem k Next k End Sub 程序结束 参考答案 第1个?处填入:Option1(i).value 第2个?处填入:Caption 第3个?处填入:5 第4个?处填入:x 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 【举一反三】可以通过第47套第二大题的第二小题来进行同类知识点的练习。 (2)【解题思路】在Command1 Click事件过程中,Timer1的Enabled属性设置为True,图片开始移动,在Command2 Click事件过程中,Timer1的Enabled属性设置为False,图片停止移动。窗体装入时Timer1的Interval属性设置为500,表示Timer1时间间隔为0.5秒。在Timer1 Timer事件过程中,Picture1的Top属性值的改变使图片自上而下移动,VScroll1的Value 属性值等于 Picture1的Top属性值,使滚动条的滑块随之移动。运用If语句,通过对VScroll1的Value属
显示全部
相似文档