[推荐]窗体绘画的问题!

stanleypan · 发表于 2005-12-8 12:52

为解答FOSHAN网友的问题在他的作品基础上而作,

我基本上喜欢把文件放在原创版这个地方!不大浪费网络资源.

Yi65tERe.rar (12.8 KB, 下载次数: 333)

stanleypan · 发表于 2005-12-8 12:59

另FOSHAN网友最近研究的劲头甚强,可喜可贺!

foshan · 发表于 2005-12-8 14:37

很感谢 stanleypan 版主 为大家制作如此好的作品!

foshan · 发表于 2005-12-8 16:55

现在遇到一个问题：我想实现打开窗体后，自动在窗体四周边框上出现红色的线条，我把绘制矩形代码分别放在 Private Sub UserForm_Activate() 或 Private Sub UserForm_Initialize() 事件中进行测试，均未能实现。

原因何在呢？如何解决这个问题，请大家帮忙解决，谢谢!

i6028Kug.rar (16.11 KB, 下载次数: 49)

stanleypan · 发表于 2005-12-8 22:33

FOSHAN兄:你好!

只要加上另一API函数就可以.你试一下.

WnyUwTA6.zip (14.13 KB, 下载次数: 146)

foshan · 发表于 2005-12-9 08:29

再次致谢! 原来是用强制立即更新窗口的函数 UpdateWindow

VB声明
Declare Function UpdateWindow Lib "user32" Alias "UpdateWindow" (ByVal hwnd As Long) As Long
说明
强制立即更新窗口，窗口中以前屏蔽的所有区域都会重画（在vb里使用：如vb窗体或控件的任何部分需要更新，可考虑直接使用refresh方法
返回值
Long，非零表示成功，零表示失败
参数表
参数	类型及说明
hwnd	Long，欲更新窗口的句柄

[此贴子已经被作者于2005-12-9 8:40:04编辑过]

foshan · 发表于 2005-12-9 10:12

还有一个问题：如果在窗体上绘制一个矩形前，自己创建了画刷，那么绘制出来的矩形内部自动填充了颜色。如果绘制出来的矩形的下面是有命令按钮控件或标签控件，则矩形是浮于这些控件的表面的(详细附件窗体中红色边框绿色填充颜色的矩形)，当单击一下命令按钮后，矩形与命令按钮重叠的部分就不见了。

在VB中是不存在这个问题的，因在VB的窗体上绘制的图形与窗体上的所有控件重叠的部分均是不显示出来(被控件遮盖住了)。

如何才能实现在VBA窗体上绘制的矩形是位于窗体上其它控件的下面(即绘制的矩形与窗体上的所有控件(除标签控件外)重叠的部分均不显示出来)？谢谢!

HMiCeOoi.rar (12.82 KB, 下载次数: 92)

[此贴子已经被作者于2005-12-9 11:04:24编辑过]

stanleypan · 发表于 2005-12-9 21:48

如果这样,还是用图片来实现吧.

rgdson · 发表于 2012-6-6 08:10

如何让他停留在绘图的动作上。可以一直画。而不是每次都要点按钮来画呢。

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