- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求教：如何实现选择不同的页签标题，执行不同的代码？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51928)
-- 发布时间：2014/6/5 18:25:00
-- 求教：如何实现选择不同的页签标题，执行不同的代码？
求教：如何实现选择不同的页签标题，执行不同的代码？
此主题相关图片如下：0123.jpg
当选择验证登记的时候，执行Tables("身份证校验").AddNew()
当选择来访登记的时候，执行Tables("来访登记").AddNew()
-- 发布时间：2014/6/5 18:57:00
-- 经过摸索 形成了如下代码
求教：一下代码已经实现了不同页签标题选择后运行不同的代码。
求完善：当离开页签标题从新增员工离开之后 关闭设备或者进行提示
Dim tb1 As WinForm.TabControl = e.Form.Controls("TabControl1")
If tb1.SelectedPage.Name= "新增员工" Then
Try
Dim lb1 As WinForm.Label = e.Form.Controls("Label1")
Dim iRetUSB As Integer
For iPort As Integer = 1001 To 1016
iRetUSB = InitComm(iPort)
If iRetUSB = 1 Then
Exit For
End If
Next
If iRetUSB = 1 Then
lb1.Text = "电脑与身份证阅读器连接成功,可以读取身份证信息!"
e.Form.TimerEnabled = True
Else
lb1.Text = "设备连接失败,请检查设备连接线!"
e.Form.TimerEnabled = False \'停止计时器,使得自动读取功能失效
e.Form.Controls("Button1").Enabled = False \'禁用读卡按钮
e.Form.Controls("CheckBox1").Enabled = False \'禁用自动读取复选框
End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End If
If tb1.SelectedPage.Name= "验证登记" Then
Tables("身份证校验").AddNew()
Try
CloseComm() \'断开设备
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End If
If tb1.SelectedPage.Name= "来访登记" Then
Try
Dim lb1 As WinForm.Label = e.Form.Controls("Label1")
Dim iRetUSB As Integer
For iPort As Integer = 1001 To 1016
iRetUSB = InitComm(iPort)
If iRetUSB = 1 Then
Exit For
End If
Next
If iRetUSB = 1 Then
lb1.Text = "电脑与身份证阅读器连接成功,可以读取身份证信息!"
e.Form.TimerEnabled = True
Else
lb1.Text = "设备连接失败,请检查设备连接线!"
e.Form.TimerEnabled = False \'停止计时器,使得自动读取功能失效
e.Form.Controls("Button1").Enabled = False \'禁用读卡按钮
e.Form.Controls("CheckBox1").Enabled = False \'禁用自动读取复选框
End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End If
If tb1.SelectedPage.Name= "记录预览" Then
Try
CloseComm() \'断开设备
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End If
-- 发布时间：2014/6/5 19:06:00
--
离开？去编写TabControl的SelectedIndexChanged事件
判断一下，关闭即可。