永发信息网

易语言把快捷方式托到卷帘式菜单然后可以再里面打开???

答案:2  悬赏:0  手机版
解决时间 2021-03-03 16:22
RT实在是想不出来了求高手帮帮忙
最佳答案
使用拖放支持库来操作,通过拖放对象得到文件路径,具体代码如下:
(建议把代码复制到易语言中再看吧)
.版本 2
.支持库 edroptarget

.程序集 窗口程序集1
.程序集变量 文件名, 文本型, , , 这个是接收到的文件的路径存放变量

.子程序 __启动窗口_创建完毕

拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ()) ' 这里的句柄为具体需要进行操作的对象,如果是卷帘菜单,可以改成卷帘菜单句柄,一般情况可以使用_启动窗口的句柄
拖放对象1.接收文件 = 真 ' 拖放对象有4个接收属性,这里我们先设接收文件为真,也可以在属性框中进行修改,为了让你看的到,我直接写成代码了

.子程序 __启动窗口_将被销毁

拖放对象1.撤消拖放控件 (_启动窗口.取窗口句柄 ()) ' 这里的句柄与注册时的句柄相同,并且一定要在窗口销毁前执行此操作

.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型

文件名 = 接收到的文件路径 ' 把接收到的路径保存到变量文件名中

================================================================
另外,我不太明白你的意思,我自己的理解是你想把快捷方式拖到卷帘菜单后在菜单中的到一个项目,包括快捷方式的图标和文件名。如果我理解不错的话,以上的回答只能帮助你得到路径,下面我把获取菜单的图标和文件名的思路说一下
========================取文件名代码============================
复制以下代码到易语言,将文件路径带入子程序,返回的就是文件名了
.版本 2

.子程序 取文件名, 文本型
.参数 路径文件名, 文本型
.局部变量 新文件名, 文本型

新文件名 = 取文本中间 (路径文件名, 倒找文本 (路径文件名, “\”, , 假) + 1, 倒找文本 (路径文件名, “.”, , 假) - 倒找文本 (路径文件名, “\”, , 假) - 1)
返回 (新文件名)

===========================全部代码=============================
.版本 2
.支持库 iext2
.支持库 edroptarget
.支持库 iext3

.程序集 窗口程序集1
.程序集变量 图片组, 字节集
.程序集变量 文件名, 文本型

.子程序 __启动窗口_创建完毕

图片组 = 建空图片组 (32, 32) ' 其中的32和32是代表32像素*32像素的图片
拖放对象1.注册拖放控件 (卷帘式菜单1.取窗口句柄 ())

.子程序 __启动窗口_将被销毁

拖放对象1.撤消拖放控件 (卷帘式菜单1.取窗口句柄 ())

.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型

文件名 = 接收到的文件路径
时钟1.时钟周期 = 100

.子程序 _时钟1_周期事件
.局部变量 SS, 整数型

时钟1.时钟周期 = 0
SS = 提取加入图片 (图片组, 文件名, , )
卷帘式菜单1.项目图标图片组 = 图片组
卷帘式菜单1.加入项目 (取文件名 (文件名), 0, 卷帘式菜单1.取项目数 (0), SS, )

.子程序 取文件名, 文本型
.参数 路径文件名, 文本型
.局部变量 新文件名, 文本型

新文件名 = 取文本中间 (路径文件名, 倒找文本 (路径文件名, “\”, , 假) + 1, 倒找文本 (路径文件名, “.”, , 假) - 倒找文本 (路径文件名, “\”, , 假) - 1)
返回 (新文件名)

复制以上代码到易语言中,注意此方法只能针对EXE文件,快捷方式只能获得文件名无法提取图标!
==================================================================
注:以上代码需要包括3个控件:卷帘菜单、时钟、拖放对象
全部回答
支持楼主,支持易辅学院,以后经常来
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
庙塘地址在哪,我要去那里办事
农民工电影有那些
k8371火车14车41号座位是靠窗的吗
line camera拍摄的照片保存在哪里?为什么我
大家好,我问一下在无锡市人民医院做近视激光
广平电器怎么去啊,有知道地址的么
爱得利塑料奶瓶有气味怎么办?怎样才能不让有
检察院的告知书是什么内容
头发很多碎发怎么办
gta-sa怎样修改操作键?鼠标往上他却往下。拜
如果x/5=y/4=3/z,且z不等于0,求:x+y+z/3x-2y
下面关于生物体内氨基酸的叙述中正确的是( 
“上下五千年,纵横八万里”出自哪里
宜家馨在哪里啊,我有事要去这个地方
补漆笔什么牌子好
推荐资讯
找一首歌,歌词中有一句是:翩翩思念,男女对
论述评价我国古代重农抑商政策
铜陵傣妹wifi密码是什么
若X的绝对值小于3,且X的绝对值>X,则整数X=
聊城高唐县清平镇被钢针扎女婴现状如何?凶手
收取保证金活没有干上算不算诈骗
问一部电视剧 有两家青楼竞争,一个青楼女子
植物的植株矮小、叶片发黄时,最可能缺乏的无
夜猫子碳烤生蚝这个地址在什么地方,我要处理
灵活就业人员交了15年社保。今天到了退休的年
宫斗王爷的题 求答案呀!!!不会写啊!!!
北奔重卡自卸车车架号在哪
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?