时间问题 实时时间

wangkai2022

勾选了选择框  后不显示实时时间，  求解

  

子程序名	返回值类型	公开	备 注
绘制时间			其实强制销毁也行，因为占用没多大，这只是给个最优解
参数名	类 型	参考	可空	数组	备 注
参数	整数型				0=绘制编辑框填入的时间 非0=实时自绘

变量名	类 型	静态	数组	备 注
时间	文本型

' 180/60  量的
判断 (参数 ＝ 0)  ' 调试/单次模式
时间 ＝ 编辑框_时间.内容  ' 绘制一次时间
填充时间 ()
内存画板_时间.写文本 (0, 0, 时间)
内存画板.画图片 (内存画板_时间.取句柄 (), 170, 60, , , )
图片框_预览.图片 ＝ 内存画板.取图片 (, , )
' 实时模式
判断循环首 (真)  ' 死循环复制，线程启动，不影响操作
时间 ＝ 取时间1 ()  ' 爬虫模块各命令均由于精易模块，并且除特别提示外均多线程安全)
填充时间 ()
内存画板_时间.写文本 (0, 0, 时间)
内存画板.画图片 (内存画板_时间.取句柄 (), 180, 60, , , )
图片框_预览.图片 ＝ 内存画板.取图片 (, , )
程序_延时 (30, 1)  ' 半分钟绘制一次就行了，太频繁没锤子用，乱耗费cpu资源
判断循环尾 ()
返回 ()

子程序名	返回值类型	公开	备 注
取时间1	文本型

变量名	类 型	静态	数组	备 注
时间	文本型
分	文本型
时	文本型

时间 ＝ 取当前时间 ()
分 ＝ 文本_取中间 (时间, “时”, “分”, , , , )
时 ＝ 文本_取中间 (时间, “日”, “时”, , , , )
' 如果真 (到整数 (时) ＞ 12)‘十二进制时间
' 时 ＝ 到文本 (到整数 (时) － 12)
如果真 (取文本长度s (分) ＝ 1)  ' 因为1：01这个取出来是1：1 不对劲，得加0
分 ＝ “0” ＋ 分
返回 (时 ＋ “:” ＋ 分)

子程序名	返回值类型	公开	备 注
填充时间			把时间范围填充一下，这样不需要每次绘制其他画板

内存画板_时间.字体属性 (“黑体”, 40, 真, 真, , , )  ' 设置字体和大小
内存画板.刷子颜色 (ARGB到RGB (-1036234, ))  ' 一般没说的就是rgb 他要argb了你再给argb
内存画板.填充矩形 (100, 0, 350, 110)
内存画板_时间.清除 ()

.子程序 绘制时间, , 公开, 其实强制销毁也行，因为占用没多大，这只是给个最优解<br /> .参数 参数, 整数型, 参考, 0=绘制编辑框填入的时间 非0=实时自绘<br /> .局部变量 时间, 文本型<br /> <br /> ' 180/60  量的<br /> <br /> .判断开始 (参数 ＝ 0)  ' 调试/单次模式<br />     时间 ＝ 编辑框_时间.内容  ' 绘制一次时间<br />     填充时间 ()<br />     内存画板_时间.写文本 (0, 0, 时间)<br />     内存画板.画图片 (内存画板_时间.取句柄 (), 170, 60, , , )<br />     图片框_预览.图片 ＝ 内存画板.取图片 (, , )<br /> .默认<br />     ' 实时模式<br />     .判断循环首 (真)  ' 死循环复制，线程启动，不影响操作<br />         时间 ＝ 取时间1 ()  ' 爬虫模块各命令均由于精易模块，并且除特别提示外均多线程安全)<br />         填充时间 ()<br />         内存画板_时间.写文本 (0, 0, 时间)<br />         内存画板.画图片 (内存画板_时间.取句柄 (), 180, 60, , , )<br />         图片框_预览.图片 ＝ 内存画板.取图片 (, , )<br />         程序_延时 (30, 1)  ' 半分钟绘制一次就行了，太频繁没锤子用，乱耗费cpu资源<br />     .判断循环尾 ()<br /> .判断结束<br /> 返回 ()<br /> <br /> <br /> .子程序 取时间1, 文本型, 公开<br /> .局部变量 时间, 文本型<br /> .局部变量 分, 文本型<br /> .局部变量 时, 文本型<br /> <br /> 时间 ＝ 取当前时间 ()<br /> 分 ＝ 文本_取中间 (时间, “时”, “分”, , , , )<br /> 时 ＝ 文本_取中间 (时间, “日”, “时”, , , , )<br /> ' 如果真 (到整数 (时) ＞ 12)‘十二进制时间<br /> ' 时 ＝ 到文本 (到整数 (时) － 12)<br /> .如果真 (取文本长度s (分) ＝ 1)  ' 因为1：01这个取出来是1：1 不对劲，得加0<br />     分 ＝ “0” ＋ 分<br /> .如果真结束<br /> 返回 (时 ＋ “:” ＋ 分)<br /> <br /> .子程序 填充时间, , 公开, 把时间范围填充一下，这样不需要每次绘制其他画板<br /> <br /> 内存画板_时间.字体属性 (“黑体”, 40, 真, 真, , , )  ' 设置字体和大小<br /> <br /> 内存画板.刷子颜色 (ARGB到RGB (-1036234, ))  ' 一般没说的就是rgb 他要argb了你再给argb<br /> 内存画板.填充矩形 (100, 0, 350, 110)<br /> 内存画板_时间.清除 ()

真IKUN

放到你的图片框，现在图在内存画板上，得赋值给图片框才能看见

补充内容 (2024-12-29 14:37):
图片框_预览.图片 ＝ 内存画板.取图片 (, , )

gusheng

源码发些呗

huanjushidai