word简易画半圆工具

sqhsqhli

针对tangqingfu同志的帖子，搞了个画半圆的dll，鼠标拖动，双击即插入word。

[ 本帖最后由 sqhsqhli 于 2011-5-27 13:50 编辑 ]

tangqingfu

嘿嘿，sqhsqhli兄说得太简略了，看不懂如何操作，能否请sqhsqhi兄明示？

[ 本帖最后由 tangqingfu 于 2011-5-24 19:45 编辑 ]

sqhsqhli

1、将以下代码保存为word宏

Sub 画半圆工具()
  On Error Resume Next
  Set AppDll = CreateObject("a.b")
AppDll.c
Set AppDll = Nothing
End Sub

2、运行“注册.bat”注册a.dll

3、打开word定位你要插入半圆的地方，然后运行 “ Sub 画半圆工具()”宏

4、首先选择准备输入的是上半圆还是下半圆，然后在窗体空白处，按下鼠标左键即定位圆心，拖动距离即为半径。松开鼠标窗体会自动调整出半圆。

5、你对显示的半圆满意，双击后图形即会插入word
如果不满意，点鼠标右键即会清空窗体图形，你可以重新来过。

6、时间关系，仅作演示，实际上还应添加自定义弧度、线形、填充等，慢慢来。

tangqingfu

测试成功，谢谢sqhsqhli兄！
说一下我测试后的想法与观点：
1、能否减化使用步骤，省略弹出的窗体（活力判断上、下半圆的步骤，只要上半圆，下半圆可以通过转换角度获得），运行宏后直接在文档的插入点处插入上半圆（其大小由用户自行调整）?
2、如果要保留弹出的窗体，建议添加2种情况，即4种情况：上半圆、下半圆、左半圆、右半圆
3、如果能不通过注册的方法，直接分享运行宏代码即可实现插入半圆的方法就妙了，不知sqhsqhli兄能否分享您的设计过程？

[ 本帖最后由 tangqingfu 于 2011-5-24 20:55 编辑 ]

sqhsqhli

这是在vb里用Circle实现的，设置一picture控件，捕获鼠标点击和移动坐标，从而得到圆心位置和半径，画圆后调整picture控件高度=半径或0，宽度=2*半径。将控件图像保存为bmp文件（我把放在c:\下了），再将焦点放在word插入c:\下的bmp文件即可。所以你说的第二点没办法实现，呵呵。至于第一点，我也想过，弄个inputbox可以实现，可不还是弹出窗体，还不如这个即见即所得的好。
这个最大不足之处是bmp较大，加多了会导致word文档臃肿（我估计的没试过）。所以我想直接在窗体中画圆，然后设置为无边框窗体，背景纯白色，再用api根据窗口句柄截取窗体，再转为jpg插入到word，这个思路也应该可以实现。今后再贴。

[ 本帖最后由 sqhsqhli 于 2011-5-24 21:27 编辑 ]

tangqingfu

谢谢sqhsqhli兄的回复！
能否在代码中加入一种可选功能：含直径的半圆，即直径可见，如http://club.excelhome.net/thread-720061-1-1.html帖子8楼“白月清风”兄所示的图形？
如果能再加入添加自定义弧度、线形、填充等功能就更理想了！

[ 本帖最后由 tangqingfu 于 2011-5-25 22:36 编辑 ]

sqhsqhli

附件已经更新，又进了一步。
缺点是左右半圆还没加入，粗线不能全部显示。明日再改进。

tangqingfu

经测试，效果更理想了。期待进一步的完善……
不知在“填充效果”中能否添加“图案”的样式？
另你所生成的图形的八个控制点太出来了，八个控制点的位置最好能与图形等宽，否则组合生成的图形时，会出现像断节的现象，能否改进一下？

[ 本帖最后由 tangqingfu 于 2011-5-26 18:42 编辑 ]

sqhsqhli

老唐真是高手，一看就知道控制点有问题。的确是这样，主要是在画圆的时候，线宽的缘故，线段不能全部显示出来，所以我把尺寸放大了一点。后来新增了线宽选项后，证明这样做是无效的，当线宽值很大时，比如100，你会发现半圆的上下和左面被切掉了1//2线宽。  所以正确的办法是，要根据选择的线形宽度值生成一个偏移量，据此调整控件大小，这样才能使整个画面最紧凑。
可是我现在遇到个基础性问题，线宽DrawWidth的单位不知道是什么？当值为100时，我打印出来用尺子量了一下，约为2.7厘米，对照有关vb资料，vb常用的单位有缇、厘米、毫米、英寸、像素、字符、磅以及自定义（这个系统自带的，不属于自定义吧），我觉得好像都不是啊，烦恼！

各路神仙，谁能为我指点迷津？


另：应你的要求，增加了图案。今后我想不能仅仅限于半圆，还应该把三角方形整合进来，慢慢来吧。感谢你提个问题，让我学到不少东西。

[ 本帖最后由 sqhsqhli 于 2011-5-27 14:20 编辑 ]

tangqingfu

汤某在此谢过！
如果能在窗体中自由更换颜色和图案就更理想了。
顶一下，期待作品的进一步整合与完善……

[ 本帖最后由 tangqingfu 于 2011-5-27 15:08 编辑 ]