思绪膨胀，做出龙飞凤舞，怪诞异常的程序启动界面（VB6.0）[已完成，有具体代码，有第二章] - 几罗星人的专栏
- 博客频道 - CSDN.NET
2606人阅读
很多软件都有程序启动界面，我在这就找到了2个比较特别的给大家看看：
这是VS2010旗舰版的启动界面，大家留意他的底部，是不规则的。
这是PS CS5的启动界面，整个界面呈现完全的不规则，很飘逸。
可是啊，我上来不是给大家看图片的，没错，教你如何用VB6.0做出各种各样奇形怪状的启动界面。
首先，我先介绍一下程序需要使用那些API函数，也不多：
Public Declare Function CreatePolygonRgnLib &gdi32&& (lpPointAs
POINTAPI, ByVal nCountAs Long,ByVal nPolyFillModeAs Long)As Long
功能：创建一个由一系列点围成的区域。windows在需要时自动将最后点与第一点相连以封闭多边形
POINTAPI，nCount个POINTAPI结构中的第一个POINTAPI结构
Long，多边形的点数
nPolyFillMode
Long，描述多边形填充模式。可为ALTERNATE 或 WINDING常数。参考SetPolyFillMode函数对多边形填充模式的解释
Public Declare Function CreateRectRgn Lib &gdi32&& (ByVal X1As
Long, ByVal Y1As Long,ByVal X2As Long,ByVal Y2As
Long)As Long
功能：创建一个由点X1，Y1和X2，Y2描述的矩形区域
Long，矩形左上角X，Y坐标
Long，矩形右下角X，Y坐标
Public Declare Function CreateRoundRectRgnLib &gdi32&& (ByVal X1As
Long, ByVal Y1As Long,ByVal X2As Long,ByVal Y2As
Long,ByVal X3As Long,ByVal Y3As Long)As Long
功能：创建一个圆角矩形，该矩形由X1，Y1-X2，Y2确定，并由X3，Y3确定的椭圆描述圆角弧度
Long，矩形左上角的X，Y坐标
Long，矩形右下角的X，Y坐标
Long，圆角椭圆的宽。其范围从0（没有圆角）到矩形宽（全圆）
Long，圆角椭圆的高。其范围从0（没有圆角）到矩形高（全圆）
Public Declare Function FillRgnLib&gdi32&& (ByVal hdcAs Long,ByVal
hRgnAs Long,ByVal hBrushAs Long)As Long
功能：用指定刷子填充指定区域&
Long，设备场景句柄
Long，以数据设备坐标填充的区域句柄
Long，要用的刷子的句柄
Public Declare Function DeleteObjectLib &gdi32&& (ByVal hObjectAs
Long) As Long
功能：用这个函数删除GDI对象，比如画笔、刷子、字体、位图、区域以及调色板等等。对象使用的所有系统资源都会被释放
参数：hObject Long，一个GDI对象的句柄
Public Declare Function CreateEllipticRgnLib &gdi32&& (ByVal X1As
Long, ByVal Y1As Long,ByVal X2As Long,ByVal Y2As
Long)As Long
功能：创建一个椭圆，该椭圆与X1，Y1和X2，Y2坐标点确定的矩形内切
Long，矩形左上角X，Y坐标
Long，矩形右下角X，Y坐标
Public Declare Function SetWindowRgnLib &user32& (ByVal hWndAs
Long, ByVal hRgnAs Long,ByVal bRedrawAs Boolean)As Long
功能：更改窗口的形状
Long，将设置其区域的窗口
Long，将设置的区域的句柄，一旦设置了该区域，就不能使用或修改该区域句柄，也不要删除它
Boolean，若为TRUE，则立即重画窗口
Public Declare Function CombineRgnLib &gdi32&& (ByVal hDestRgnAs
Long, ByVal hSrcRgn1As Long,ByVal hSrcRgn2As Long,ByVal nCombineModeAs
Long)As Long
功能：将两个区域组合为一个新区域
Long，包含组合结果的区域句柄
Long，源区域1
Long，源区域2
nCombineMode
Long，组合两区域的方法。可设为下述常数
hDestRgn被设置为两个源区域相交的部分
hDestRgn被设置为hSrcRgn1的拷贝
hDestRgn被设置为hSrcRgn1中与hSrcRgn2不相交的部分
hDestRgn被设置为两个区域的和
hDestRgn被设置为除两个源区域之外的部分
Public Declare Function CreatePatternBrushLib &gdi32& (ByVal hBitmapAs
Long) As Long
功能：用指定了刷子图案的一幅位图创建一个刷子
参数：hBitmap ：Long，指向一幅位图的句柄。如指定了单色位图，文本和背景色就会在图案中使用
Public Declare Function CreateSolidBrush
Lib &gdi32& (ByVal crColor
As Long) As Long
功能：用纯色创建一个刷子
参数：crColor ：Long，数字的RGB彩色
【这里继续：】
好了，别的不多说，进入教程。
第一章：设计区域，修改窗体形状
&主要内容，使用上面说的6到8这3个API函数，创建一些简单的区域，并且将窗体的形状设置成这些区域的形状。
&&&&&& 第一步：首先，启动VB6.0，选择标准EXE工程，然后添加一个模块，将以下的声明粘贴到模块中，这些就是以后程序中要用到API函数，以后所有的修改都是使用这个模块。
VB代码开始：
Public Declare Function CreatePolygonRgn Lib &gdi32& (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Public Declare Function CreateRectRgn Lib &gdi32& (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function CreateRoundRectRgn Lib &gdi32& (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Public Declare Function FillRgn Lib &gdi32& (ByVal hdc As Long, ByVal hRgn As Long, ByVal hBrush As Long) As Long
Public Declare Function DeleteObject Lib &gdi32& (ByVal hObject As Long) As Long
Public Declare Function CreateEllipticRgn Lib &gdi32& (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function SetWindowRgn Lib &user32& (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Public Declare Function CombineRgn Lib &gdi32& (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Public Declare Function CreatePatternBrush Lib &gdi32& (ByVal hBitmap As Long) As Long
Public Declare Function CreateSolidBrush Lib &gdi32& (ByVal crColor As Long) As Long
Public Type POINTAPI
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
Public Const RGN_AND = 1
'将两个区域相交的部分
Public Const RGN_COPY = 5
'创建hSrcRgn1的拷贝
Public Const RGN_DIFF = 4
'将两个区域不相交的部分
Public Const RGN_OR = 2
'将两个区域相加
Public Const RGN_XOR = 3
'除了两个区域之外
Public Const DT_SINGLELINE = &H20
'只画单行文本
Public Const DT_CENTER = &H1
'文本垂直居中
Public Const DT_VCENTER = &H4
'必须同时指定DT_SINGLE。指示文本对齐格式化矩形的中部
VB代码结束
&&&&&&& 第二步，将窗口拉大，拉成长明显大于宽的长方形。再将窗口的BackColor属性设置成&H0000FF00&（绿色）。最后双击窗体，打开代码窗口，在Load事件中加入如下代码：
VB代码开始：
Dim Rgn1, Rgn2, Rgn3 As Long, PicBrush As Long
'创建椭圆区域
Rgn1 = CreateEllipticRgn(5, 5, Me.Width / 15 - 10, Me.Height / 15 - 10)
'创建第二个椭圆区域
Rgn2 = CreateEllipticRgn(10, 60, Me.Width / 20, Me.Height / 20)
'创建第三个椭圆区域
Rgn3 = CreateEllipticRgn(80, 80, Me.Width / 30, Me.Height / 30)
'取出第一椭圆区域与第二区域不相交的部分
a = CombineRgn(Rgn1, Rgn1, Rgn2, RGN_DIFF)
'再加上第三区域
B = CombineRgn(Rgn1, Rgn1, Rgn3, RGN_OR)
'将窗体设置成上面的组合区域
SetWindowRgn Me.hWnd, Rgn1, True
VB代码结束
&&&&&&& 上面的注释说的很清楚，外加最上面的函数介绍，我相信代码并不需要我多解释。一个区域，是依照窗体的相对坐标（必须是VB默认的窗体坐标）来创建的。因为窗体的左上角是（0，0），所以我们将区域退出一点，就将左上角设置为（5，5）。而CombineRgn函数则是将两个区域进行组合创造出不规则的区域。其实，必须纠正的一个概念是，一开始，区域是看不到的（透明的），也不存在于任何一个坐标系中。我上面那样说是为了大家好理解，只有在用了如SetWindowRgn这样的函数，将某一个区域用到某一个对象时，这个区域的坐标系才依附于对象的坐标系。
&&&&&&&好了，运行一下，看到的结果如图所示：
&&&&&&& 这里的灰色其实背后的颜色，就是说灰色的部分其实是透明的，随背景而变，而绿色才是原来的窗体（因为窗体的BackColor属性设置成了绿色。
&&&&&&&&&&&& 这个图案够独特吧，不过还少一点什么，就是字，那么没关系，用一些标签控件弄点字上去实在简单不过的了。我上面已经说了区域的运作方式，那么就请个自己算准那里是不透明的窗体，那里是透明的背景，然后在不透明的窗体部分上放控件来显示文字了。而如果你在透明的背景区域上放控件，那么放了也是白放，自己算好了。而且记住，标签控件的BackStyle属性一定要设置成0（透明）。下面是我自己设计的（在VB中，还没运行）：
&&&&& 而那些黑色线的椭圆，是我用Shape控件做出来的，目的就是确定那里是透明的背景，那里是不透明的窗体，紧记要将Shape控件的Visible属性设成False，因为这些Shape控件仅作参考。也好了，运行一下：&
同样，灰色的是背景，绿色的是窗体，一个自己的PhotoShop CS5的启动界面就出来了。做自己的软件，在标签上打上自己的软件名。OK，张扬我个性，龙飞凤舞去吧。
第二章：“”（在另一篇博文上）
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：157833次
积分：1839
积分：1839
排名：第10435名
原创：24篇
转载：42篇
评论：93条
(1)(2)(1)(1)(1)(1)(8)(1)(3)(3)(1)(7)(17)(1)(1)(1)(8)(4)(1)(1)(2)龙飞凤舞的反义词_百度知道
龙飞凤舞的反义词
我有更好的答案
按默认排序
联合式，凤翔参墟，自己的情意没有表达完。）出处，灵活舒展龙飞凤舞释义。反义词。用法:原形容山势的蜿蜒雄壮：文笔拙劣；作谓语，不能完全写出自己的情意：我世祖龙飞白水.意思是手笔不够灵巧，后也形容书法笔势有力；形容书法笔势有力、定语：汉·张衡《东京赋》、宾语:笔拙意呆（笔拙
一般来讲是没有讲龙飞凤舞的反义词的，近义词倒是有的。【同义词】 鸾翔凤翥 笔走龙蛇龙飞凤舞拼音： lóng fēi fèng wǔ 简拼： lffw近义词： 挥洒自如、无拘无束 反义词： 用法： 联合式；作谓语、宾语、定语；形容书法笔势有力解释： 原形容山势的蜿蜒雄壮，后也形容书法笔势有力，灵活舒展。出处： 宋·苏轼《表忠观碑》：“天目之山，苕水出焉，龙飞凤舞，萃于临安。”例子： 抬头看见北墙上挂着四幅大屏，草书得～，出色惊人。（清·刘鹗《老残游记》第九回）
其他类似问题
反义词的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁评论该主题
作者：您目前是匿名发表 &
作者：，欢迎留言龙飞凤舞的意思说出它的意思呗～意思写出来呗_百度作业帮
拍照搜题，秒出答案
龙飞凤舞的意思说出它的意思呗～意思写出来呗
说出它的意思呗～意思写出来呗
〖拼音〗lóng fēi fèng wǔ
〖解释〗多形容书法笔势有力,灵活舒展.
〖出处〗汉·张衡《东京赋》：“我世祖龙飞白水,凤翔参墟.”宋·苏轼《表忠观碑》：“天目之山,苕水出焉,龙飞凤舞,萃于临安.”
〖示例〗抬头看见北墙上挂着四幅大屏,草书得～,出色惊人. ★清·刘鹗《老残游记》第九回
〖用法〗作谓语、宾语、定语；形容书法笔势有力.
〖近义词〗挥洒自如、无拘无束
古代吉祥图案.苏轼《表忠观碑》：“天目之山,苕水出焉,龙飞凤舞,萃于临安.”民间都用“龙飞凤舞”作为喜庆的装饰纹样.
您可能关注的推广欢迎访问短文学网 您还没有
当前位置：>>>文章内容
那个时候的苦难（上）
时间： && 阅读： 次 && 来源：短文学网
之初先自夸一下，我有一个很不同于一般人的名字，好记而且叫人浮想联翩，具体是什么就不在这儿说明了，同学同事看到这儿都往往会心一笑，不熟悉的朋友您就先闷着点吧，将来肯定会知道的，只是一定要先说一下我名字中有一个龙字，尤其我做自我介绍的时候好说的一句话就是龙飞凤舞的龙。据母亲说，在怀我的时候曾梦见过那个汉族的吉祥物，因此也就给我起了这个现在耳熟能详的名字，父亲母亲都没读过多少书，但相约不如偶遇，也许从我出生就注定有自己这个名号吧。
小时候我也曾遇到过高人，那个时候文革末期，斗私批修之类的流行，封建迷信也属于严打之列，看相算命之类的更是没有，不像现在大街小巷经常遇到那些所谓的半仙，连自己午饭都没着落的人居然要看别人的后半生，实在有点滑稽。尽管当时政治气候紧张，但大家都知道在我们村不远的地方有个小村庄，里边居住着一位神神秘秘的人物，那个村庄毗邻一条常年不断的天然河，夏天时候父亲常带着我去那里游泳，我水性并不好，连基本游泳式狗刨都做出来不很雅观，有点真的像一条落水小狗，没少被小伙伴们耻笑，但我喜欢躺在浅水里泡着，面向蓝天听风吟云渡，很享受那种夕阳里温水中超脱红尘的滋味。有次父亲在岸上遇到了那位大仙，彼此邻村都相互认识，于是攀谈起来，我自顾自的享受那种被浸泡的感觉。
回家后父亲和母亲吃饭的时候说闲话，讲了许多当时我莫名其妙，后来才慢慢懂的事情，原来那位高人说我将来会远走高飞，会有很大的出息，但是短期内会遇到一些小麻烦，有点类似于某个古代人被恶疾缠身，母亲显然很矛盾，开始愤愤不平的要去找那个人理论，说他怎么咒人呀，后来想想人家说我将来会有出息，能吃国粮就有点暗自窃喜，后来催促父亲几次再去问问那个人，父亲去过，但显然碰了钉子，回来给母亲介绍的时候也是小心翼翼的，我现在想起当时的情景，估计那个老家伙肯定是摆出一副天机不可泄露的神态。当时忽然想起在学校里看的打倒四人帮的场景，但也就是想想，我们家是那种无论如何不惹是生非的家庭，父母更是息事宁人的性格，也就是在自己家里发发狠，出门见人都是不笑不说话的。
但后来证明哪位大仙固然有几分水平，我小学三年级的时候真的得了一种令人难以启齿的病：恶癣。脸上肩上一片一片的，奇痒难忍，厉害时候一抓就是一把，最严重的时候都让我无法睡觉，尤其是上学时候根本就不能坚持，痛可忍而痒不可忍，我差点都不想上学了，老师也怕我传染，给我在教室最后安排了一个单独的位子，远离人群，一种苦闷与孤独纠缠了我很长的时间，那对我来说真的是一场磨难，很早就懂了人情世故，看人家离我都远远的，有点像现在黄宏将军进人民大会堂都找不到同行者一样，很悲凉也很自卑，我当时学习成绩很好，但总人家嘲笑，习惯了别人的白眼，极少数和我不错的小伙伴和我交往也是偷偷摸摸的，估计他们家家长肯定没少嘱咐他们要远离我，因此上到现在为止我都很珍惜珍视，在你最孤单的时候有一份真情是会让你感激凌啼的。
父母当时也很着急，甚至比我都着急，当时最担心我患上了一种叫做麻风的疾病，因为恶癣之下，我都把自己的眉毛挠光了，父亲骑车带我去了好多医院：聊城、临清，最后来的济南，我到现在记得父亲带我去一个小山包里去到济南市皮肤病研究所的情景，当时一个老大夫告诉父亲，让他放心，绝对不是那种麻风病，父亲握住人家的手激动的眼泪直流。我很奇怪父亲常说男人不能随便流眼泪，而他自己却做不到。
一年、两年、三年的时间，癣时好时坏，怎么也根除不了，直到最后父亲和我都死了心，只有母亲还是相信我会好的，当时家里甚至每到初一十五的时候都偷偷的点燃几根香，母亲总是说：会好的，会好的。
- （短文学期待您的每一篇作品）
深度阅读 &&&&&&&&&&
如果您有更多好的建议，请与我们联系：