| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]如何设置内部函数（已解决） (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=64261) |
| -- 作者：yyzlxc -- 发布时间：2015/2/9 10:25:00 -- [求助]如何设置内部函数（已解决） 计划管理_读ID卡 Dim status1 As Byte Dim a,b As Integer Dim mypiccserial(4) As Byte \'卡序列号 status1 = idr_read_once(mypiccserial(0)) If status1 = 0 Then idr_beep(50) \'2毫秒*50 a = (Convert.ToString(mypiccserial(1) * 256 * 256 * 256 + mypiccserial(2) * 256 * 256 + mypiccserial(3) * 256 + mypiccserial(4))) b = (a Mod 256 * 256) + (INT(a /(256 * 256)) Mod 256) * 100000 Forms("窗口1").Controls("TextBox1").Value = "" Forms("窗口1").Controls("TextBox1").Value = Format(b,"00000000") End If 以上代码是读取ID卡序列号，并将序列号填充到窗口1的"TextBox1"文本框。 如何将以上代码设置为获取ID卡序列号的内部函数，并在计划管理窗口根据条件（如打开窗口1时）进行调用（），请各位老师指教，谢谢！！
[此贴子已经被作者于2015/2/9 11:44:47编辑过]
|
| -- 作者：有点甜 -- 发布时间：2015/2/9 10:29:00 -- If Forms("窗口1").Opened Then \'代码 End If |
| -- 作者：有点甜 -- 发布时间：2015/2/9 10:29:00 -- 直接做一个内部函数，拷贝代码进去即可。
http://www.foxtable.com/help/topics/1486.htm
|
| -- 作者：yyzlxc -- 发布时间：2015/2/9 10:31:00 -- 谢谢甜老师的回复，请问实现上述功能的内部函数应该如何写？请指教，谢谢！！ |
| -- 作者：有点甜 -- 发布时间：2015/2/9 10:32:00 -- 一样，直接拷贝代码进去就行啊 |
| -- 作者：yyzlxc -- 发布时间：2015/2/9 10:38:00 -- 那么在计划管理中如何调用这个内部函数呢？还有，代表序列号的"b"是否要设置成全局变量？ |
| -- 作者：有点甜 -- 发布时间：2015/2/9 10:39:00 -- 看3楼 |
| -- 作者：yyzlxc -- 发布时间：2015/2/9 11:44:00 -- 问题解决，谢谢甜老师！！ |