返回列表 发帖

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

本帖最后由 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
附件: 您需要登录才可以下载或查看附件。没有帐号?加入

回复 1# qsy666888


    是要撤销一行还是撤销一个字节?  
一行的话直接设置为空就好了,如果是撤销一个字节,先读取数据,然后删掉一个字节,然后再设置上~

TOP

清空的话直接修改为空
  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. #EndRegion ### END Koda GUI section ###

  11.  


  12.         $nMsg = GUIGetMsg()

  13.         Switch $nMsg

  14.                 Case $GUI_EVENT_CLOSE

  15.                         Exit

  16.                 Case $Button1

  17.                         GUICtrlSetData($Input, "")

  18.         EndSwitch


复制代码 高亮切换

TOP

删除右起一个字节写法:

  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. #EndRegion ### END Koda GUI section ###

  11.  


  12.         $nMsg = GUIGetMsg()

  13.         Switch $nMsg

  14.                 Case $GUI_EVENT_CLOSE

  15.                         Exit

  16.                 Case $Button1

  17.                         Local $Read = GUICtrlRead($Input)

  18.                         Local $sString = StringTrimRight($Read, 1) ; 删除字符串右起 1个字符.

  19.                         GUICtrlSetData($Input, $sString)

  20.         EndSwitch


复制代码 高亮切换

TOP

回复 4# xzf680

谢谢大侠,平时没有怎么练,有的基本搞忘了

TOP

xzf680正解,其实就是输入框内字符的增减而已

TOP

返回列表