易语言源码屏幕画笔（易笔易画手机版）
本文目录一览：
- 1、用易语言做一个屏幕尺子软件
- 2、什么是易语言源码？怎么用，大概有几种？我是新手，详细点！
- 3、易语言我想用画笔和纯色画刷API自绘窗口怎么实现
- 4、易语言 画心源码 求大神
- 5、易语言在屏幕上画虚线(用鼠标点击拖动就画出一条直直的虚线，线的粗细能设置)。
用易语言做一个屏幕尺子软件
.版本 2
.程序集 窗口程序集1
.程序集变量 起点X
.程序集变量 起点Y
.程序集变量 px, 整数型
.程序集变量 py, 整数型
.子程序 _画板1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
时钟1.时钟周期 ＝ 10
起点X ＝ 横向位置
起点Y ＝ 纵向位置
.子程序 _画板1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
时钟1.时钟周期 ＝ 0
.子程序 _时钟1_周期事件
.局部变量 a, 双精度小数型
.局部变量 b, 双精度小数型
.局部变量 c, 双精度小数型
.局部变量 cosA, 双精度小数型
.局部变量 cosB, 双精度小数型
.局部变量 cosC, 双精度小数型
.局部变量 tanA, 双精度小数型
.局部变量 tanB, 双精度小数型
.局部变量 tanC, 双精度小数型
.局部变量 pi, 双精度小数型
.局部变量 角A, 文本型
.局部变量 角B, 文本型
.局部变量 角C, 文本型
画板1.清除 (0, 0, 取屏幕宽度 (), 取屏幕高度 ())
画板1.画笔颜色 ＝ #绿色
画板1.画直线 (起点X, 0, 起点X, 取屏幕高度 ())
画板1.画直线 (0, 起点Y, 取屏幕宽度 (), 起点Y)
画板1.画笔颜色 ＝ #蓝色
画板1.画直线 (0, 取鼠标垂直位置 (), 取屏幕宽度 (), 取鼠标垂直位置 ())
画板1.画直线 (取鼠标水平位置 (), 0, 取鼠标水平位置 (), 取屏幕高度 ())
画板1.画笔颜色 ＝ #红色
画板1.画直线 (起点X, 起点Y, 取鼠标水平位置 (), 取鼠标垂直位置 ())
' --------------------------------------------------------------------------------------------------
a ＝ 取绝对值 (取鼠标水平位置 () － 起点X) × 25.4 ÷ px ' 像素转毫米
b ＝ 取绝对值 (取鼠标垂直位置 () － 起点Y) × 25.4 ÷ py ' 像素转毫米
c ＝ 求平方根 (求次方 (a, 2) ＋ 求次方 (b, 2)) ' 求对边
cosA ＝ (b × b ＋ c × c － a × a) ÷ (2 × b × c)
cosB ＝ (a × a ＋ c × c － b × b) ÷ (2 × a × c)
cosC ＝ (a × a ＋ b × b － c × c) ÷ (2 × a × b)
tanA ＝ 求平方根 (1 ÷ (cosA × cosA) － 1)
tanB ＝ 求平方根 (1 ÷ (cosB × cosB) － 1)
tanC ＝ 求平方根 (1 ÷ (cosC × cosC) － 1)
pi ＝ 3.14159265359
.如果 (cosA ＝ 0)
角A ＝ “90”
.否则
角A ＝ 到文本 (选择 (cosA ＞ 0, 0, 180) ＋ 选择 (cosA ＞ 0, 1, -1) × 求反正切 (tanA) × 180 ÷ pi)
.如果结束
.如果 (cosB ＝ 0)
角B ＝ “90”
.否则
角B ＝ 到文本 (选择 (cosB ＞ 0, 0, 180) ＋ 选择 (cosB ＞ 0, 1, -1) × 求反正切 (tanB) × 180 ÷ pi)
.如果结束
.如果 (cosC ＝ 0)
角C ＝ “90”
.否则
角C ＝ 到文本 (选择 (cosC ＞ 0, 0, 180) ＋ 选择 (cosC ＞ 0, 1, -1) × 求反正切 (tanC) × 180 ÷ pi)
.如果结束
.判断开始 (取鼠标垂直位置 () ＜ 起点Y)
画板1.文本颜色 ＝ #绿色
画板1.置写出位置 (起点X, 起点Y)
画板1.写文本行 (“X：” ＋ 到文本 (起点X), “Y：” ＋ 到文本 (起点Y), “角：” ＋ 角B)
画板1.文本颜色 ＝ #蓝色
画板1.置写出位置 (取鼠标水平位置 (), 取鼠标垂直位置 ())
画板1.写文本行 (“X：” ＋ 到文本 (取鼠标水平位置 ()), “Y：” ＋ 到文本 (取鼠标垂直位置 ()), “角：” ＋ 角A)
.默认
画板1.文本颜色 ＝ #绿色
画板1.置写出位置 (起点X, 起点Y)
画板1.写文本行 (“X：” ＋ 到文本 (起点X), “Y：” ＋ 到文本 (起点Y), “角：” ＋ 角A)
画板1.文本颜色 ＝ #蓝色
画板1.置写出位置 (取鼠标水平位置 (), 取鼠标垂直位置 ())
画板1.写文本行 (“X：” ＋ 到文本 (取鼠标水平位置 ()), “Y：” ＋ 到文本 (取鼠标垂直位置 ()), “角：” ＋ 角B)
.判断结束
画板1.文本颜色 ＝ #品红
画板1.置写出位置 (起点X, 取鼠标垂直位置 ())
画板1.写文本行 (“底：” ＋ 到文本 (a), “高：” ＋ 到文本 (b), “边：” ＋ 到文本 (c))
画板1.置写出位置 (取鼠标水平位置 (), 起点Y)
画板1.写文本行 (“底：” ＋ 到文本 (a), “高：” ＋ 到文本 (b), “边：” ＋ 到文本 (c), “角：” ＋ 角C)
.子程序 __启动窗口_创建完毕
_启动窗口.移动 (0, 0, 取屏幕宽度 (), 取屏幕高度 ())
画板1.移动 (0, 0, 取屏幕宽度 (), 取屏幕高度 ())
画板1.底图 ＝ 快照 (, , )
px ＝ 取DPI (取设备场景 (取屏幕句柄 ()), #LOGPIXELSX)
py ＝ 取DPI (取设备场景 (取屏幕句柄 ()), #LOGPIXELSY)
--------------------------------------------------------------------------------------------
.版本 2
.DLL命令 取设备场景, 整数型, "user32", "GetDC", , 获取指定窗口的设备场景 指定窗口的设备场景句柄，出错则为0
.参数 窗口的句柄, 整数型, , 将获取其设备场景的窗口的句柄。若为0，则要获取整个屏幕的DC;
.DLL命令 取屏幕句柄, 整数型, "user32", "GetDesktopWindow"
.DLL命令 取DPI, 整数型, "gdi32", "GetDeviceCaps"
.参数 设备场景, 整数型, , 要查询其设备的信息的设备场景
.参数 值, 整数型, , 根据GetDeviceCaps索引表所示常数确定返回信息的类型;
------------------------------------------------------------------------------------------------------------------
.版本 2
.常量 LOGPIXELSX, "88"
.常量 LOGPIXELSY, "90"
什么是易语言源码？怎么用，大概有几种？我是新手，详细点！
就是一个程序的源文件
一个程序里面有很多原理
这些就是易语言源码
比如一个EXE的文件
它就有一个源码
这么说吧
如果一个JPG图片
那么它的源码就是还没保存的时候可以编辑的那个情况下
比如说一个程序（点按钮1就出现对话框“123”）
那么它的源码就是：
大概原理就是
按钮1点击时：信息框（“123”，0，）
这样
就是易语言源码
易语言我想用画笔和纯色画刷API自绘窗口怎么实现
纯API？
你可以找一个开源易语言源码屏幕画笔的GDIPlus
类模块
写着看看
GDIPlus类模块
中集成易语言源码屏幕画笔了你需要易语言源码屏幕画笔的所有东西
方便使用
GP图形、GP位图、GP画刷等等
同时还有将你绘制易语言源码屏幕画笔的图片显示到窗口的命令易语言源码屏幕画笔，GDIPlus类模块中都有集成
你也可以将画笔和纯色画刷从GDIPlus类模块单独提取出来
易语言 画心源码 求大神
楼上的java代码好牛，翻译了一下，画出来的竟是3D的心形，不知是不是我翻译错了~~！！！
.版本 2
.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 r, 整数型
.局部变量 x, 整数型
.局部变量 y, 整数型
画板1.自动重画 ＝ 真
.计次循环首 (90, i)
.计次循环首 (90, j)
r ＝ #pi ÷ 45 × i × (1 － 求正弦 (#pi ÷ 45 × j)) × 18
x ＝ r × 求余弦 (#pi ÷ 45 × j) × 求正弦 (#pi ÷ 45 × i) ＋ 画板1.宽度 ÷ 2
y ＝ －r × 求正弦 (#pi ÷ 45 × j) ＋ 画板1.高度 ÷ 4
画板1.画点 (x, y, 255)
.计次循环尾 ()
.计次循环尾 ()
易语言在屏幕上画虚线(用鼠标点击拖动就画出一条直直的虚线，线的粗细能设置)。
1、易语言当画板的画笔类型为划线、点线、点划线、双点划线时，画笔粗细属性无效，画笔粗细属性仅对直线生效。故本代码采用三角函数循环画线段模拟虚线。
2、支持调节线条颜色和粗细，虚线间隔及线宽可调节范围可在代码中修改。
3、win7 64位测试在桌面上画线会有bug，原因未知。
源码：
