(17/10/2016, 12:09)atoz112 yazdı: sayın angelos,Çok sağol yardım için bu kod bütün sıkıntıları halletti hata almıyorum hiçbir yerde artık ama atadığım resmin resim klasörüne kopyasını almasına rağmen resmi değilde resim yok etiketini gösteriyor bunu nasıl aşarım acaba? imgresim.picture = "(yok)" gösteriyor fareyi üzerine getirdiğimde = diğer tarafında resim klasörü ve resim adını göstermesine rağmen
frm_personel_bilgi adlı formun kod sayfasında yer alan urunresmigetir adlı fonksiyonun içeriğini tamamen silip
Resimklasorgetir
If (Dir(Resimklasoru, vbDirectory) = "") Then
MkDir Resimklasoru
imgresim.Picture = Resimklasoru & "\" & txtresimad
txtresimyok.Visible = False
Else
imgresim.Picture = ""
txtresimyok.Visible = True
End If
kodları ile değiştirerek kullanmayı deneyiniz.
bilginize...iyi çalışmalar,saygılar.
Son Düzenleme: 17/10/2016, 12:51, Düzenleyen: angelos.