作者：泪闯天涯

彗星屏幕录象源码[保存为GIF格式]

制作得比较简单，直接录制全屏的，这个只是原来为了制作软件使用说明编写的，源码比较简单，大家可以自己扩展更多的功能，如果可以，请把扩展后的源码发给我一份。

使用了云外归鸟的GIF动画全操作支持库1.2版，已经和源码一起打包。

标签屏幕录象

.版本 2 .子程序 _按钮1_被单击 .局部变量新窗口句柄, 整数型新窗口句柄＝彗星复制窗口组件 (按钮3.取窗口句柄 (), 0, 假, 260, 160) 信息框 (“复制完毕，新窗口句柄=” ＋到文本 (新窗口句柄), 0, ) .子程序 _按钮2_被单击 .局部变量新窗口句柄, 整数型新窗口句柄＝彗星复制窗口组件 (分组框1.取窗口句柄 (), 0, 真, 120) 信息框 (“复制完毕，新窗口句柄=” ＋到文本 (新窗口句柄), 0, )

易语言例程

Windows消息模拟器源码

.版本 2 .程序集窗口程序集1 .程序集变量捕获鼠标, 逻辑型 .子程序 __启动窗口_创建完毕 .局部变量分行数组, 文本型, , "0" .局部变量分列数组, 文本型, , "0" .局部变量 i, 整数型图片框1.鼠标指针＝ #光标_手型连续赋值 (#光标_箭头, _启动窗口.鼠标指针, 标签1.鼠标指针, 消息_编辑框1.鼠标指针, 消息_编辑框2.鼠标指针, 消息_组合框1.鼠标指针, 消息_组合框2.鼠标指针, 消息_组合框3.鼠标指针, 按钮1.鼠标指针, 按钮2.鼠标指针) 连续赋值 (#光标_手型, 图片框2.鼠标指针, 超级链接框1.鼠标指针) 分行数组＝分割文本 (#消息常量, #换行符, ) .计次循环首 (取数组成员数 (分行数组), i) 分列数组＝分割文本 (分行数组 [i], “=”, ) 消息_组合框1.加入项目 (分列数组 [1] ＋ “(” ＋分列数组 [2] ＋ “)”, 到数值 (分列数组 [2])) .计次循环尾 () .子程序 __启动窗口_尺寸被改变宽度＝宽度－取用户区宽度 () ＋按钮2.左边＋按钮2.宽度＋ 8 高度＝高度－取用户区高度 () ＋按钮2.顶边＋按钮2.高度＋ 8 .子程序 _图片框1_鼠标左键被按下, 逻辑型 .参数横向位置, 整数型 .参数纵向位置, 整数型 .参数功能键状态, 整数型 .如果真 (捕获鼠标＝假) 图片框1.鼠标指针＝ #光标_圆型图片框1.图片＝ #图片2 捕获鼠标＝真处理事件 () SetCapture (图片框1.取窗口句柄 ()) .如果真结束 .子程序 _图片框1_鼠标左键被放开, 逻辑型 .参数横向位置, 整数型 .参数纵向位置, 整数型 .参数功能键状态, 整数型 .如果真 (捕获鼠标) 图片框1.鼠标指针＝ #光标_手型图片框1.图片＝ #图片1 捕获鼠标＝假 ReleaseCapture () .如果真结束 .子程序 _图片框1_鼠标位置被移动, 逻辑型 .参数横向位置, 整数型 .参数纵向位置, 整数型 .参数功能键状态, 整数型 .局部变量 pt, POINTAPI .局部变量 hwnd, 整数型 .如果真 (捕获鼠标) GetCursorPos (pt) hwnd ＝ WindowFromPoint (pt.x, pt.y) 消息_编辑框1.内容＝到文本 (hwnd) .如果真结束 .子程序 _按钮1_被单击 .局部变量 hwnd, 整数型, , , 要接收消息的那个窗口的句柄 .局部变量 wMsg, 整数型, , , 消息的标识符 .局部变量 wParam, 整数型, , , 具体取决于消息 .局部变量 lParam, 整数型, , , 具体取决于消息; .局部变量 Ret, 整数型 .局部变量 Str, 文本型 hwnd ＝到数值 (消息_编辑框1.内容) .如果真 (hwnd ≠ 0) Ret ＝寻找文本 (消息_组合框1.内容, “(”, , 假) .如果 (Ret ≠ -1) Str ＝删首尾空 (取文本右边 (消息_组合框1.内容, 取文本长度 (消息_组合框1.内容) － Ret)) Str ＝取文本左边 (Str, 取文本长度 (Str) － 1) wMsg ＝到数值 (Str) .否则 wMsg ＝到数值 (消息_组合框1.内容) .如果结束 wParam ＝到数值 (消息_组合框2.内容) lParam ＝到数值 (消息_组合框3.内容) .判断开始 (单选框1.选中) 消息_编辑框2.内容＝ “SendMessage....” 处理事件 () Ret ＝ SendMessage (hwnd, wMsg, wParam, lParam) .判断 (单选框2.选中) 消息_编辑框2.内容＝ “PostMessage....” 处理事件 () Ret ＝ PostMessage (hwnd, wMsg, wParam, lParam) .默认 .判断结束消息_编辑框2.内容＝ “返回值 ” ＋到文本 (Ret) .如果真结束 .子程序 _选择框1_被单击总在最前＝选择框1.选中 .子程序 _图片框2_鼠标右键被放开, 逻辑型 .参数横向位置, 整数型 .参数纵向位置, 整数型 .参数功能键状态, 整数型超级链接框1.跳转 ()

网络相关源码

易语言在线程中连接服务器源码

.版本 2 .程序集窗口程序集_启动窗口 .程序集变量连接成功, 逻辑型 .子程序 _按钮1_被单击按钮1.禁止＝真 ' //先禁止按钮,以免重复点击处理事件 () ' //------------------------ 连接成功＝假创建超时线程 (&线程子程序, 到整数 (编辑框_时间.内容)) ' //------------------------ 信息框 (“连接成功=” ＋到文本 (连接成功), #信息图标, , ) 按钮1.禁止＝假 .子程序线程子程序连接成功＝客户1.连接 (编辑框_IP.内容, 到整数 (编辑框_端口.内容)) .子程序创建超时线程, , , 用API创建线程,超出时间自动销毁.By:邓学彬(泪闯天涯) .参数子程序指针, 子程序指针, , 线程子程序的指针 .参数超时时间, 整数型, , 单位为毫秒,1秒=1000毫秒 .局部变量 hThread, 整数型, , , 线程句柄 .局部变量 dwRet, 整数型 .局部变量 dwMilliseconds, 整数型 .局部变量 dwWakeMask, 整数型 .局部变量 nTickCount, 整数型 ' //用API创建线程,超出时间自动销毁.By:邓学彬(泪闯天涯) nTickCount ＝ GetTickCount () ' //取启动时间 dwMilliseconds ＝超时时间 ' //超时值 dwWakeMask ＝位或 (#QS_ALLINPUT, #QS_ALLEVENTS, #QS_SENDMESSAGE, #QS_ALLPOSTMESSAGE, #QS_MOUSE) hThread ＝ CreateThread (0, 0, 到整数 (子程序指针), 0, 0, 0) ' //创建线程 .判断循环首 (hThread ≠ 0) ' //调用API等待对象 dwRet ＝ MsgWaitForMultipleObjects (1, hThread, 0, dwMilliseconds, dwWakeMask) .判断开始 (dwRet ＝ #WAIT_OBJECT_0) ' //执行完成跳出循环 () .判断 (dwRet ＝ #WAIT_TIMEOUT) ' //超时 TerminateThread (hThread, 0) ' //销毁线程跳出循环 () .判断 (GetTickCount () － nTickCount ＞ dwMilliseconds) ' //超时 TerminateThread (hThread, 0) ' //销毁线程跳出循环 () .默认处理事件 () 延时 (10) .判断结束 .判断循环尾 () CloseHandle (hThread) ' //关闭句柄,释放资源

易语言例程

WORD文件加图片易语言源码

.版本 2 .程序集窗口程序集1 .子程序 _按钮1_被单击 Word加图片 (取运行目录 () ＋ “\test.doc”, 取运行目录 () ＋ “\test.jpg”) 信息框 (“图片添加完毕，请手工打开WORD文件看效果”, #信息图标, “操作提示”) .子程序 Word加图片, , , By:(彬)泪闯天涯 .参数 Word文件, 文本型, , DOC .参数图片文件, 文本型 .局部变量 objWord, 对象, , , Word.Application .局部变量 objDoc, 对象, , , Word.Documents .局部变量 objSelection, 对象 .局部变量 objShape, 对象, , , 该对象可以修改图片样式等 objWord.创建 (“Word.Application”, ) ' 创建WORD程序对象 objWord.写属性 (“Visible”, 真) ' 更改可视属性 objDoc ＝ objWord.读对象型属性 (“Documents”, ) ' 获取文档对象 objDoc ＝ objDoc.对象型方法 (“Open”, Word文件, , , , ) ' 打开文件 objSelection ＝ objWord.对象型方法 (“Selection”, ) ' ↓插入图片 objShape ＝ objSelection.读对象型属性 (“InlineShapes”, ).对象型方法 (“AddPicture”, 图片文件) ' 插入图片后获得一个objShape对象，该对象可以修改图片样式等 objWord.方法 (“quit”, 真) ' 保存并退出 objWord.清除 ()

标签 WORD文件加图片, 易语言源码

图形图像源码

窗口3D旋转动画演示源码

窗口3D旋转动画演示源码

源码说明

截取窗口图片,通过GDIPlus变形图片,达到旋转效果

不过自我感觉方法不太好,效率也不怎么样.

开源在此,只能算抛砖引玉,有兴趣的继续优化吧.

图形图像源码

GDIPlus画艺术字源码

.版本 2 .程序集窗口程序集1 .子程序 __启动窗口_创建完毕 GDIPlus装载 () .子程序 __启动窗口_将被销毁 GDIPlus卸载 () .子程序 __启动窗口_首次激活 _按钮1_被单击 () .子程序 _按钮1_被单击 .局部变量 Gdiplus, Gdiplus图形 .局部变量 Image, Gdiplus图像 .局部变量 Path, Gdiplus路径 .局部变量 Pen, Gdiplus画笔 .局部变量 Brush, Gdiplus画刷 .局部变量 String, 文本型 String ＝编辑框1.内容 Gdiplus.创建_自HWND (图片框1.取窗口句柄 ()) Image.载入图像_自字节集 (#图片1) Gdiplus.画图像 (Image, 0, 0) Gdiplus.置呈现模式 (#呈现模式_高质量低速度) Gdiplus.置文本呈现模式 (#文本呈现模式_AntiAlias) Pen.创建_自颜色 (0, 2) Brush.创建_固色画刷 (RGB到ARGB (#红色, 100)) Path.创建 () Path.加入文本 (String, 70, 70, “微软雅黑”, #字体风格_加粗倾斜, 20) .计次循环首 (4, ) Path.扩展路径 (Pen, , 1) Gdiplus.填充路径 (Brush, Path) .计次循环尾 () ' ------------------ Path.创建 () Path.加入文本 (String, 70, 70, “微软雅黑”, #字体风格_加粗倾斜, 20) Brush.创建_固色画刷 (RGB到ARGB (#白色, 255)) Gdiplus.填充路径 (Brush, Path)

图形图像源码

GDIPlus图片拉伸变形-盒型相册

GDIPlus图片拉伸变形-盒型相册

易语言例程

易语言超级列表框设置背景+背景透明源码

易语言超级列表框设置背景+背景透明源码

易语言例程

易语言模仿打字效果(文字一个一个输入到编辑框)

.版本 2 .程序集窗口程序集1 .子程序 __启动窗口_首次激活 _按钮1_被单击 () .子程序 _按钮1_被单击按钮1.禁止＝真模拟打字效果 (“易语言模拟打字效果，支持中英文。” ＋ #换行符＋ “By:(彬)泪闯天涯”) 按钮1.禁止＝假 .子程序模拟打字效果 .参数文字内容, 文本型 .局部变量文本数组, 文本型, , "0" .局部变量 i, 整数型构建文本数组 (文字内容, 文本数组) 编辑框1.内容＝ “” 处理事件 () .计次循环首 (取数组成员数 (文本数组), i) 编辑框1.加入文本 (文本数组 [i]) 处理事件 () 延时 (50) .计次循环尾 ()

标签易语言, 模仿打字效果

近期文章

近期评论