[已解决]求助：用VB6.0制作 EXCEL自定义菜单(COM加载项)弹出的窗体中新建E表格问题

事后诸葛亮 · 发表于 2013-7-24 18:08

如题。请修改复件并上传。谢谢了。

求助：用VB6.0制作 EXCEL自定义菜单(COM加载项)弹出的窗体中新建E表格问题.rar (18.03 KB, 下载次数: 15)

hwc2ycy · 发表于 2013-7-24 21:50

这次是什么问题啊？
那两个按钮的上个贴子里全贴了代码嘛。

hwc2ycy · 发表于 2013-7-24 22:15

家里没有VB6，只有明天再看了。

事后诸葛亮 · 发表于 2013-7-25 07:53

hwc2ycy 发表于 2013-7-24 21:50
这次是什么问题啊？
那两个按钮的上个贴子里全贴了代码嘛。

我试了没办法通用。。
在菜单中新建EXCEL和在弹出的窗口中新建EXCEL 代码不通用。。我也不知道为什么。。请帮忙再重写代码。当然代码中的要求也有点不一样。

hwc2ycy · 发表于 2013-7-25 09:29

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

求助：用VB6.0制作 EXCEL自定义菜单(COM加载项)弹出的窗体中新建E表格问题.rar (19.53 KB, 下载次数: 26)

事后诸葛亮 · 发表于 2013-7-25 10:08

本帖最后由事后诸葛亮于 2013-7-25 10:13 编辑

hwc2ycy 发表于 2013-7-25 09:29
这里有个概念就需要了解了，标准模块和普通模块。

谢谢了。我要求的功能实现。
但貌似突然发现我提的要求忽略了一点。或者说自己事前也不知道。
就是功能1 在选择单元的时候能不能这个窗体不消失。像在 VBE窗体中的 RefEdit 控件一样。。。
或者说像在 EXCEL中的Form1.show 0（您在代码中帮我写的 .show 0 在点击单元格的时候窗体是跑到E文件后面去了，而不是仍在工作表上方显示）
的模式一下。在选择单元格时窗体不消失。

hwc2ycy · 发表于 2013-7-25 10:56

窗体没有置顶对吧？
我在用的时候也发现了这个，一选单元格，窗体就不见了，后来改了成show 0用的。

hwc2ycy · 发表于 2013-7-25 10:57

窗体要置顶，用API是可以实现的。

hwc2ycy · 发表于 2013-7-25 11:07

百度下VB如何窗体置顶
替换原来的mn1_click过程。

Private Sub mn1_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
Dim test
Form求助窗体.Show
test = SetWindowPos(Form求助窗体.hwnd, -1, 0, 0, 0, 0, 3)
End Sub

复制代码

另外在代码顶端加一句，放在DIM语句下面就成了。

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

复制代码

经过测试，应该能达到你的要求了。
如果用有模式显示对话框的话，那就只有在窗体显示前就要先选择好要操作的区域，否则窗体不关闭，是没有办法选单元格区域的。

事后诸葛亮 · 发表于 2013-7-25 11:35

hwc2ycy 发表于 2013-7-25 11:07
百度下VB如何窗体置顶
替换原来的mn1_click过程。另外在代码顶端加一句，放在DIM语句下面就成了。经过测试 ...

已经没有最最佳答案送给你了。谢谢。解决问题了。。

		自动登录	找回密码
密码			注册