设为首页收藏本站亲,今天是2018年04月21日,离还有-17641.666666667天。

易源码

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 313|回复: 1

易语言动态文字效果

[复制链接]

3188

主题

7949

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
19399
发表于 2017-11-27 09:07:37 | 显示全部楼层 |阅读模式
链接:http://pan.baidu.com/s/1nvFZfeT 密码:k65g

  
窗口程序集名保 留  保 留备 注
窗口程序集1   
变量名类 型数组备 注
m_bDoEffect逻辑型  

子程序名返回值类型公开备 注
TextEffect  
参数名类 型参考可空数组备 注
sText文本型   
lX整数型   
lY整数型   
bLoop逻辑型  
lStartSpacing整数型  
lEndSpacing整数型  
oColor整数型  
变量名类 型静态数组备 注
i整数型  
x整数型  
lLen整数型  
lHDC整数型  
hBrush整数型  
tRRECT 
iDir整数型  
bNotFirstTime1逻辑型  
lTime1整数型  
lIter整数型  
bSlowDown逻辑型  
lCOlor整数型  
bDoIt逻辑型  
如果真 (是否为空 (bLoop))
bLoop = 假
如果真 (是否为空 (lStartSpacing))
lStartSpacing = 128
如果真 (是否为空 (lEndSpacing))
lEndSpacing = -1
如果真 (是否为空 (oColor))
oColor = 2147483656
lCOlor = 0
iDir = -1
i = lStartSpacing
tR.left = lX
tR.tOp = lY
tR.Right = lX
tR.Bottom = lY
OleTranslateColor (oColor, 0, lCOlor)
hBrush = CreateSolidBrush ( #白色 )
lLen = 取文本长度 (sText)
lHDC = GetDC (画板1.取窗口句柄 ())
SetTextColor (lHDC, oColor)
bDoIt = 真
判断循环首 (m_bDoEffect bDoIt)
lTime1 = 取启动时间 ()
判断 (i < -3 取反 (bLoop) 取反 (bSlowDown))
bSlowDown = 真
iDir = 1
lIter = i + 4


判断 (i > 128)
iDir = -1


判断 (取反 (bLoop) iDir = 1)
判断 (i = lEndSpacing)
bDoIt = 假
lIter = lIter - 1
判断 (lIter ≤ 0)
i = i + iDir
lIter = i + 4






i = i + iDir
FillRect (lHDC, tR, hBrush)
x = 32 - i × lLen
SetTextCharacterExtra (lHDC, i)
DrawText (lHDC, sText, lLen, tR, #DT_CALCRECT )
tR.Right = tR.Right + 4
判断 (tR.Right > 宽度)
tR.Right = 宽度


DrawText (lHDC, sText, lLen, tR, #DT_LEFT )
判断循环首 (取启动时间 () - lTime1 < 20)
处理事件 ()
画板1.刷新显示 ()
判断循环尾 ()
判断循环尾 ()
DeleteObject (hBrush)
返回 ()
子程序名返回值类型公开备 注
__启动窗口_创建完毕  
可视 = 真
处理事件 ()
判断 (取反 (m_bDoEffect))
m_bDoEffect = 真
TextEffect (“Hello Every Body”, 12, 12, , 128, 0, 取颜色值 (128, 0, 0))
判断 (m_bDoEffect)
画板1.字体.字体大小 = 14
TextEffect (www.loveXyou.com, 36, 52, , 128, 0, #绿色 )


判断 (m_bDoEffect)
画板1.字体.字体名称 = “Tahoma”
画板1.字体.字体大小 = 8
画板1.字体.加粗 = 假
TextEffect (“兄弟姐妹们你们好!”, 49, 86, , 128, 0, #蓝色 )

判断 (m_bDoEffect)
TextEffect (“By BoyChong 神2 - 谢栋”, 49, 105, , 128, 0, #红色 )

m_bDoEffect = 假
m_bDoEffect = 假
返回 ()
子程序名返回值类型公开备 注
__启动窗口_将被销毁  
m_bDoEffect = 假




上一篇:易语言动态射线源码
下一篇:易语言读取CSDN验证码源码
回复

使用道具 举报

3188

主题

7949

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
19399
 楼主| 发表于 2017-11-27 09:07:44 | 显示全部楼层
  
DLL命令名返回值类型公开备 注
timeGetTime整数型 
DLL库文件名:
winmm.dll
在DLL库中对应命令名:
timeGetTime
参数名类 型传址数组备 注
DLL命令名返回值类型公开备 注
SetTextCharacterExtra整数型 
DLL库文件名:
gdi32
在DLL库中对应命令名:
SetTextCharacterExtra
参数名类 型传址数组备 注
hdc整数型  
nCharExtra整数型  
DLL命令名返回值类型公开备 注
OffsetRect整数型 
DLL库文件名:
user32
在DLL库中对应命令名:
OffsetRect
参数名类 型传址数组备 注
lpRectRECT  
x整数型  
y整数型  
DLL命令名返回值类型公开备 注
SetTextColor整数型 
DLL库文件名:
gdi32
在DLL库中对应命令名:
SetTextColor
参数名类 型传址数组备 注
hdc整数型  
crColor整数型  
DLL命令名返回值类型公开备 注
FillRect整数型 
DLL库文件名:
user32
在DLL库中对应命令名:
FillRect
参数名类 型传址数组备 注
hdc整数型  
lpRectRECT  
hBrush整数型  
DLL命令名返回值类型公开备 注
GetDC整数型 
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
GetDC
参数名类 型传址数组备 注
hWnd整数型  
DLL命令名返回值类型公开备 注
CreateSolidBrush整数型 
DLL库文件名:
gdi32
在DLL库中对应命令名:
CreateSolidBrush
参数名类 型传址数组备 注
crColor整数型  
DLL命令名返回值类型公开备 注
DeleteObject整数型 
DLL库文件名:
gdi32
在DLL库中对应命令名:
DeleteObject
参数名类 型传址数组备 注
hObject整数型  
DLL命令名返回值类型公开备 注
GetSysColor整数型 
DLL库文件名:
user32
在DLL库中对应命令名:
GetSysColor
参数名类 型传址数组备 注
nIndex整数型  
DLL命令名返回值类型公开备 注
TextOut整数型 
DLL库文件名:
gdi32
在DLL库中对应命令名:
TextOutA
参数名类 型传址数组备 注
hdc整数型  
x整数型  
y整数型  
lpString文本型  
nCount整数型  
DLL命令名返回值类型公开备 注
DrawText整数型 
DLL库文件名:
user32
在DLL库中对应命令名:
DrawTextA
参数名类 型传址数组备 注
hdc整数型  
lpStr文本型  
nCount整数型  
lpRectRECT  
wFormat整数型  
DLL命令名返回值类型公开备 注
OleTranslateColor整数型 
DLL库文件名:
OLEPRO32.DLL
在DLL库中对应命令名:
OleTranslateColor
参数名类 型传址数组备 注
OLE_COLOR整数型  
HPALETTE整数型  
pccolorref整数型  

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|易源码论坛 ( 123456  

GMT+8, 2018-4-21 08:08 , Processed in 0.073779 second(s), 8 queries , File On.

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表