Foxtable(狐表) → 用户栏目 → 专家坐堂 → 扫码打开指定路径文件


  共有1960人关注过本帖树形打印复制链接

主题：扫码打开指定路径文件
帅哥哟，离线，有人找我吗？
281512373
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：149 积分：1050 威望：0 精华：0 注册：2016/6/22 20:46:00 		扫码打开指定路径文件  发帖心情 Post By：2016/12/29 14:36:00 [只看该作者]

表为临时表

扫码后 查询对应路径并用本地程序打开此文件

不知道怎么下手断断续续在学ft

 


图片点击可在新窗口打开查看此主题相关图片如下：2016-12-29_142909.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2016/12/29 14:57:00 [只看该作者]

 文本框keydown事件

 

If e.keycode = 13 Then
    Dim fdr As DataRow = DataTables("表A").Find("valueText like '%" & e.sender.text & "%'")
    If fdr IsNot Nothing Then
        msgbox(fdr("path"))
        Dim proc As new Process
        proc.File = fdr("path")
        proc.Start
    Else
        msgbox("没找到")
    End If

    e.cancel = True
    e.Sender.SelectAll
End If
 回到顶部
帅哥哟，离线，有人找我吗？
281512373
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：149 积分：1050 威望：0 精华：0 注册：2016/6/22 20:46:00 		  发帖心情 Post By：2016/12/31 14:36:00 [只看该作者]

谢谢老师

图片点击可在新窗口打开查看此主题相关图片如下：2016-12-31_143043.png
图片点击可在新窗口打开查看

我还想加点功能，看能不能帮助一下。
一是扫下一个不同的条码时先关闭当前打开的文件，二是想把扫码扫码框跟输入法一样永远放在最顶层，只要有扫码动作就输入这个对话框。
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/1/1 1:07:00 [只看该作者]

1、关闭比较麻烦

 

http://www.foxtable.com/webhelp/scr/2713.htm

 

2、如果需要在任意地方都监测扫描，很麻烦，你要做个钩子

 

http://blog.csdn.net/yfiot/article/details/4146580

 
 回到顶部
帅哥哟，离线，有人找我吗？
281512373
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：149 积分：1050 威望：0 精华：0 注册：2016/6/22 20:46:00 		  发帖心情 Post By：2017/1/2 8:56:00 [只看该作者]

1、ShowAppWindow("Filename",5)可以找到并关闭；

 

2、如果需要在任意地方都监测扫描，很麻烦，你要做个钩子

 

http://blog.csdn.net/yfiot/article/details/4146580

（C弄出来了，还要与FT对接，好难呀！）


此主题相关图片如下：2017-01-02_084826.png
按此在新窗口浏览图片

[此贴子已经被作者于2017/1/2 9:10:14编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
281512373
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：149 积分：1050 威望：0 精华：0 注册：2016/6/22 20:46:00 		  发帖心情 Post By：2017/1/2 10:16:00 [只看该作者]

老师 你看这样行不行 我把文件做成pdf文件 用第三方插件在ft控件直接显示

检测扫码 这样是不是就简单多了

If e.keycode = 13 Then
    Dim fdr As DataRow = DataTables("EPDM").Find("valueText like '%" & e.sender.text & "%'")
    If fdr IsNot Nothing Then
        'msgbox(fdr("path"))
        Dim tb1 As WinForm.TextBox = e.Form.Controls("TextBox2")
        Dim tb2 As WinForm.TextBox = e.Form.Controls("TextBox3")
        tb1.Value= fdr("path")
        tb2.Value= fdr("Filename")
        Dim proc As new Process
        proc.File = fdr("path")
        proc.Start
    Else
        msgbox("没找到")
    End If
    e.cancel = True
    e.Sender.SelectAll
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询