Что нового

Отображение загруженной картинки на форме.

astati

Новичок
Сообщения
145
Репутация
4
Хай!
Вроде все легко, но что-то не хочет работать.

Есть форма после ряда команд. Скачиваются три картинки. После нажатия на кнопку необходимо их отобразить каждую в своем Pic.

Код:
...
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Image.bmp", 8, 128, 75, 51)
$Pic2 = GUICtrlCreatePic(@ScriptDir & "\Image2.bmp", 80, 128, 75, 51)
$Pic3 = GUICtrlCreatePic(@ScriptDir & "\Image3.bmp", 152, 128, 75, 51)
GUISetState(@SW_SHOW)
...

$sURL = "http://XXXXXXXXXXXX"
InetGet($sURL, @ScriptDir & '\Image.bmp')

if $msg = $Button2 Then

GUICtrlSetImage($Pic1, $sURL)
GUICtrlSetImage($Pic2, $sURLt)
GUICtrlSetImage($Pic3, $sURLy)

EndIf

Пробовал примеры приведенные в других темах, но чета привязать не смог. Splash -ом не надо. Хочется в этой же форме, а не в отдельной.
 

Medic84

Омега
Команда форума
Администратор
Сообщения
1 575
Репутация
335
Код:
GUICtrlSetImage($Pic1,  @ScriptDir & '\Image.bmp')
GUICtrlSetImage($Pic2,  @ScriptDir & '\Image.bmp')
GUICtrlSetImage($Pic3,  @ScriptDir & '\Image.bmp')


Должны быть вставлены не URL'ы а пути скачанных картинок
 
Автор
A

astati

Новичок
Сообщения
145
Репутация
4
Ошибка и вправду глупая.
Но картинки не отображаются. Только после перезапуска. :(
 

Viktor1703

AutoIT Гуру
Сообщения
1 535
Репутация
411
Код:
#Include <GUIConstantsEx.au3>
#Include <WindowsConstants.au3>

$hForm = GUICreate('', 200, 200)
$iPic = GUICtrlCreatePic('', 0, 0, 200, 180)
$iButton = GUICtrlCreateButton("Скачать", 0, 180, 200, 20)
GUISetState()

While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
		Case $iButton
			If InetGet("http://ruseller.com/lessons/les1351/mini.jpg", @ScriptDir & "\1.jpg", 1, 0) Then
				GUICtrlSetImage($iPic, @ScriptDir & "\1.jpg")
			EndIf
	EndSwitch
WEnd
 
Автор
A

astati

Новичок
Сообщения
145
Репутация
4
Пришлось чуть под твой код подправить, а так идеально.
Просто изначально я исп.
Код:
if $msg = $Button2 Then

а как взял твое
Код:
Case $Button2

Сразу заработало.
 
Верх