彩票开奖 52常用标准控件-1 中奖号码 Re① Exit o) 例51彩票开奖器 No1o2‖No.3』No4 Private Sub Cmd Redo click'点击ReDo按钮 Fori=0 To 3 Labell(i). Caption="True Command1(i) Enabled Next i End Sub Private sub cmd exit clicke()'点击Exit按钮 End End sub 同日寻
5.2 常用标准控件－1 [例5.1] 彩票开奖器 Private Sub Cmd_Redo_Click() '点击ReDo按钮 For i = 0 To 3 Command1(i).Enabled = True Label1(i).Caption = "" Next i End Sub Private Sub Cmd_Exit_Click() '点击Exit按钮 End End Sub 返回目录
52常用标准控件-1 文本框使用示例 例52同步显示 两个文本框: Multiline设为True Scrollbars设为2 重新输入 Private Sub TextI changeo Text2 Text TextText End sub Private Sub Commandl click'重新输入 Text1.Text= Text1. set Focus End sub 同日寻
5.2 常用标准控件－1 [例5.2] 同步显示 Private Sub Text1_Change() Text2.Text = Text1.Text End Sub Private Sub Command1_Click() '重新输入 Text1.Text = "" Text1.SetFocus End Sub 返回目录 两个文本框： MultiLine设为True ScrollBars设为2
考生登录 52常用标准控件-1 准考证号2001006 工程1 座位号回 例531考生登录 正确 确定 If Len(Txtcode. Text)<8 Then 正确无误 Lblsm. Caption="准考证号必须输入,长度8位!" xcode. SetFocus Elself Len(txtname.Text)=0 Then “正确无误”按 钮的 Click事件响 LbIsm Capt="考生姓名必须输入”应代码:各项信 Txtname. Set Focus Exit Sub 息均正确输入后 Elself Len(Txtseat.Text)=0 Then 弹出一信息框。 Lblsm. Caption="座位号必须输入 TxtSeat. Set Focus Exit Sub End If Lblsm. Caption=": Msg Box"正确 同日寻
5.2 常用标准控件－1 [例5.3] 考生登录 If Len(Txtcode.Text) < 8 Then Lblsm.Caption = "准考证号必须输入,长度8位！" Txtcode.SetFocus ElseIf Len(Txtname.Text) = 0 Then Lblsm.Caption = "考生姓名必须输入" Txtname.SetFocus ：Exit Sub ElseIf Len(TxtSeat.Text) = 0 Then Lblsm.Caption = "座位号必须输入" TxtSeat.SetFocus ：Exit Sub End If Lblsm.Caption = "" ： MsgBox "正确" 返回目录 “正确无误”按 钮的Click事件响 应 代 码 ：各 项信 息 均 正 确输 入后 弹出一信息框
考生登录 准考证号p31008 52常用标准控件-1 姓名 座位号 例531考生登录 准考证号必须输入,长度8位! Private Sub Txtcode Lost Focus 正确无误 If Len(txtcode. Text)<8 Then Lblsm. Caption="准考证号必须输入,长度8位!" Txtcode. Set Focus “准考证号”文 Elself Not ISNumeric(Txtcode.Text)Then 本框失去焦点时 Lblsm. Caption="准考证号必须是数字!的事件响应代码 检查是否输入8位 xcode. Setfocus 数字。 Else IsNumericO是 Lblsm. Caption="判断数字函数 End if End sub 同日寻
5.2 常用标准控件－1 [例5.3] 考生登录 Private Sub Txtcode_LostFocus() If Len(Txtcode.Text) < 8 Then Lblsm.Caption = "准考证号必须输入,长度8位！" Txtcode.SetFocus ElseIf Not IsNumeric(Txtcode.Text) Then Lblsm.Caption = "准考证号必须是数字！" Txtcode.SetFocus Else Lblsm.Caption = "" End If End Sub 返回目录 “准考证号”文 本 框 失 去焦 点时 的事件响应代码 ： 检查是否输入8位 数字。 IsNumeric()是 判断数字函数
考生登录 52常用标准控件-1 准考证号06 姓名 例531考生登录 座位号 考生姓名必须输入! 正确无误 Private Sub Txtname Lost Focus If Len(txtcode. Text)<8 Or Not IsNumeric(Txtcode.Text) Then xcode. SetFocus Elself Len(Txtname. Text)=0 Then “姓名”文本 Lblsm Capti="考生姓名必须输入!”框失去焦点时 的事件响应代 Txtname SetFocus 码:检查姓名 Else 是否输入。 Lblsm. Caption 911 End if End sub 同日寻
5.2 常用标准控件－1 [例5.3] 考生登录 Private Sub Txtname_LostFocus() If Len(Txtcode.Text) < 8 Or Not IsNumeric(Txtcode.Text) Then Txtcode.SetFocus ElseIf Len(Txtname.Text) = 0 Then Lblsm.Caption = "考生姓名必须输入！" Txtname.SetFocus Else Lblsm.Caption = "" End If End Sub 返回目录 “姓名”文本 框失去焦点时 的事件响应代 码：检查姓名 是否输入