Guiye Tempten Eklenen Resimi Degistirmek

[darendeli]

Guide Comboboxta ki İsime Göre Resimler Var Bunları Temp Dosyasından Aktarıyorum Ama 2. Resim Gelince 1. Resim Silinmiyor.....Delete Temp Denedim Başarılı olmadı...Yapamadım... Yardımlar icin Teşekkürler....

[BlueLife]

@darendeli

Örnek vermediğin için kesin bir şey diyemem. Lakin tahminim resim halen kullanımda olduğu için silinemiyordur. işlemler bitince _WinAPI_DeleteObject komutu ile objeleri silmen gerekiyordu.

[darendeli]

Teşekkürler akşam deneyecegim..

[darendeli]

_WinAPI_DeleteObject Denendi Olmadı Butonu 2 kez tıklayınca degisiyor birincide Degismiyor Resimler...

Kod: Tümünü seç

Case $Button1
			Switch GUICtrlRead($Combo1)
				Case 'Gül'
				_DarendeliGul(-1,@TempDir)
				$Gul = GUICtrlCreatePic(@TempDir & "\Gül.jpg", 36, 69, 49, 50)
				GUICtrlSetData($Label5,$Gul)
				GUICtrlSetData($Label6,"1 Jeton")
				GUICtrlSetData($Label7,"0,25 Kuruş")
				GUICtrlSetData($Label8,"0,10 Kuruş")
				Case 'TikTok'
				_DarendeliTiktok(-1,@TempDir)
				$Tiktok =GUICtrlCreatePic(@TempDir & "\Tiktok.jpg", 36, 69, 49, 50)
				GUICtrlSetData($Label5,$Tiktok)
				GUICtrlSetData($Label6,"1 Jeton")
				GUICtrlSetData($Label7,"0,96 Kuruş")
				GUICtrlSetData($Label8,"0,40 Kuruş")

[BlueLife]

@darendeli

Verdiğin örnekte herangi bir sorun görünmüyor. Bu yüzden malesef herangi bir önerim yok.
Bu arada anladığım kadarıyla buton işlevine GUICtrlCreatePic ile resim oluşturuyorsun. Devamlı GUICtrlCreatePic ile obje oluşturmaya gerek yok.
Aşağıdaki örneğe bakarsın.

Not: Dosya isimlerinde Türkçe karakter kullanmamaya dikkat etmeni öneririm. Bazen bu Türkçe karakterler sorun çıkartabilir.

Kod: Tümünü seç

Local $tfile1 = @TempDir & "\Gül.jpg"
Local $tfile2 = @TempDir & "\Tiktok.jpg"

Local $Form1 = GUICreate("Form1", 623, 449, 192, 114)
Local $Pic1 = GUICtrlCreatePic("", 16, 24, 180, 140)
Local $Pic2 = GUICtrlCreatePic("", 216, 32, 244, 132)
Local $Button1 = GUICtrlCreateButton("OK", 150, 250, 150, 24)
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case -3
			Exit

		Case $Button1
			;Resimleri çıkartalım
			FileInstall("Gül.jpg", $tfile1, 1)
			FileInstall("Tiktok.jpg", $tfile2, 1)

			;Resimleri görüntüleyelim
			GUICtrlSetImage($Pic1, $tfile1)
			GUICtrlSetImage($Pic2, $tfile2)

			;Resimleri silelim
			FileDelete($tfile1)
			FileDelete($tfile2)
	EndSwitch
WEnd