Автор Тема: [Окна, Диалоги] Зависает проект  (Прочитано 2419 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Nihil [?]

  • Новичок
  • *
  • Сообщений: 2
  • Репутация: 0
  • Пол: Мужской
    • Награды
Всем привет!
Добавил два лейбла и два едита, после закрытия программы - стала зависать в процессах. Подскажите в чем проблема? Я в autoit новичок.
Спасибо.
Код: AutoIt [Выделить]
Opt("TrayIconHide", 1)          ;0=show, 1=hide tray icon

#include <GuiConstantsEx.au3>
#include <GuiButton.au3>
#include <AVIConstants.au3>
#include <TreeViewConstants.au3>
#Include <Date.au3>
#Include <GuiDateTimePicker.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <GuiRichEdit.au3>
#include "Resources\resources.au3"
#include <Array.au3>
#include <Excel.au3>

Global $oExcel
Global $cn
Global $rs
Global $IsConneted
Global $arrt
Global $InFirstDate
Global $InLastDate

_Main()

Func _Main()
$hGui = GUICreate("GO",318,200,100,50)
GuiSetIcon("Resources\honda_icon.ico", 0)

GuiCtrlCreateLabel("Начальная дата", 30, 50)
$InFirstDate = _GUICtrlRichEdit_Create($hGui, "", 130, 50, 150, 30)
$InFirstDate_default="Вставте дату в формате" & @CRLF & "01.01.2001"
_GuiCtrlRichEdit_SetText($InFirstDate, $InFirstDate_default)
_GuiCtrlRichEdit_SetCharColor($InFirstDate, Dec(808080))

GuiCtrlCreateLabel("Конечная дата", 30, 110)
$InLastDate = _GUICtrlRichEdit_Create($hGui, "", 130, 110, 150, 30)
$InLastDate_default="Вставте дату в формате" & @CRLF & "01.01.2001"
_GuiCtrlRichEdit_SetText($InLastDate, $InLastDate_default)
_GuiCtrlRichEdit_SetCharColor($InLastDate, Dec(808080))

$otch = GUICtrlCreateButton("Excel отчет",50,150,200,39)

GuiSetState()
while 1
    $msg = GuiGetMsg()
    If $msg=-3 Then Exit
    If $msg = $otch Then
        ConsoleWrite("Отчет" & @LF)
        ;GetData()
    EndIf
WEnd

EndFunc
.
.
.
 


Русское сообщество AutoIt

[Окна, Диалоги] Зависает проект
« Отправлен: Январь 29, 2014, 19:56:12 »

Оффлайн Astel064 [?]

  • Осваивающий
  • **
  • Сообщений: 264
  • Репутация: 44
  • Пол: Мужской
  • Помог мой пост, ставь +!
    • Astel064
    • Награды
  • Версия AutoIt: 3.3.6.1
Re: [Окна, Диалоги] Зависает проект
« Ответ #1, Отправлен: Январь 30, 2014, 08:21:44 »
Сделай так, при закрытии:
Код: AutoIt [Выделить]
GUIDelete ( $hGui )



Добавлено: Январь 30, 2014, 08:24:57
Т.е. у тебя получится так:
Код: AutoIt [Выделить]
Opt("TrayIconHide", 1)          ;0=show, 1=hide tray icon

#include <GuiConstantsEx.au3>
#include <GuiButton.au3>
#include <AVIConstants.au3>
#include <TreeViewConstants.au3>
#Include <Date.au3>
#Include <GuiDateTimePicker.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <GuiRichEdit.au3>
#include "Resources\resources.au3"
#include <Array.au3>
#include <Excel.au3>

Global $oExcel
Global $cn
Global $rs
Global $IsConneted
Global $arrt
Global $InFirstDate
Global $InLastDate

_Main()

Func _Main()
$hGui = GUICreate("GO",318,200,100,50)
GuiSetIcon("Resources\honda_icon.ico", 0)

GuiCtrlCreateLabel("Начальная дата", 30, 50)
$InFirstDate = _GUICtrlRichEdit_Create($hGui, "", 130, 50, 150, 30)
$InFirstDate_default="Вставте дату в формате" & @CRLF & "01.01.2001"
_GuiCtrlRichEdit_SetText($InFirstDate, $InFirstDate_default)
_GuiCtrlRichEdit_SetCharColor($InFirstDate, Dec(808080))

GuiCtrlCreateLabel("Конечная дата", 30, 110)
$InLastDate = _GUICtrlRichEdit_Create($hGui, "", 130, 110, 150, 30)
$InLastDate_default="Вставте дату в формате" & @CRLF & "01.01.2001"
_GuiCtrlRichEdit_SetText($InLastDate, $InLastDate_default)
_GuiCtrlRichEdit_SetCharColor($InLastDate, Dec(808080))

$otch = GUICtrlCreateButton("Excel отчет",50,150,200,39)

GuiSetState()
while 1
    $msg = GuiGetMsg()
    If $msg=-3 Then
        GUIDelete ( $hGui )
        Exit
    EndIF
    If $msg = $otch Then
        ConsoleWrite("Отчет" & @LF)
        ;GetData()
    EndIf
WEnd

EndFunc
.
.
.
 


 


Оффлайн Nihil [?]

  • Новичок
  • *
  • Сообщений: 2

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
    • Награды
Re: [Окна, Диалоги] Зависает проект
« Ответ #2, Отправлен: Январь 30, 2014, 11:41:19 »
Astel спасибо за помощь! Я писал такой вариант GUIDelete ( $hGui ) только без Exit - тоже зависало. Еще раз спасибо.

Русское сообщество AutoIt

Re: [Окна, Диалоги] Зависает проект
« Ответ #2 Отправлен: Январь 30, 2014, 11:41:19 »

Оффлайн Astel064 [?]

  • Осваивающий
  • **
  • Сообщений: 264
  • Репутация: 44
  • Пол: Мужской
  • Помог мой пост, ставь +!
    • Astel064
    • Награды
  • Версия AutoIt: 3.3.6.1
Re: [Окна, Диалоги] Зависает проект
« Ответ #3, Отправлен: Январь 30, 2014, 23:59:49 »
Не за что :)

Оффлайн madmasles [?]

  • Глобальный модератор
  • *
  • Сообщений: 7790
  • Репутация: 2317
  • Пол: Мужской
  • Награды За модерирование форума
    • Награды
  • Версия AutoIt: 3.3.x.x
Re: [Окна, Диалоги] Зависает проект
« Ответ #4, Отправлен: Январь 31, 2014, 09:11:23 »
Nihil,
Попробуйте добавить
Код: AutoIt [Выделить]
;...
If $msg = -3 Then
    _GUICtrlRichEdit_Destroy($InFirstDate)
    GUIDelete($hGui)
    Exit
EndIf
;...

См. в справке
Код: AutoIt [Выделить]

Русское сообщество AutoIt

Re: [Окна, Диалоги] Зависает проект
« Ответ #4 Отправлен: Январь 31, 2014, 09:11:23 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
8 Ответов
7752 Просмотров
Последний ответ Февраль 25, 2011, 23:18:54
от Yashied
25 Ответов
13065 Просмотров
Последний ответ Апрель 26, 2010, 12:03:17
от bulldog5293
7 Ответов
6356 Просмотров
Последний ответ Август 21, 2010, 18:47:36
от madmasles
9 Ответов
3197 Просмотров
Последний ответ Ноябрь 08, 2014, 23:15:20
от Skif_off
9 Ответов
26064 Просмотров
Последний ответ Декабрь 20, 2016, 21:04:47
от CreatoR
3 Ответов
4798 Просмотров
Последний ответ Октябрь 25, 2012, 09:27:24
от pekich
12 Ответов
4404 Просмотров
Последний ответ Май 18, 2013, 01:47:02
от Vova93
0 Ответов
1405 Просмотров
Последний ответ Январь 04, 2014, 14:58:45
от madmasles
6 Ответов
2876 Просмотров
Последний ответ Январь 18, 2014, 14:46:01
от InnI
0 Ответов
1041 Просмотров
Последний ответ Июнь 10, 2014, 08:06:32
от Михаил