Что нового

[Окна, Диалоги] Зависает проект

Nihil

Новичок
Сообщения
2
Репутация
0
Всем привет!
Добавил два лейбла и два едита, после закрытия программы - стала зависать в процессах. Подскажите в чем проблема? Я в 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
.
.
.
 

Astel064

Помог мой пост, ставь +!
Сообщения
276
Репутация
51
Сделай так, при закрытии:
Код:
GUIDelete ( $hGui )



Добавлено:
Сообщение автоматически объединено:

Т.е. у тебя получится так:
Код:
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
.
.
.
 
Автор
N

Nihil

Новичок
Сообщения
2
Репутация
0
Astel спасибо за помощь! Я писал такой вариант GUIDelete ( $hGui ) только без Exit - тоже зависало. Еще раз спасибо.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
Nihil,
Попробуйте добавить
Код:
;...
If $msg = -3 Then
	_GUICtrlRichEdit_Destroy($InFirstDate)
	GUIDelete($hGui)
	Exit
EndIf
;...
См. в справке
Код:
_GUICtrlRichEdit_Create()
 
Верх