在屏幕键盘上面加入了一个按钮,发现逐个输入指定的字符...

Lgq2025

在屏幕键盘的源代码上面加了一个按钮实现逐个输入指定的字符,第一次点击按钮的时候可以实现,
第二次点击的时候会输入2遍(这个是BUG)
第三次点击按钮的时候会输入3遍(这个是BUG)
............以此类推




以下是最终出现BUG的图片

gusheng

按钮1点击事件  开始或者最后加一句  
删除成员 (分割后的文本, 1, 取数组成员数 (分割后的文本))

gusheng

按钮1_点击  记得把分割后的文本数组 清空

熬夜

  

子程序名	返回值类型	公开	备 注
模拟打字效果
参数名	类 型	参考	可空	数组	备 注
文字内容	文本型

变量名	类 型	静态	数组	备 注
文本数组	文本型		0
i	整数型

构建文本数组 (文字内容, 文本数组)
编辑框1.内容 ＝ “”
处理事件 ()
计次循环首 (取数组成员数 (文本数组), i)
编辑框1.加入文本 (文本数组 [i])
处理事件 ()
延时 (50)
计次循环尾 ()

.版本 2<br /> <br /> .子程序 模拟打字效果<br /> .参数 文字内容, 文本型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 构建文本数组 (文字内容, 文本数组)<br /> 编辑框1.内容 ＝ “”<br /> 处理事件 ()<br /> .计次循环首 (取数组成员数 (文本数组), i)<br />     编辑框1.加入文本 (文本数组 <i>)<br />     处理事件 ()<br />     延时 (50)<br /> .计次循环尾 ()

  

子程序名	返回值类型	公开	备 注
构建文本数组			把文本按每个字分割成数组
参数名	类 型	参考	可空	数组	备 注
文本参数	文本型
数组参数	文本型

变量名	类 型	静态	数组	备 注
取文本数	整数型
代码	整数型
i	整数型
n	整数型

清除数组 (数组参数)
n ＝ 取文本长度 (文本参数)
循环判断首 ()
代码 ＝ 取代码 (文本参数, i)
如果真 (代码 ＜ 0)
代码 ＝ 256 ＋ 代码
如果 (代码 ＜ 127)
取文本数 ＝ 1
取文本数 ＝ 2
加入成员 (数组参数, 取文本中间 (文本参数, i, 取文本数))
i ＝ i ＋ 取文本数
循环判断尾 (i ≤ n)

.版本 2<br /> <br /> .子程序 构建文本数组, , , 把文本按每个字分割成数组<br /> .参数 文本参数, 文本型<br /> .参数 数组参数, 文本型, 参考 数组<br /> .局部变量 取文本数, 整数型<br /> .局部变量 代码, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> <br /> 清除数组 (数组参数)<br /> n ＝ 取文本长度 (文本参数)<br /> .循环判断首 ()<br />     代码 ＝ 取代码 (文本参数, i)<br />     .如果真 (代码 ＜ 0)<br />         代码 ＝ 256 ＋ 代码<br />     .如果真结束<br />     .如果 (代码 ＜ 127)<br />         取文本数 ＝ 1<br />     .否则<br />         取文本数 ＝ 2<br />     .如果结束<br />     加入成员 (数组参数, 取文本中间 (文本参数, i, 取文本数))<br />     i ＝ i ＋ 取文本数<br /> .循环判断尾 (i ≤ n)

  

DLL命令名	返回值类型	公开	备 注
IsWindow	整数型		判断一个窗口句柄是否有效　非零表示成功，零表示失败
DLL库文件名:
user32
在DLL库中对应命令名:
IsWindow
参数名	类 型	传址	数组	备 注
hwnd	整数型			待检查窗口的句柄;

DLL命令名	返回值类型	公开	备 注
CreateThread	整数型		CreateThread
DLL库文件名:
在DLL库中对应命令名:
CreateThread
参数名	类 型	传址	数组	备 注
lpThreadAttributes	整数型
dwStackSize	整数型
lpStartAddress	子程序指针
lpParameter	整数型
dwCreationFlags	整数型
lpThreadId	整数型

DLL命令名	返回值类型	公开	备 注
SetWindowText	整数型		设置窗口的标题文字或控件的内容（在vb里使用：针对vb窗体，应使用caption或text属性）　非零表示成功，零表示失败。会设置GetLastError
DLL库文件名:
user32
在DLL库中对应命令名:
SetWindowTextA
参数名	类 型	传址	数组	备 注
hwnd	整数型			要设置文字的窗口的句柄
lpString	文本型			要设到hwnd窗口中的文字;

.版本 2<br /> <br /> .DLL命令 IsWindow, 整数型, "user32", "IsWindow", , 判断一个窗口句柄是否有效　非零表示成功，零表示失败<br />     .参数 hwnd, 整数型, , 待检查窗口的句柄;  <br /> <br /> .DLL命令 CreateThread, 整数型, , "CreateThread", , CreateThread<br />     .参数 lpThreadAttributes, 整数型<br />     .参数 dwStackSize, 整数型<br />     .参数 lpStartAddress, 子程序指针<br />     .参数 lpParameter, 整数型<br />     .参数 dwCreationFlags, 整数型<br />     .参数 lpThreadId, 整数型, 传址<br /> <br /> .DLL命令 SetWindowText, 整数型, "user32", "SetWindowTextA", , 设置窗口的标题文字或控件的内容（在vb里使用：针对vb窗体，应使用caption或text属性）　非零表示成功，零表示失败。会设置GetLastError<br />     .参数 hwnd, 整数型, , 要设置文字的窗口的句柄<br />     .参数 lpString, 文本型, , 要设到hwnd窗口中的文字;

Lgq2025

gusheng 发表于 2024-12-28 21:18
按钮1_点击  记得把分割后的文本数组 清空

是在最后加一个命令   清除数组(分割后的文本)  完美解决问题,谢谢你了

gusheng

Lgq2025 发表于 2024-12-28 21:29
是在最后加一个命令   清除数组(分割后的文本)  完美解决问题,谢谢你了

没事没事