Что нового

Добавить картинку в exe

Stalevar

Новичок
Сообщения
31
Репутация
0
Не получается добавить картинку в exe
Код:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****

;#AutoIt3Wrapper_Res_File_Add=1.bmp, 2, 200
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****





; -- Created with ISN Form Studio 2 for ISN AutoIt Studio -- ;
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiButton.au3>
#include <Excel.au3>
#Include <WinAPIEx.au3>
;#Include <Icons.au3>


$VSV = GUICreate("VSV",378,382,-1,-1,-1,-1)
$BGimage = GUICtrlCreatePic("C:\xxx\картинка\пример\1.bmp",0,0,378,382,$WS_CLIPSIBLINGS)


guictrlsetstate(-1,$GUI_DISABLE)
$kakoc = GUICtrlCreateButton("кАКОС",138,30,100,30,-1,$WS_EX_STATICEDGE)
GUICtrlSetState(-1,BitOr($GUI_SHOW,$GUI_ENABLE,$GUI_FOCUS))
GUICtrlSetFont(-1,12,700,2,"Arial")
$otchet = GUICtrlCreateButton("Отчет кАКОС",120,78,136,30,BitOr($BS_DEFPUSHBUTTON,$BS_MULTILINE,$WS_BORDER),$WS_EX_STATICEDGE)
GUICtrlSetState(-1,BitOr($GUI_SHOW,$GUI_ENABLE,$GUI_FOCUS))
GUICtrlSetFont(-1,12,700,2,"Arial")
$poisk = GUICtrlCreateButton("Поиск Документов",98,126,180,30,BitOr($BS_CENTER,$BS_DEFPUSHBUTTON,$BS_MULTILINE,$WS_BORDER),$WS_EX_STATICEDGE)
GUICtrlSetState(-1,BitOr($GUI_SHOW,$GUI_ENABLE,$GUI_FOCUS))
GUICtrlSetFont(-1,12,700,2,"Arial")
GUISetState(@SW_SHOW,$VSV)





While 1

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

Sleep(1000)
	EndSwitch

WEnd
 
Автор
S

Stalevar

Новичок
Сообщения
31
Репутация
0
И это не работает
Код:
#Region
#AutoIt3Wrapper_Res_File_Add=CrashXP.bmp, 2, 200
#EndRegion

#Include <Icons.au3>
#Include <WinAPIEx.au3>

GUICreate("MyProg", 640, 480)
$Pic = GUICtrlCreatePic("", 0, 0, 640, 480)
$hInstance = _WinAPI_GetModuleHandle(0)
$hBitmap = _WinAPI_LoadBitmap($hInstance, 200)
_SetHImage($Pic, $hBitmap)
_WinAPI_DeleteObject($hBitmap)
GUISetState()

Do
Until GUIGetMsg() = -3


картинка в одной папке, компилирую и в итоге пустое окно. :(
 
A

Alofa

Гость
Stalevar сказал(а):
... компилирую и в итоге пустое окно. :(
Если в редакторе SciTE при Ctrl+F5 ошибок нет, тогда скомпилируйте из эксплорера: на .au3 файле скрипта правая кнопка мыши -> Compile.

Какой SciTE пользуетесь и версией Autoit?


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

Alofa сказал(а):
Если в редакторе SciTE при Ctrl+F5 ошибок нет
По видимому Есть.
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
Конечно есть. Эту переменную прописываем в начале Icons.au3 глобальной и ровняем нулю
 
Автор
S

Stalevar

Новичок
Сообщения
31
Репутация
0
Теперь не получается картинку ico на кнопку в exe за компилировать
Код:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=4.ico


#AutoIt3Wrapper_Res_File_Add=3.ico, 2, 203
#AutoIt3Wrapper_Res_File_Add=4.ico, 2, 204

#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****


#include <ButtonConstants.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiButton.au3>
#include <EditConstants.au3>
#include <ListBoxConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <FileOperations.au3>
#Include <RecFileListToArray.au3>
#include <GuiImageList.au3>
#Include <Icons.au3>

$1=GUICreate("Поиск",594,697,-1,-1,-1,-1)
GUISetBkColor(0xC0C0C0,$1)
$sPath=""
$papka=GUICtrlCreateInput($sPath,10,8,534,26,-1,$WS_EX_CLIENTEDGE)
$forma1 =GUICtrlCreateInput("",10,44,534,28,-1,$WS_EX_CLIENTEDGE)
$put = GUICtrlCreateButton("",548,4,38,33, $BS_ICON)
$Pic=GUICtrlSetImage("", 0,0)
GUICtrlSetImage(-1, "3.ico")
$spisok=GUICtrlCreatelist("",10,112,573,565,-1,$WS_EX_CLIENTEDGE)
$poisk = GUICtrlCreateButton("",548,41,38,33,$BS_ICON)
GUICtrlSetImage(-1, "4.ico")
GUISetState(@SW_SHOW,$1)
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
                      While 1
         Sleep(100)
        WEnd
 EndSwitch
WEnd
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
первая ошибка - значение ресурса ico не двойка , а тройка
так правильно:
Код:
#AutoIt3Wrapper_Res_File_Add=3.ico, 3, 203
#AutoIt3Wrapper_Res_File_Add=4.ico, 3, 204


вторая ошибка - ты не правильно используешь функцию GUICtrlSetImage, пытаясь установить эти иконки на кнопки. Внимательно читай справку
далее, видим, что ты присвоил им имена 203 и 204. вот эти имена и нужно использовать
правильный вариант:
Код:
GUICtrlSetImage(-1, @ScriptFullPath,203)
;..............................
GUICtrlSetImage(-1, @ScriptFullPath,204)
 
Верх