易语言怎么写软键盘？思路告诉我就OK了

.版本 2
.DLL命令 _投递消息, , , "PostMessageA", 公开, 向指定窗口句柄发送消息
.参数 h
.参数 m
.参数 p
.参数 p

.DLL命令 取当前聚焦点的控件, 整数型, "user32", "GetFocus"

.子程序 按键消息, , 公开, 向指定窗口句柄的窗口中发送按键消息(无返回值)
.参数 窗口句柄, 整数型, , 接收消息的窗口句柄
.参数 键代码, 整数型, , 按键的键代码
.参数 状态, 整数型, 可空, 可空:按键(3+4) 1 #按键_ 2 功能键方式(按下+放开) 3 #按下_ 4 #放开_

eb5ht ＝ 键代码
hetrthb6y5j ＝ 状态
按键消息处理 (窗口句柄)

.子程序 按键消息处理, 逻辑型
.参数 hwnd, 整数型

.如果真 (hwnd ≠ 0)
.判断开始 (hetrthb6y5j ＝ 1)
_投递消息 (hwnd, 258, eb5ht, 0)
.判断 (hetrthb6y5j ＝ 2)
_投递消息 (hwnd, 260, eb5ht, 0)
_投递消息 (hwnd, 261, eb5ht, 0)
.判断 (hetrthb6y5j ＝ 3)
_投递消息 (hwnd, 256, eb5ht, 0)
.判断 (hetrthb6y5j ＝ 4)
_投递消息 (hwnd, 257, eb5ht, 0)
.默认
_投递消息 (hwnd, 256, eb5ht, 0)
_投递消息 (hwnd, 257, eb5ht, 0)
.判断结束
返回 (真)
.如果真结束
返回 (假)

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/3xj3yferf.html