瓮释喾蔫髓窗体特效技谚、鬟.PDFVIP

PROGRAM ， 一、Ilo?， ．|t■ ’‘?r 瓮释’喾蔫髓窗体特效技谚、鬟 。I浚 jj蠢趣L懿|囊 摘要本文以VB为编程环境，介绍了实际的编程过程中经常运用到的不规则窗体，如字型窗体、图形窗体、半透明窗体、 全透明窗体、带有阴影的窗体等的实现方法。 关键词VB，窗体，特效，API As Long 在贵刊2003年第七期《Ⅶ编程技巧六则》一史介绍了椭圆 D阳hRgn WithMe 窗体的实现方法。在实际的编程过程中，除了椭圆彤的窗体，可 BackColor=QBCoJorl9) 能经常运用到的不规则窗体还有字型窗体、图形窗休、半透明窗 Font Name=”隶书。 体、全透明窗体、带有阴影的窗体等。下面笔者就对这些特殊窗 FOnt．SIze=200 体的实现方法一一进行介绍。 EndWIth ’产生字路径 一、字形窗体 FOrmlhdc BeglnPath TextOulForml hdc，0，0．。CFAN。，4 l实现原理：先创建一个文字区域(实际是一个复杂的图 EndPathFormlhdc 形区域)，然后再将窗体形状设置为该区域。不过本例还有一个 ’将路径转换为区域 特殊之处．那就是先用Texlout函数生成一个文本路径，然后再 hRgn=PathToReglOn{hdc) ’将窗体形状设置为转换成的区域 用BeginPath函数启动一个路径分支。最后还有一点需要强调的 SetWmdowRgnhwnd．hRgn．1 是，在使用BeginPaIh函数时，同时应配合使用EndPath函数来 DeleteObjedhRgn 结束路径定义。 EndSub 刚vateSub I ButtonAs 2．实现方法：新建一个窗体．输入以下源代码： FormJ卅ouseDown ×As As 卧vateDeclareFunctm ㈨eger． SI吲e，YSIngle}