Sign in to follow this  
Followers 0
Guest InuTracy

Scrolling Editbox? O.o

2 posts in this topic

#1 ·  Posted (edited)

Well, i'm trying to make my editbox scroll for my chat log. Here's the code, if you can is there also another way to make it so you can't edit the contents? It's like a chat room but you can delete and type stuff into the edit box. X_x Don't worry I have it delete the Chatlog.txt when the program closes.

$ChatBox = GUICtrlCreateEdit ("", 5, 100,550,400,$ES_AUTOVSCROLL+$WS_VSCROLL)

_FileCreate ("ChatLog.txt")

Main()

Func Main()

                 While $Start=1

                              While $continue=1

                                          $Test = BYONDGetLine($WindowName)

                                          If $Test="0" Then

                                          Else

                                                      $FILE=FileOpen("Chatlog.txt",1)

                                                      FileWriteLine($FILE, ""&$Test&"")

                                                      FileClose($file)

                                                      $Chatzor = FileRead("ChatLog.txt", FileGetSize("ChatLog.txt"))

                                                      GuiCtrlSetData($Chatbox, $Chatzor)

                                                      Bot($Test)

                                          EndIf

                             WEnd

                 WEnd

EndFunc

Edited by InuTracy

Share this post


Link to post
Share on other sites



Well, on another note. How can I make some kind of box or something with a chat log. Each line is retrieved with ByondGetLine($WindowName) as it is said, aka while 1. Can someone help me with that instead of my idea?

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0