Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:关于拖动文件

1楼
fvcfox 发表于:2024/6/5 23:56:00

在窗口AfterLoad

Dim ListBox1 As WinForm.ListBox = e.Form.Controls("ListBox1")

ListBox1.BaseControl.AllowDrop = True


AddHandler ListBox1.BaseControl.DragEnter, AddressOf ListBox1_DragEnter


AddHandler ListBox1.BaseControl.DragDrop, AddressOf ListBox1_DragDrop


在窗口BeforeClose

Dim ListBox1 As WinForm.ListBox = e.Form.Controls("ListBox1")


RemoveHandler ListBox1.BaseControl.DragEnter, AddressOf ListBox1_DragEnter

RemoveHandler ListBox1.BaseControl.DragDrop, AddressOf ListBox1_DragDrop


ListBox1.BaseControl.AllowDrop = False



以上代码可以实现将拖动的文件名(含路径)添加到listbox

请教老师可以将上述功能添加到table1的第一列吗?另可以排除拖动的文件夹吗?因为只想拖动的是文件

2楼
有点蓝 发表于:2024/6/6 12:13:00
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:文件拖放.zip

共2 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01953 s, 3 queries.