PathToRegion的疑惑

clumsy 2002-09-06 01:41:40

在使用：BeginPath();TextOut();EndPath();PathToRegion()序列生产的Region中，文字的笔画很不全，尤其是较小字体的时候，象DEFAULT_GUI_FONT常规小字体。不知有没有办法解决，还是这本来就有些限制？因为我在shell32.dll中确实看到有通过TextOut形成Region的，虽然不知道它具体的使用场合。

...全文

118 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

clumsy 2002-11-30

打赏
举报

回复

3个月的大限快到了, 虽然没有有效的解答, 还是谢谢两位的热心.

dsangvei 2002-09-09

打赏
举报

回复

up

tc001 2002-09-07

打赏
举报

回复

请教！

不规则窗口 PathToRegion SetWindowRgn BeginPath

VB之精彩编程参阅资料-利用API函数实现VB特殊窗体的两种方法

Delphi 用获取路径的方法得到圆形窗体，制作实现一个非矩形窗口，可以说是一个不规则窗口了，圆形的窗口，标题栏、状态栏及窗口关闭等操作按钮均不邮了。圆形窗口的基本实现思路是根据路径创建不规则窗体，然后设置窗口为透明模式，部分代码如下：　　dc:=self.Canvas.Handle; 　　BeginPath(dc); 　　//根据路径创建不规则窗体　　SetBkMode(dc,TRANSPARENT); 　　//设置为透明模式　　 Ellipse(dc,20,20,220,220); 　　EndPath(dc); 　　region:=PathToRegion(dc); 　　SetWindowRgn(self.Handle,region,TRUE); 　　end;

形态各异的不规则窗体（程序），
本文所附带的例子全部以BeginPath，EndPath和PathToRegion为中心来讲解如何实现不规则窗体。

VB 6.0字形窗口轮廓字体遮罩文字特效， Private Sub Form_Load()　　 Dim dc As Long mw As Long　　 Dim NewFont As Long OldFont As Long　　 dc = Me.hdc　　 NewFont = CreateFont(2009000 FW_HEAVY100 ANSI_CHARSET OUT_DEFAULT_PRECIS _　　 CLIP_DEFAULT_PRECIS DEFAULT_QUALITY DEFAULT_PITCH Or FF_SWISS "楷体")　　 BeginPath dc '开始记录窗体轮廓路径　　 SetBkMode dc TRANSPARENT '设置背景为透明模式这是必须有的　　 OldFont = SelectObject(dc NewFont)　　 TextOut dc00 "VB6"3　　 SelectObject dc OldFont　　 EndPath dc '结束记录窗体轮廓路径　　 mw = PathToRegion(dc) '把所记录的路径转化为窗体轮廓句柄　　 SetWindowRgn Me.hWnd mw True '赋予窗体指定的轮廓形状　　End Sub

70,023

社区成员

243,263

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章