编辑框内按下shift+回车 换行 按下回车 单击按钮 求大佬...

hsk0809

编辑框内按下shift+回车=换行  按下回车=发送   求大佬给个例子

就像QQ和VX一样

企鹅号525150138

  

子程序名	返回值类型	公开	备 注
_编辑框1_按下某键	逻辑型
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

如果 (键代码 ＝ #回车键 且 功能键状态 ＝ #Shift键状态 )
调试输出 (“换行”)

如果 (键代码 ＝ #回车键 )
调试输出 (“发送”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _编辑框1_按下某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果 (键代码 ＝ #回车键 且 功能键状态 ＝ #Shift键状态)<br />     调试输出 (“换行”)<br /> <br /> .否则<br />     .如果 (键代码 ＝ #回车键)<br />         调试输出 (“发送”)<br />     .否则<br /> <br />     .如果结束<br /> <br /> .如果结束

大司命

  

子程序名	返回值类型	公开	备 注
_编辑框1_按下某键	逻辑型
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

如果真 (键代码 ＝ #回车键 )
如果 (位与 (功能键状态, #Shift键状态 ) ≠ 0)
' 发送
' 回车

.版本 2<br /> .子程序 _编辑框1_按下某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> .如果真 (键代码 ＝ #回车键)<br />     .如果 (位与 (功能键状态, #Shift键状态) ≠ 0)<br />         ' 发送<br />     .否则<br />         ' 回车<br />     .如果结束<br /> .如果真结束

w506576134

不知道是不是你想要的效果

Ach1n

w506576134 发表于 2022-7-31 23:40
不知道是不是你想要的效果

我感觉是这这样

asd960608

.版本 2
.支持库 spec

.子程序 _编辑框1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型

.如果真 (键代码 ＝ #回车键)
    .如果 (功能键状态 ＝ #Shift键状态)
        调试输出 (“换行”)
    .否则
        调试输出 (“回车”)

love116

  

子程序名	返回值类型	公开	备 注
_编辑框1_按下某键	逻辑型
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

判断 (键代码 ＝ #回车键 且 功能键状态 ＝ #Shift键状态 )
' 编辑框属性  是否允许多行  =真
' 本身 Shift键 + 回车键  或 回车键  自动换行功能
' 这里不需要写条件

判断 (键代码 ＝ #回车键 )
' 把 编辑框1.内容 发送到 编辑框2
编辑框2.内容 ＝ 编辑框1.内容

.版本 2<br /> <br /> .子程序 _编辑框1_按下某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .判断开始 (键代码 ＝ #回车键 且 功能键状态 ＝ #Shift键状态)<br />     ' 编辑框属性  是否允许多行  =真<br />     ' 本身 Shift键 + 回车键  或 回车键  自动换行功能<br />     ' 这里不需要写条件<br /> <br /> .判断 (键代码 ＝ #回车键)<br />     ' 把 编辑框1.内容 发送到 编辑框2<br />     编辑框2.内容 ＝ 编辑框1.内容