检查剪贴板中复制的文件的文件名是否符合要求？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 检查剪贴板中复制的文件的文件名是否符合要求？

共有3640人关注过本帖树形打印复制链接主题：检查剪贴板中复制的文件的文件名是否符合要求？

有点甜

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/11 16:40:00 [显示全部帖子]

确实和msgbox有冲突，弹出msgbox的时候，会复制弹出的提示的内容到剪切板，覆盖了原先的设置。

你把msgbox写在前面去吧。

有点甜

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/12 17:18:00 [显示全部帖子]

以下是引用ycwk在2018/4/12 16:48:00的发言：
有没有办法判断当前的剪贴板中的文件是要复制还是要剪切? 以便我在程序中判断复制完毕后，是否要删除源文件？

用一个全局变量记录，如果按下 ctrl+x ，就标记成剪切，如果按下 ctrl+c，就标记成复制。

有点甜

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/13 10:00:00 [显示全部帖子]

以下是引用ycwk在2018/4/13 9:55:00的发言：
问题是，我复制不一定是在foxtale中点的呀，有可能在程序还没有启动的时候就点了。

不明白你什么意思。请说明操作步骤，和你需要达到的效果。

有点甜

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/13 15:15:00 [显示全部帖子]

Dim iData = System.Windows.Forms.Clipboard.GetDataObject()
If iData.GetDataPresent(Windows.forms.DataFormats.FileDrop,True) Then
    Dim vMemoryStream = iData.GetData("Preferred DropEffect", True)
    Dim vDragDropEffects = vMemoryStream.ReadByte()
    If (vDragDropEffects And Windows.forms.DragDropEffects.Move) = Windows.forms.DragDropEffects.Move
        msgbox("剪切")
    ElseIf (vDragDropEffects And Windows.forms.DragDropEffects.Copy) = Windows.forms.DragDropEffects.Copy
        msgbox("复制")
    End If
Else
    msgbox("没有获取")
End If

下一主题 >> << 上一主题

总数 15 上一页 1 2

主题：检查剪贴板中复制的文件的文件名是否符合要求？