易语言源码屏幕画笔（爱笔思画手机版）
本文目录一览：
- 1、易语言画板
- 2、易语言在屏幕上画虚线(用鼠标点击拖动就画出一条直直的虚线，线的粗细能设置)。
- 3、什么是易语言源码？怎么用，大概有几种？我是新手，详细点！
- 4、易语言我想用画笔和纯色画刷API自绘窗口怎么实现
- 5、易语言画线
- 6、用易语言做一个屏幕尺子软件
易语言画板
把你的画板的 自动从画 选择为真 就可以了 默认 这个属性是 假
易语言在屏幕上画虚线(用鼠标点击拖动就画出一条直直的虚线，线的粗细能设置)。
1、易语言当画板的画笔类型为划线、点线、点划线、双点划线时，画笔粗细属性无效，画笔粗细属性仅对直线生效。故本代码采用三角函数循环画线段模拟虚线。
2、支持调节线条颜色和粗细，虚线间隔及线宽可调节范围可在代码中修改。
3、win7 64位测试在桌面上画线会有bug，原因未知。
源码：
什么是易语言源码？怎么用，大概有几种？我是新手，详细点！
就是一个程序的源文件
一个程序里面有很多原理
这些就是易语言源码
比如一个EXE的文件
它就有一个源码
这么说吧
如果一个JPG图片
那么它的源码就是还没保存的时候可以编辑的那个情况下
比如说一个程序（点按钮1就出现对话框“123”）
那么它的源码就是：
大概原理就是
按钮1点击时：信息框（“123”，0，）
这样
就是易语言源码
易语言我想用画笔和纯色画刷API自绘窗口怎么实现
纯API？
你可以找一个开源的GDIPlus
类模块
写着看看
GDIPlus类模块
中集成了你需要的所有东西
方便使用
GP图形、GP位图、GP画刷等等
同时还有将你绘制的图片显示到窗口的命令，GDIPlus类模块中都有集成
你也可以将画笔和纯色画刷从GDIPlus类模块单独提取出来
易语言画线
记得采纳哦。
建立一个画板、一个按钮。代码如下：
.版本 2
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
子程序1_界面 ()
.子程序 子程序1_界面
_启动窗口.宽度 ＝ 取屏幕宽度 ()
_启动窗口.高度 ＝ 取屏幕高度 ()
_启动窗口.左边 ＝ 0
_启动窗口.顶边 ＝ 0
选择夹1.左边 ＝ _启动窗口.左边
选择夹1.顶边 ＝ _启动窗口.顶边
选择夹1.宽度 ＝ _启动窗口.宽度
选择夹1.高度 ＝ _启动窗口.高度
画板1.左边 ＝ _启动窗口.左边
画板1.顶边 ＝ _启动窗口.顶边
画板1.宽度 ＝ _启动窗口.宽度
画板1.高度 ＝ _启动窗口.高度
.子程序 子程序1_画阴阳鱼
.局部变量 横向圆心, 整数型
.局部变量 纵向圆心, 整数型
.局部变量 半径, 小数型
.局部变量 s, 整数型
.局部变量 横向偏移, 整数型
.局部变量 纵向偏移, 整数型
画板1.画笔粗细 ＝ 2
画板1.刷子类型 ＝ 0
画板1.画笔颜色 ＝ #黄色
横向圆心 ＝ _启动窗口.宽度 ÷ 2
纵向圆心 ＝ _启动窗口.高度 ÷ 2
半径 ＝ _启动窗口.高度 ÷ 2 － 50
画板1.画椭圆 (横向圆心 － 半径, 纵向圆心 － 半径, 横向圆心 ＋ 半径, 纵向圆心 ＋ 半径)
半径 ＝ _启动窗口.高度 ÷ 2 － 50
' 阴阳鱼的两个大半圆
画板1.画弧线 (横向圆心 － 半径 ÷ 2, 纵向圆心 － 半径, 横向圆心 ＋ 半径 ÷ 2, 纵向圆心, 横向圆心, 纵向圆心 － 半径, 横向圆心, 纵向圆心)
画板1.画弧线 (横向圆心 － 半径 ÷ 2, 纵向圆心 ＋ 半径, 横向圆心 ＋ 半径 ÷ 2, 纵向圆心, 横向圆心, 纵向圆心 ＋ 半径, 横向圆心, 纵向圆心)
' 阴阳鱼的两个小圆
画板1.画椭圆 (横向圆心 － 10, 纵向圆心 － 半径 ÷ 2 － 10, 横向圆心 ＋ 10, 纵向圆心 － 半径 ÷ 2 ＋ 10)
画板1.画椭圆 (横向圆心 － 10, 纵向圆心 ＋ 半径 ÷ 2 － 10, 横向圆心 ＋ 10, 纵向圆心 ＋ 半径 ÷ 2 ＋ 10)
连续赋值 (半径, 横向偏移, 纵向偏移)
.子程序 _按钮1_被单击
子程序1_画阴阳鱼 ()
用易语言做一个屏幕尺子软件
.版本 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"
