使用计时器控件Timer

Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged If RadioButton1.Checked = True Then a = "黑体" End If If RadioButton2.Checked = True Then a = "宋体" End If If RadioButton3.Checked = True Then a = "隶书" End If TextBox1.Font = New Font(a, 16, FontStyle.Regular) End Sub
7.2 使用单选按钮和复选框控件
7.2.2 复选框控件（CheckBox）
复选框控件CheckBox与单选按钮控件RadioButton的作用差不多，只是 CheckBox允许用户从程序提供的多个选项中选中一个或多个供选项。 CheckBox组中的某个选项被选中时其他选项不会失效。其主要的属性和事 件见表5-7。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Then ErrorProvider1.SetError(TextBox1, "必须输入姓名") ElseIf TextBox2.Text = "" Or Val(TextBox2.Text) < 1 Or Val(TextBox2.Text) > 100 Then ErrorProvider1.SetError(TextBox2, "成绩必须在０～１００之 间") ElseIf (RadioButton1.Checked = False) And (RadioButton2.Checked = False) Then ErrorProvider1.SetError(GroupBox1, "必须选择一门课程") Else Label3.Text = TextBox1.Text & "的" & strcoursename & "成绩 是：" & TextBox2.Text & "分" End If End Sub
Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged If RadioButton1.Checked = True Then a = "黑体" End If If RadioButton2.Checked = True Then a = "宋体" End If If RadioButton3.Checked = True Then a = "隶书" End If TextBox1.Font = New Font(a, 12, FontStyle.Regular) End Sub
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged If RadioButton1.Checked = True Then a = "黑体" End If If RadioButton2.Checked = True Then a = "宋体" End If If RadioButton3.Checked = True Then a = "隶书" End If TextBox1.Font = New Font(a, 24, FontStyle.Regular) End Sub
1)
7.3 验证用户输入
7.3.1 验证用户输入的指导原则
在大多数应用程序中，用户需要输入数据以供程序处理。这时必须保证用 户输入数据的有效性，以使程序正常运行。
在编写程序时，一般应遵循以下指导原则来验证用户的输入：
① 在任何情况下都要防止用户输入无效数据。比如要求用户只能输入日期 或数字。
② 引导用户输入有效数据，并控制允许重试的次数。从而避免因用户输入 错误次数过多而影响系统和用户的使用，甚至产生安全隐患。
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = "" Label3.Text = "" TextBox1.Focus() TextBox2.Text = "" ErrorProvider1.SetError(TextBox1, "") ErrorProvider1.SetError(TextBox2, "") ErrorProvider1.SetError(GroupBox1, "") RadioButton1.Checked = False RadioButton2.Checked = False End Sub
7.1 使用计时器控件（Timer）
7.1.1 计时器控件的属性、方法和事件
7.1.2
例7-1
计时器控件应用实例
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim d As Date = Date.Now Dim dd As String = d.ToLongDateString Me.Text = "日期和时间" Timer1.Interval = 1000 Timer1.Start() '启动计时器 Label1.Text = "今天的日期是：" & dd Label1.Left = (Me.Width - Label1.Width) / 2 End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim d As Date = Date.Now Dim t As String = d.ToLongTimeString Label2.Text = "现在的时间是：" & t Label2.Left = (Me.Width - Label1.Width) / 2 End Sub
7.2.3 单选按钮和复选框应用实例
ຫໍສະໝຸດ Baidu
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Then Label3.Text = " 你忘记输入姓名了！" TextBox1.Focus() Exit Sub End If Dim strmsg1, strmsg2 As String strmsg1 = TextBox1.Text & "," & IIf(RadioButton1.Checked, "男", "女，") & "," strmsg1 = strmsg1 & IIf(RadioButton3.Checked, "汉族", "少数民族") If CheckBox1.Checked Then strmsg2 = strmsg2 & CheckBox1.Text & "," If CheckBox2.Checked Then strmsg2 = strmsg2 & CheckBox2.Text & "," If CheckBox3.Checked Then strmsg2 = strmsg2 & CheckBox3.Text & "," If CheckBox4.Checked Then strmsg2 = strmsg2 & CheckBox4.Text & "," If Len(strmsg2) = 0 Then strmsg2 = "你没有任何爱好，真可惜" Else strmsg2 = "你的爱好是：" & Microsoft.VisualBasic.Left(strmsg2, Len(strmsg2) End If Label3.Text = strmsg1 Label4.Text = strmsg2 End Sub
③ 应该让用户输入数据时有一定的灵活性。比如在多个输入控件中，输入 的先后顺序无关紧要。
④ 对某些特殊情况，需要特殊处理。比如输入学生的出生日期，虽然输入 的是日期型数据，但日期必须有一定的范围，不能是任意一个日期。
7.3 验证用户输入
7.3.2 使用内建验证及验证控件
1. 内建验证 大多数控件都提供了一些内建验证。例如，文本框控件的PasswordChar 属性可以用来避免输入的字符被直接显示到屏幕上而被他人看到；文本框的 MaxLength属性可以设置文本框中最多允许输入的字符个数，ReadOnly属 性可以设置文本框信息为只读等等。 2. Masked Edit控件 Masked Edit控件可以用来确保用户按照应用程序的要求格式输入数据和 显示输出。要使用Masked Edit控件首先必需将该控件添加到工具箱中。 ① 在“工具”菜单，选择“添加/删除工具箱项”，进入“自定义工具箱”对 话框。 ② 在“自定义工具箱”对话框的“COM组件”选项卡上，选取 “Microsoft Masked Edit Control,version 6.0”选项，单击【确定】按 钮。这时工具箱中就会出现Masked Edit控件。双击将该控件添加到窗体中 就可以使用了。
7.2 使用单选按钮和复选框控件
7.2.2 复选框控件（CheckBox）
复选框控件CheckBox与单选按钮控件RadioButton的作用差不多，只是 CheckBox允许用户从程序提供的多个选项中选中一个或多个供选项。 CheckBox组中的某个选项被选中时其他选项不会失效。其主要的属性和事 件见表5-7。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load RadioButton1.Checked = True RadioButton6.Checked = True TextBox1.Font = New Font("黑体", 12)
7.2 使用单选按钮和复选框控件
7.2.1 单选按钮控件（RadioButton）
单选按钮RadioButton通常以一组的形式出现在窗体上，可以为用户提供 选项，并显示该选项是否被选中（内部有一黑点者表示选中）。该控件常用 于“多选一”的情况，当组内某个按钮被选中时，其他按钮将自动失效。如 果需要在同一个窗体中创建多个单选按钮组，则需要将其绘制在不同的“容 器”（如分组框和图片框等）中。其主要属性及事件见表所示。
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged If RadioButton4.Checked = True Then b = 24 End If If RadioButton5.Checked = True Then b = 16 End If If RadioButton6.Checked = True Then b = 12 End If TextBox1.Font = New Font("黑体", b, FontStyle.Regular) End Sub