找回密码  加入

AUTOIT CN

搜索
查看: 311|回复: 5

[AU3基础] 这个撤销怎么写哟,大侠们 已解决

[复制链接]
发表于 2018-2-9 10:51:30 | 显示全部楼层 |阅读模式
本帖最后由 qsy666888 于 2018-2-10 16:38 编辑

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 238, 201, 314, 131)
GUICtrlCreateInput("454222545242", 40, 40, 121, 21)
$Button1 = GUICtrlCreateButton("←", 72, 112, 75, 25)
GUICtrlSetFont(-1, 25, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                 Case $Button1
  EndSwitch
WEnd

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?加入

x
发表于 2018-2-9 13:16:45 | 显示全部楼层
回复 1# qsy666888


    是要撤销一行还是撤销一个字节?  
一行的话直接设置为空就好了,如果是撤销一个字节,先读取数据,然后删掉一个字节,然后再设置上~
发表于 2018-2-9 13:22:40 | 显示全部楼层
清空的话直接修改为空
  1. #include <ButtonConstants.au3>
  2. #include <EditConstants.au3>
  3. #include <GUIConstantsEx.au3>
  4. #include <WindowsConstants.au3>
  5. #Region ### START Koda GUI section ### Form=
  6. $Form1 = GUICreate("Form1", 238, 201, 314, 131)
  7. $Input = GUICtrlCreateInput("454222545242", 40, 40, 121, 21)
  8. $Button1 = GUICtrlCreateButton("←", 72, 112, 75, 25)
  9. GUICtrlSetFont(-1, 25, 400, 0, "MS Sans Serif")
  10. GUISetState(@SW_SHOW)
  11. #EndRegion ### END Koda GUI section ###

  12. While 1
  13.         $nMsg = GUIGetMsg()
  14.         Switch $nMsg
  15.                 Case $GUI_EVENT_CLOSE
  16.                         Exit
  17.                 Case $Button1
  18.                         GUICtrlSetData($Input, "")
  19.         EndSwitch
  20. WEnd
复制代码
发表于 2018-2-9 13:28:13 | 显示全部楼层
删除右起一个字节写法:

  1. #include <ButtonConstants.au3>
  2. #include <EditConstants.au3>
  3. #include <GUIConstantsEx.au3>
  4. #include <WindowsConstants.au3>
  5. #Region ### START Koda GUI section ### Form=
  6. $Form1 = GUICreate("Form1", 238, 201, 314, 131)
  7. $Input = GUICtrlCreateInput("454222545242", 40, 40, 121, 21)
  8. $Button1 = GUICtrlCreateButton("←", 72, 112, 75, 25)
  9. GUICtrlSetFont(-1, 25, 400, 0, "MS Sans Serif")
  10. GUISetState(@SW_SHOW)
  11. #EndRegion ### END Koda GUI section ###

  12. While 1
  13.         $nMsg = GUIGetMsg()
  14.         Switch $nMsg
  15.                 Case $GUI_EVENT_CLOSE
  16.                         Exit
  17.                 Case $Button1
  18.                         Local $Read = GUICtrlRead($Input)
  19.                         Local $sString = StringTrimRight($Read, 1) ; 删除字符串右起 1个字符.
  20.                         GUICtrlSetData($Input, $sString)
  21.         EndSwitch
  22. WEnd
复制代码
 楼主| 发表于 2018-2-9 14:41:03 | 显示全部楼层
回复 4# xzf680

谢谢大侠,平时没有怎么练,有的基本搞忘了
发表于 2018-2-14 11:52:29 | 显示全部楼层
xzf680正解,其实就是输入框内字符的增减而已
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|小黑屋|手机版|AUTOIT CN ( 鲁ICP备15028933号-3 )谷歌 百度

GMT+8, 2018-8-16 00:19 , Processed in 0.089184 second(s), 15 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表