jsTree e jQuery

Pesquisar este blog

Contribua

Te ajudei? Quer retribuir? PIX de qualquer quantia.

Autohotkey v2 - Exemplo de GUI

 #Requires Autohotkey v2
#SingleInstance Force ; Replace with new instance if script is running

;AutoGUI 2.5.8
;Auto-GUI-v2 credit to Alguimist autohotkey.com/boards/viewtopic.php?f=64&t=89901
;AHKv2converter credit to github.com/mmikeww/AHK-v2-script-converter

mainGUI := Gui()
mainGUI.Title := "Automação Data Modeler"
executarButton := mainGUI.Add("Button", "x456 y56 w80 h23", "&Executar")
executarButton.OnEvent("Click", (*) => executarButton_Click())

mainGUI.SetFont("s10 w600", "Georgia")
mainGUI.Add("Text", "x16 y16 w102 h24 +0x200", "Arquivo .sql:")

caminhoEdit := mainGUI.Add("Edit", "x131 y16 w405 h24")
caminhoEdit.SetFont("s10 w200", "Arial")
mainGUI.OnEvent('Close', (*) => ExitApp())
mainGUI.Show("w620 h118")

executarButton_Click(){
    ;GuiControlGet caminho, caminhoEdit, mainGUI
    caminho := caminhoEdit.Value

    ; ---------------------------
    ; Remove as aspas duplas do
    ; início e do fim da string
    ; ---------------------------
    ; Verifica se a string começa e termina com aspas duplas
    comeco_string := (SubStr(caminhoEdit.Value, 1, 1) = "`"")
    fim_string := (SubStr(caminhoEdit.Value, -1) = "`"")
    if (comeco_string && fim_string) {
        caminho := SubStr(caminhoEdit.Value, 2, StrLen(caminhoEdit.Value) - 2)
    } ; end if

    if (!FileExist(caminho)) {
        MsgBox "Arquivo '" caminho "' não encontrado."
    } ; end if
} ; end function

;mainGUIEscape:

;mainGUIClose:
;ExitApp()






Nenhum comentário:

Postar um comentário