วิธีใส่ข้อความในช่อง Edit แบบตัดบรรทัด

โดยปกติเมื่อคุณใส่ข้อความเข้าไปในช่อง Edit ของ GUI ข้อความจะไหลไปเรื่อยๆ โค้ดด้านล่างนี้จะเป็นคำสั่งสำหรับการตรวจและตัดข้อความ ให้ช่อง Edit แสดงข้อความตามจำนวนบรรทัดที่กำหนด โดยการพิมพ์ข้อความเข้าไปในฟังก์ชัน Addmsg("ข้อความที่ต้องการให้แสดงในช่อง Edit")

ปล. เที่ยวสงกรานต์ให้สนุกนะครับ

Code:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3> ;ใส่เพิ่มเข้าไป

Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 431, 272, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")
$Edit1 = GUICtrlCreateEdit("", 8, 8, 297, 201, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetOnEvent(-1, "Edit1Change")
$Button1 = GUICtrlCreateButton("test", 328, 8, 75, 25)
GUICtrlSetOnEvent(-1, "Button1Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   Sleep(100)
WEnd


Func Addmsg($text)
   GUICtrlSetData($Edit1, @HOUR&":"&@MIN&":"&@SEC&": " & $text & @CRLF & GUICtrlRead($Edit1))
   While _GUICtrlEdit_GetLine($Edit1, 14) ; เลข 14 คือจำนวนบรรทัดในช่อง Edit ที่ต้องการให้ตัดทิ้ง หลังแสดงข้อความถึงบรรทัดที่กำหนด
      GUICtrlSetData($Edit1,StringTrimRight(GUICtrlRead($Edit1), _GUICtrlEdit_LineLength($Edit1, 14) + 1))
   WEnd
EndFunc



Func Button1Click()

Addmsg("แสดงข้อความ")
Sleep(1000)
Addmsg("เปลี่ยนข้อความที่ต้องการให้แสดง")
Sleep(1000)
Addmsg("การแสดงข้อความ")
Sleep(1000)
for $i = 1 to 20
Addmsg("ทดสอบ"&$i)
Sleep(500)
Next
EndFunc
Func Edit1Change()

EndFunc
Func Form1Close()
exit
EndFunc
Func Form1Maximize()

EndFunc
Func Form1Minimize()

EndFunc
Func Form1Restore()

EndFunc


^^x ขอบคุณครับ เที่ยวสงกรานต์ให้สนุกเช่นกันค๊าฟฟฟ

เที่ยวสงกรานต์ให้สนุกเช่นกันครับ

ขอบคุณครับ สงกรานต์ นี้เที่ยวกันให้สนุกกันนะครับ อิอิ