牛实验七 常用控件程序设计.docVIP

  • 6
  • 0
  • 约3.98千字
  • 约 8页
  • 2017-05-12 发布于河南
  • 举报
牛实验七 常用控件程序设计

-+-实验七 常用控件程序设计(4个学时) 一 、实验目的 掌握单选按钮、复选按钮、框架、列表框、组合框、时钟和滚动条的属性、事件和方法。 明确常用内部控件的功能,熟练使用“属性”窗口设置属性。 掌握在常用内部控件的事件过程中编写程序代码。 二 、实验内容 1. 设计一个程序运用单选按钮、复选框和框架对文本框中文本的颜色、字号和效果进行设置。 要求:文本的颜色可以选择红色、绿色和蓝色。文本的字号可以选择12、18、24号,效果可以选择删除线和下划线。当文本框中输入文字后,单击某个按钮,文本框中的文字将按所选择的选项进行设置。 1)代码设计如下 Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontStrikethru = True Else Text1.FontStrikethru = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Text1. FontUnderline= True Else Text1.FontUnderline = False End If End Sub Private Sub Option1_Click() If Option1.Value = True Then Text1.ForeColor = vbRed End If End Sub Private Sub Option2_Click() If Option2.Value = True Then Text1.ForeColor = vbBlue End If End Sub Private Sub Option3_Click() If Option3.Value = True Then Text1.ForeColor = vbGreen End If End Sub Private Sub Option4_Click() If Option4.Value = True Then Text1.FontSize = 12 End If End Sub Private Sub Option5_Click() If Option5.Value = True Then Text1.FontSize = 18 End If End Sub Private Sub Option6_Click() If Option6.Value = True Then Text1.FontSize = 24 End If End Sub Private Sub Form_Load() Text1.FontStrikethru = False Text1.FontUnderline = False Frame1.Caption = 颜色 Frame2.Caption = 字号 Frame3.Caption = 效果 Option1.Caption = 红色 Option2.Caption = 蓝色 Option3.Caption = 绿色 Option4.Caption = 12 Option5.Caption = 18 Option6.Caption = 24 Check1.Caption = 删除 Check2.Caption = 下划 Text1.Text = 实验七 常用控件程序设计 End Sub 2)运行后的结果 (将运行结果的界面截下来粘贴在下面) 3)调试过程记录(错误情况及改正方法,不得少于三条) 代码中引号应为英文半角字符 代码应与控件名称相似 代码需输入正确 2. 编写一个为组合框中添加或删除内容的程序。 要求: 1)在组合框中输入内容后,单击“添加”按钮,如果列表框中没有该内容,则将输入内容加入到列表框中,否则不添加,另外,要求组合框中的内容能自动按字母顺序排序。 2)在列表框中选择某一选项后,单击“删除”按钮,则删除该项。 3)单击“清除’按钮,将清除列表框中所有的内容。 1)代码设计 Option Explicit Private Sub Command1_Click() Dim i%, q As Boolean For i = 0 To List1.ListCount - 1 If List1

文档评论(0)

1亿VIP精品文档

相关文档