คลิกเข้าบล็อก PSsix
บ้าน
สมัครสมาชิก(Register)
เข้าสู่ระบบ(Log in)
เอาโค๊ดดัดแปลงจาก [You must be registered and logged in to see this link.]
- Code:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("กลับหลังไปหน้า", 348, 286, 687, 195)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 329, 121)
$Edit2 = GUICtrlCreateEdit("", 8, 152, 329, 113)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)
Global $textedit,$edittext,$textreverse
While 1
Sleep(10)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
$textreverse =""
$edittext = GUICtrlRead($Edit1)
if $edittext <> $textedit then
For $i = StringLen($edittext) To 1 Step -1
$textreverse &= StringMid( $edittext , $i, 1)
Next
GUICtrlSetData( $Edit2,$textreverse)
$textedit =$edittext
EndIf
WEnd
