Sign in to follow this  
Followers 0
ashley

Open Func

14 posts in this topic

where is the open func in the help file...

or can some one post it...

It can only open .TXT files

Plz

And does anybosy know how to make my own saved file type...

For excample... KODA saved files are .kfx...

I want one to be .TYP

Share this post


Link to post
Share on other sites



these are functions, look for them in the helpfile

i have look at my script

;~# includes
#include <GUIConstants.au3>
#include <file.au3>

;~# includes end


;~# hotkeys
HotKeySet("^s", "save")
HotKeySet("^o", "open")
HotKeySet("^p", "print")
Hotkeyset("^l", "linecount")
;~# hotkeys end





#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("TypePad-  By Ashley", 633, 447, 206, 117)
GUISetCursor (0)
GUISetFont(8, 400, 0, "Arial Black")
GUISetBkColor(0x0000FF)
$edit = GUICtrlCreateEdit("", 8, 8, 617, 409)
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("To open a file press Ctrl + O", 152, 424, 181, 19, BitOR($SS_CENTER,$WS_BORDER), $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0xFF0000)
$Label3 = GUICtrlCreateLabel("To print a file press Crtl + P", 336, 424, 172, 19, $WS_BORDER, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0xFF0000)
$Label1 = GUICtrlCreateLabel("To save press Ctrl + S", 3, 425, 146, 19, BitOR($SS_CENTER,$WS_BORDER), $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0xFF0000)
$Label4 = GUICtrlCreateLabel("Typepad By Ashley", 512, 424, 119, 19, BitOR($SS_SUNKEN,$WS_BORDER))
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd



Func Save()
    

FileSaveDialog("Save", "", "TypePad- files  (*.TYP)", 1) 

    
EndFunc


Func Open()
    
FileOpenDialog("Open", "", "TypePad- files  (*.TYP)", 1))

EndFunc

Func print()
    $file = FileOpenDialog("Print File", "", "TypePad- files (*.TYP)", 1)
If @error Then Exit

$print = _FilePrint($file)
If $print Then
    MsgBox(0, "Print", "The file was sent to the printer.")
Else
    MsgBox(0, "Print", "Error: " & @error & @CRLF & "The file was not sent to printer.")
EndIf   
EndFunc


Func linecount()
$CountLines = _FileCountLines("TypePad.au3")
MsgBox(64, "Lines in file", "There are " & $CountLines & " in this file")

EndFunc

Can you fix the bugs...

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

are these the files or is that wot i put in script

Be easy on me im am NOOB

Remember you were one too

No excuses accepted, you have to know how to use the help.

Edited by martin

Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

Share this post


Link to post
Share on other sites

No excuses accepted, you have to know how to use the help.

i do...

Look at my post before your post...

Share this post


Link to post
Share on other sites

i do...

Look at my post before your post...

OK, that post wasn't there when I wrote my post.

The only problem I can see with your code is an extra closing bracket at the end of FileOpenDialog.


Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

Share this post


Link to post
Share on other sites

OK, that post wasn't there when I wrote my post.

The only problem I can see with your code is an extra closing bracket at the end of FileOpenDialog.

lol i was must of pressed

add reply just before you did...

anyways i fixed that...

here is script now

;~# includes
#include <GUIConstants.au3>
#include <file.au3>

;~# includes end


;~# hotkeys
HotKeySet("{esc}", "close") 
HotKeySet("^s", "save")
HotKeySet("^o", "open")
HotKeySet("^p", "print")
Hotkeyset("^l", "linecount") 
;~# hotkeys end





#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("TypePad-  By Ashley", 633, 447, 206, 117)
WinSetOnTop("TypePad-  By Ashley","",1)
GUISetCursor (0)
GUISetFont(8, 400, 0, "Arial Black")
GUISetBkColor(0x0000FF)
$edit = GUICtrlCreateEdit("", 8, 8, 617, 409)
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("To open a file press Ctrl + O", 152, 424, 181, 19, BitOR($SS_CENTER,$WS_BORDER), $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0xFF0000)
$Label3 = GUICtrlCreateLabel("To print a file press Crtl + P", 336, 424, 172, 19, $WS_BORDER, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0xFF0000)
$Label1 = GUICtrlCreateLabel("To save press Ctrl + S", 3, 425, 146, 19, BitOR($SS_CENTER,$WS_BORDER), $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0xFF0000)
$Label4 = GUICtrlCreateLabel("Typepad By Ashley", 512, 424, 119, 19, BitOR($SS_SUNKEN,$WS_BORDER))
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd



Func Save()
    

FileSaveDialog("Save", "", "TypePad- files  (*.TYP)", 1) 

    
EndFunc


Func Open()
    
FileOpenDialog("Open", "", "TypePad- files  (*.TYP)", 1)

EndFunc

Func print()
    $file = FileOpenDialog("Print File", "", "TypePad- files (*.TYP)", 1)
If @error Then Exit

$print = _FilePrint($file)
If $print Then
    MsgBox(0, "Print", "The file was sent to the printer.")
Else
    MsgBox(0, "Print", "Error: " & @error & @CRLF & "The file was not sent to printer.")
EndIf   
EndFunc


Func linecount()
$CountLines = _FileCountLines("TypePad.au3")
MsgBox(64, "Lines in file", "There are " & $CountLines & " in this file")
endFunc

Func close()
    Exit
EndFunc

Is there any way to minamzie normaly with the button but if they press Ctrl + M it minamizes to the tray...

Thanks in advance

Share this post


Link to post
Share on other sites

lol i was must of pressed

add reply just before you did...

anyways i fixed that...

here is script now

;~# includes
#include <GUIConstants.au3>
#include <file.au3>

;~# includes end
;~# hotkeys
HotKeySet("{esc}", "close") 
HotKeySet("^s", "save")
HotKeySet("^o", "open")
HotKeySet("^p", "print")
Hotkeyset("^l", "linecount") 
;~# hotkeys end
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("TypePad-  By Ashley", 633, 447, 206, 117)
WinSetOnTop("TypePad-  By Ashley","",1)
GUISetCursor (0)
GUISetFont(8, 400, 0, "Arial Black")
GUISetBkColor(0x0000FF)
$edit = GUICtrlCreateEdit("", 8, 8, 617, 409)
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("To open a file press Ctrl + O", 152, 424, 181, 19, BitOR($SS_CENTER,$WS_BORDER), $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0xFF0000)
$Label3 = GUICtrlCreateLabel("To print a file press Crtl + P", 336, 424, 172, 19, $WS_BORDER, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0xFF0000)
$Label1 = GUICtrlCreateLabel("To save press Ctrl + S", 3, 425, 146, 19, BitOR($SS_CENTER,$WS_BORDER), $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0xFF0000)
$Label4 = GUICtrlCreateLabel("Typepad By Ashley", 512, 424, 119, 19, BitOR($SS_SUNKEN,$WS_BORDER))
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd
Func Save()
    

FileSaveDialog("Save", "", "TypePad- files  (*.TYP)", 1) 

    
EndFunc
Func Open()
    
FileOpenDialog("Open", "", "TypePad- files  (*.TYP)", 1)

EndFunc

Func print()
    $file = FileOpenDialog("Print File", "", "TypePad- files (*.TYP)", 1)
If @error Then Exit

$print = _FilePrint($file)
If $print Then
    MsgBox(0, "Print", "The file was sent to the printer.")
Else
    MsgBox(0, "Print", "Error: " & @error & @CRLF & "The file was not sent to printer.")
EndIf   
EndFunc
Func linecount()
$CountLines = _FileCountLines("TypePad.au3")
MsgBox(64, "Lines in file", "There are " & $CountLines & " in this file")
endFunc

Func close()
    Exit
EndFunc

Is there any way to minamzie normaly with the button but if they press Ctrl + M it minamizes to the tray...

Thanks in advance

There is a minimize to tray script in my sig below. For the Ctrl + M look at HotKeySet() in the help file

Share this post


Link to post
Share on other sites

There is a minimize to tray script in my sig below. For the Ctrl + M look at HotKeySet() in the help file

look im new can u right the minamize bit for me i know how to do hotkeys

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