1. sayfa (Toplam 1 sayfa)
Guiye Tempten Eklenen Resimi Degistirmek
Gönderilme zamanı: 28 Ara 2020, 02:43
gönderen 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....
Re: Guiye Tempten Eklenen Resimi Degistirmek
Gönderilme zamanı: 28 Ara 2020, 11:04
gönderen 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.
Re: Guiye Tempten Eklenen Resimi Degistirmek
Gönderilme zamanı: 28 Ara 2020, 12:37
gönderen darendeli
Teşekkürler akşam deneyecegim..
Re: Guiye Tempten Eklenen Resimi Degistirmek
Gönderilme zamanı: 29 Ara 2020, 01:59
gönderen 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ş")
Re: Guiye Tempten Eklenen Resimi Degistirmek
Gönderilme zamanı: 29 Ara 2020, 10:43
gönderen 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