乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 145|回复: 8

[求助] 怎样用API向VBA窗体添加下拉菜单

[复制链接]

71

主题

462

帖子

10

银币

中流砥柱

Rank: 25

铜币
748
发表于 2009-9-3 10:30:00 | 显示全部楼层 |阅读模式
请问用API给窗体加下拉菜单
为什么用了
SetWindowLong hwnd, GWL_WNDPROC, AddressOf MsgProcess
之后CAD(2004 2006)会垮掉?
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2009-9-3 10:53:00 | 显示全部楼层
还真没用Api做VBA的菜单
不过在网上找到个VB6的纯 API 编写的窗体,按钮,菜单例子
没有看代码:)(很久没摸VB了)
可能对你有点帮助
请点击此处下载

请先注册会员后在进行下载

已注册会员,请先登录后下载

文件名称:wtthduxe01m.rar 
下载次数:0  文件大小:36.28 KB  售价:2银币 [记录]
下载权限: 不限 以上或 Vip会员   [开通Vip]   [签到领银币]  [免费赚银币]

回复

使用道具 举报

42

主题

165

帖子

6

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
333
发表于 2009-9-3 22:15:00 | 显示全部楼层
谢谢斑竹先
我是把Excel里面能正常使用的源码直接拿过来的
结果一用就失败
我用VB做DLL调用也不行
回复

使用道具 举报

1

主题

15

帖子

3

银币

初来乍到

Rank: 1

铜币
19
发表于 2009-9-4 13:49:00 | 显示全部楼层
我试过了行
回复

使用道具 举报

1

主题

15

帖子

3

银币

初来乍到

Rank: 1

铜币
19
发表于 2009-9-4 13:51:00 | 显示全部楼层
我是2007的
回复

使用道具 举报

1

主题

15

帖子

3

银币

初来乍到

Rank: 1

铜币
19
发表于 2009-9-4 13:54:00 | 显示全部楼层
2004没试应该没问题
回复

使用道具 举报

42

主题

165

帖子

6

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
333
发表于 2009-9-6 10:34:00 | 显示全部楼层
请测试下面的代码:
代码取自Excel Home
在Excel VBA通过测试 运行成功
在AutoCAD 2004 2006 2007失败
水平有限,里面的错误还望各位指点

请点击此处下载

请先注册会员后在进行下载

已注册会员,请先登录后下载

文件名称:vsf2h54zv0h.dvb 
下载次数:0  文件大小:112 KB  售价:2银币 [记录]
下载权限: 不限 以上或 Vip会员   [开通Vip]   [签到领银币]  [免费赚银币]

回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2009-9-6 12:52:00 | 显示全部楼层

代码有点乱:)
请点击此处下载

请先注册会员后在进行下载

已注册会员,请先登录后下载

文件名称:jlfeju4udjv.dvb 
下载次数:0  文件大小:64 KB  售价:2银币 [记录]
下载权限: 不限 以上或 Vip会员   [开通Vip]   [签到领银币]  [免费赚银币]



请点击此处下载

请先注册会员后在进行下载

已注册会员,请先登录后下载

文件名称:oyilitqvn3q.dvb 
下载次数:0  文件大小:26.5 KB  售价:2银币 [记录]
下载权限: 不限 以上或 Vip会员   [开通Vip]   [签到领银币]  [免费赚银币]



[求助] 怎样用API向VBA窗体添加下拉菜单
请点击此处下载

请先注册会员后在进行下载

已注册会员,请先登录后下载

文件名称:lgq04mw4e53.dvb 
下载次数:0  文件大小:64 KB  售价:2银币 [记录]
下载权限: 不限 以上或 Vip会员   [开通Vip]   [签到领银币]  [免费赚银币]



回复

使用道具 举报

71

主题

462

帖子

10

银币

中流砥柱

Rank: 25

铜币
748
发表于 2009-9-7 11:02:00 | 显示全部楼层
非常感谢超版的热心帮助!
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-2 00:49 , Processed in 0.872082 second(s), 80 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表