内存画板9.0怎么在外部窗口上绘制

不苦小和尚

内存画板9.0怎么在外部窗口上绘制，比如在notepadd++ 上绘制文字，矩形，给个案例就行

xin354033

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
内存画板	内存画板
外部窗口	整数型
画板宽	整数型
画板高	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
rec	矩形区域

外部窗口 ＝ 395550
GetClientRect (外部窗口, rec)
画板宽 ＝ rec.右边
画板高 ＝ rec.底边
内存画板.创建 (画板宽, 画板高, #粉红 )
时钟1.时钟周期 ＝ 50

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
rec	矩形区域

如果真 (IsWindow (外部窗口) ＝ 假)
时钟1.时钟周期 ＝ 0
返回 ()
GetClientRect (外部窗口, rec)
如果真 (取反 (画板宽 ＝ rec.右边 且 画板高 ＝ rec.底边))
画板宽 ＝ rec.右边
画板高 ＝ rec.底边
内存画板.置画板尺寸 (画板宽, 画板高)
内存画板.复制到窗口 (外部窗口, , )
' 对于编辑框、代码编辑框等组件，当程序退出或画板销毁时，因为有光标一闪一闪的，外部窗口会立刻还原

子程序名	返回值类型	公开	备 注
_按钮1_被单击

内存画板.清除 ()
内存画板.定位写出 (10, 10, “内存画板在外部窗口上绘制”)
内存画板.画矩形 (30, 50, 130, 100)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 内存画板, 内存画板<br /> .程序集变量 外部窗口, 整数型<br /> .程序集变量 画板宽, 整数型<br /> .程序集变量 画板高, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 rec, 矩形区域<br /> <br /> 外部窗口 ＝ 395550<br /> GetClientRect (外部窗口, rec)<br /> 画板宽 ＝ rec.右边<br /> 画板高 ＝ rec.底边<br /> 内存画板.创建 (画板宽, 画板高, #粉红)<br /> 时钟1.时钟周期 ＝ 50<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 rec, 矩形区域<br /> <br /> .如果真 (IsWindow (外部窗口) ＝ 假)<br />     时钟1.时钟周期 ＝ 0<br />     返回 ()<br /> .如果真结束<br /> GetClientRect (外部窗口, rec)<br /> .如果真 (取反 (画板宽 ＝ rec.右边 且 画板高 ＝ rec.底边))<br />     画板宽 ＝ rec.右边<br />     画板高 ＝ rec.底边<br />     内存画板.置画板尺寸 (画板宽, 画板高)<br /> .如果真结束<br /> 内存画板.复制到窗口 (外部窗口, , )<br /> ' 对于编辑框、代码编辑框等组件，当程序退出或画板销毁时，因为有光标一闪一闪的，外部窗口会立刻还原<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 内存画板.清除 ()<br /> 内存画板.定位写出 (10, 10, “内存画板在外部窗口上绘制”)<br /> 内存画板.画矩形 (30, 50, 130, 100)

不苦小和尚

xin354033 发表于 2021-1-31 21:32
[e=10].版本 2

.程序集 窗口程序集_启动窗口

好的，我试试看，谢谢了