Sign in to follow this  
Followers 0
keen

Deltron

3 posts in this topic

It a simple beta text editor:

#include <GUIConstants.au3>
#include <IE.au3>


$user = InputBox ("User" , "Please enter user:")
$Form1 = GUICreate("Deltron", 969, 744, 198, 124)
$Group1 = GUICtrlCreateGroup("Options", 232, 40, 457, 73)

$Button1 = GUICtrlCreateButton("New Document", 248, 72, 105, 25)
$SaveAs = GUICtrlCreateButton("Save", 408, 72, 105, 25)
$Open = GUICtrlCreateButton("Open", 568, 72, 105, 25)
GUICtrlCreateLabel("Logged in as: " & $user, 744, 8, 213, 20)
GUICtrlCreateLabel("Search:", 16, 8, 50, 20)
$Input1 = GUICtrlCreateInput("", 72, 8, 177, 24, -1, $WS_EX_CLIENTEDGE)
$Button4 = GUICtrlCreateButton("Go", 256, 8, 33, 25)
GUISetState(@SW_SHOW)


$Tab1 = GUICtrlCreateTab(24, 144, 921, 569)
GUICtrlCreateTabItem("Document One")
$Edit1 = GUICtrlCreateEdit("", 40, 175, 889, 520, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetData($Edit1, "")
GUICtrlCreateTabItem("Document Two")
$Edit1 = GUICtrlCreateEdit("", 40, 175, 889, 520, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetData($Edit1, "")
GUICtrlCreateTabItem("Document Three")
$Edit1 = GUICtrlCreateEdit("", 40, 175, 889, 520, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetData($Edit1, "")
GUICtrlCreateTabItem("Document Four")
$Edit1 = GUICtrlCreateEdit("", 40, 175, 889, 520, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetData($Edit1, "")
GUICtrlCreateTabItem("Document Five")
$Edit1 = GUICtrlCreateEdit("", 40, 175, 889, 520, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetData($Edit1, "")
GUICtrlCreateTabItem("Document Six")
$Edit1 = GUICtrlCreateEdit("", 40, 175, 889, 520, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetData($Edit1, "")
GUICtrlCreateTabItem("Document Seven")
$Edit1 = GUICtrlCreateEdit("", 40, 175, 889, 520, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetData($Edit1, "")
GUICtrlCreateTabItem("Document Eight")
$Edit1 = GUICtrlCreateEdit("", 40, 175, 889, 520, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetData($Edit1, "")


While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
        
    Case $msg = $Button1
        GUICtrlSetData ($Edit1, "")
    Case $msg = $Button4
        $oIE = _IECreate ("http://www.google.com/search?hl=en&q="&$Input1)  
    Case $msg = $Open
            GUICtrlSetData($Edit1,Fileread(FileOpenDialog("Select a file to open",@ScriptDir, "All Files (*.*)")))
            If @error Then Exit
    Case $msg = $SaveAs
            $SaveDir = FileSaveDialog("Where would you like to save?",@MyDocumentsDir,"Text Document(*.txt)|Deltron Document (*.dtn)",16)
            If @error Then Exit
        

    EndSelect
WEnd
Exit

[center]Kesne's Bar & Grill[/center]

Share this post


Link to post
Share on other sites



Any comments?


[center]Kesne's Bar & Grill[/center]

Share this post


Link to post
Share on other sites

it doesnt save the file buddy plus it doesnt read files in document one only in document 8 need to work on it a lil bit more you thats a good headstart if you are a begginer . file save dialog will only choose the place to save it meaning it will only giv you the path of the place the user chose , it wont save it , for that you need filesave or filecreate

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