[原创]绘图工具——即画即录（成功版，二楼介绍）

gao2ming1 · 发表于 2007-6-25 10:45

曾经以此提问过斑竹和高手们，现在已经完成这个功能，向帮助过的人致敬。

F1FovRxz.rar (25.96 KB, 下载次数: 70)

[此贴子已经被作者于2007-6-25 11:26:13编辑过]

gao2ming1 · 发表于 2007-6-25 10:49

　　功能说明：ｗｏｒｄ画图功能不是很强，但一般的图还是可以画的，有时因为重叠又在下层或图形太小（如一个点）很难选中。现做了个小工具，实时监控文档图形的增减，并且方便选择与组合分解。网上有许多软件是用“自动图文集”加一些画好的图形，但我比较喜欢自己作图，这样方便修改。喜欢用ｗｏｒｄ画图的同仁，对您一定有帮助，我自己试用后，左图速度提高好几倍。代码公开并加了说明，有些是用守斑的。欢迎提出意见，谢谢试用

１．点击“即画即录”，就出现窗体如图，靠右为了方便画图

２．随便画一个图（不用画布），在窗体的中就显示出所画图形的名称。删除图形，列表框中相应图形名称立即被删除

３．在文档中被选中的图形，列表框中立即也被选中。

４．列表框中选择几个图形，按“确定”按钮，文档中的图形立即被选中。

５．下面为组合、取消组合、重新组合功能，与右键菜单中一样，但更为方便。、

[此贴子已经被作者于2007-6-25 11:06:25编辑过]

liujy · 发表于 2007-6-25 11:00

谢谢gao2ming1分享!

cuteword · 发表于 2007-6-25 11:07

终于明白你的目的，非常好，谢谢gao2ming1分享！

有些地方要完善，比如在框只选中后，相应的word必须选中！

还有许多功能可以加上去，比如修改其中的字体，批量修改其它格式，位置的设置等！继续努力。

gao2ming1 · 发表于 2007-6-25 11:16

QUOTE:

以下是引用cuteword在2007-6-25 11:07:20的发言：

终于明白你的目的，非常好，谢谢gao2ming1分享！

有些地方要完善，比如在框只选中后，相应的word必须选中！

还有许多功能可以加上去，比如修改其中的字体，批量修改其它格式，位置的设置等！继续努力。

谢谢帮助，选择后按“确定”即可，参考说明。我尝试过一选择列表框的名称，就选中文档的图形，也就是绕过“确定”功能，那样会变成死循环的。

我只是简单的功能，另外功能我在另外的窗体实现，那不是“小工具”，是软件了。

还想实现的功能是

１．能够在画布中便利图形

２．能够单页便历图形

３．能够实现选择性显示，比如只显示直线

[此贴子已经被作者于2007-6-25 11:28:51编辑过]

konggs · 发表于 2007-6-25 11:51

谢谢分享，加分鼓励。

chylhr · 发表于 2007-6-25 11:59

谢谢分享[em17]

lfspecter · 发表于 2007-6-25 12:02

多谢楼主分享。

学习就是共享的过程。

sylun · 发表于 2007-6-25 20:08

很有创意。谢谢楼主分享！

守柔 · 发表于 2007-6-26 06:22

好！

好一个

.ListStyle = fmListStyleOption
.MultiSelect = fmMultiSelectMulti

谢谢楼主的分享，也谢谢所有天道酬勤的网友们！

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