[Çözüldü]  Image Nesnesinde Resim Yüklü mü ?

Class Module İşlemleri

Image Nesnesinde Resim Yüklü mü ?

İleti#1)  Erhan Yavuz » 09 Arl 2009 23:17

Userform da örneği 10 adet Image nesnesi var. Üçünde resim yüklü, diğerleri .visible fakat boş durumdalar... Image nesnelerine tıklayarak, resimli veya boş olduklarını nasıl kontrol edebiliriz.

If Image1.Picture = LoadPicture("") Then ...... demeyin ama... [fısıltı]
En son Murat OSMA tarafından, 06 Ekm 2013 16:27 tarihinde değiştirildi, toplamda 2 değişiklik yapıldı.
Sebep: Başlık Düzeltildi...
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 00:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 60
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Cevap: Image nesnesinde resim yüklü mü?

İleti#2)  Tarkan VURAL » 10 Arl 2009 01:13

Selam. ;)
Kod: Tümünü seç
If Not Image1.Picture Is Nothing Then MsgBox "Resim var."
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27044
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Image nesnesinde resim yüklü mü?

İleti#3)  Erhan Yavuz » 10 Arl 2009 09:31

Sevgili Tarkan sabahın "Hayırlı", günün "Aydın" olsun... Çok güzel bir mantık ve çözümün için çok teşekkür ederim... [op] şkşk

M.Temel Korkmaz hocanın çözümünü de ben ekleyeyim, çeşit artsın... [mersi]

Kod: Tümünü seç
Private Sub Image1_Click()
    On Error GoTo hata
    If IsNumeric(Image1.Picture.Height) Then MsgBox "resim var"
    Exit Sub
hata:
    If Err.Number = 91 Then MsgBox "resim yok"
End Sub
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 00:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 60
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Cevap: Image nesnesinde resim yüklü mü?

İleti#4)  Tarkan VURAL » 10 Arl 2009 09:49

Temel hoca ile boy ölçüşmek namümkündür. Acizane bir örnek daha.
Kod: Tümünü seç
Private Sub Image1_Click()
On Local Error Resume Next
resim = Image1.Picture.Handle
If Err.Number = 91 Then MsgBox "Resim Yok": Exit Sub
MsgBox "Resim Var"
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27044
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Image nesnesinde resim yüklü mü?

İleti#5)  Erhan Yavuz » 10 Arl 2009 09:56

Kimsenin öyle bir niyeti de olamaz zaten, ama benim de gurur duyduğum bir tane Tarkan kardeşim var... [op] [mersi]

Bu işlemi, Userform üzerinde bulunan image nesnelerinin üzerine geldiğimizde, tıklamadan tespit etmemiz mümkün olur mu? :oops:
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 00:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 60
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Cevap: Cevap: Image nesnesinde resim yüklü mü?

İleti#6)  Bülent » 10 Arl 2009 10:06

Erhan Yavuz yazdı:image nesnelerinin üzerine geldiğimizde, tıklamadan tespit etmemiz mümkün :oops:


Sorunun içinde cevabı da gizli zaten abi. :P

Kod: Tümünü seç
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MsgBox "Çekil üzerimden be adam!", vbCritical
End Sub
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@ gmail.com)
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 00:08
Meslek: Bilgi Sistemleri
Yaş: 43
İleti: 3628
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Image nesnesinde resim yüklü mü?

İleti#7)  Tarkan VURAL » 10 Arl 2009 10:09

Olmaz mı ?
Hemen bir Class yazarız abi senin için.

Module içine:
Kod: Tümünü seç
Public R() As New EVN
Public say As Integer
Sub AC()
Dim im As Control
    say = 0
    For Each im In UserForm1.Controls
        If TypeName(im) = "Image" Then
            say = say + 1
            ReDim Preserve R(1 To say)
            Set R(say).Resimler = im
        End If
    Next im
    UserForm1.Show
End Sub

Class Module içine:
Kod: Tümünü seç
Public WithEvents Resimler As msforms.Image

Private Sub Resimler_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Local Error Resume Next
If say >= 1 Then
yok = Resimler.Picture.Handle
If Err Then
UserForm1.Label1.Caption = "Resim Yok"
Else
UserForm1.Label1.Caption = "Resim Var"
End If
End If
End Sub

Form Sayfasına:
Kod: Tümünü seç
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.Caption = ""
End Sub

ThisWorkbook kod sayfasına:
Kod: Tümünü seç
Private Sub Workbook_Open()
Call AC
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27044
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Cevap: Cevap: Image nesnesinde resim yüklü mü?

İleti#8)  Erhan Yavuz » 10 Arl 2009 10:25

Bülent yazdı:
Erhan Yavuz yazdı:image nesnelerinin üzerine geldiğimizde, tıklamadan tespit etmemiz mümkün :oops:


Sorunun içinde cevabı da gizli zaten abi. :P

Kod: Tümünü seç
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MsgBox "Çekil üzerimden be adam!", vbCritical
End Sub


Sağol Bülent Kardeşim... Eline sağlık... [op]
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 00:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 60
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Cevap: Image nesnesinde resim yüklü mü?

İleti#9)  Erhan Yavuz » 10 Arl 2009 10:36

Dayanamadım, sormadan edemeyeceğim...

Kod: Tümünü seç
Public WithEvents Resimler As msforms.Image

Private Sub Resimler_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Local Error Resume Next
If say >= 1 Then
yok = Resimler.Picture.Handle
If Err Then
UserForm1.Label1.Caption = "Resim Yok"
Else
UserForm1.Label1.Caption = "Resim Var"
End If
End If
End Sub


Yapısında, hangi no.lu İmagenin üzerinde olduğumuzu da tespit edebilirmiyiz... Yani;

Kod: Tümünü seç
UserForm1.Label1.Caption = İmageNo & "no da Resim Yok"


şeklinde tespit yapabilirmiyiz...

Not: Tamam kızmayın bu son soru olabilir... (Tabii bu konuda... [komik] )
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 00:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 60
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Cevap: Image nesnesinde resim yüklü mü?

İleti#10)  Tarkan VURAL » 10 Arl 2009 12:57

Önceki eklediğim örneği güncelledim, bakabilirsiniz. [evet]
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27044
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Cevap: Image nesnesinde resim yüklü mü?

İleti#11)  Bülent » 10 Arl 2009 12:58

Erhan Yavuz yazdı: Not: Tamam kızmayın bu son soru olabilir...


Erhan abi, senin forumdaki konumun soru sormak mıydı yoksa cevaplamak mıydı ya? Ben mi yanlış hatırlıyorum? hehe hehe hehe
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@ gmail.com)
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 00:08
Meslek: Bilgi Sistemleri
Yaş: 43
İleti: 3628
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

Cevap: Cevap: Cevap: Image nesnesinde resim yüklü mü?

İleti#12)  Erhan Yavuz » 10 Arl 2009 13:10

Bülent yazdı:
Erhan Yavuz yazdı: Not: Tamam kızmayın bu son soru olabilir...


Erhan abi, senin forumdaki konumun soru sormak mıydı yoksa cevaplamak mıydı ya? Ben mi yanlış hatırlıyorum? hehe hehe hehe



Yoo doğru hatırlıyorsun da hinliğinden yine bana soruyorsun... Ama bende bazen kimsenin sormayı akıl etmediklerini soruyorum yaaa.. hehe [komik] ;) :twisted:
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 00:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 60
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Cevap: Cevap: Image nesnesinde resim yüklü mü?

İleti#13)  Erhan Yavuz » 10 Arl 2009 13:13

Tarkan VURAL yazdı:Önceki eklediğim örneği güncelledim, bakabilirsiniz. [evet]


Sağolasın... Teşekkürler.. ".Name" şeklini ben yanlış kullanmışım, ondan olmuyormuş... [mersi] şkşk
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 00:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 60
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Cevap: Cevap: Cevap: Cevap: Image nesnesinde resim yüklü mü?

İleti#14)  Bülent » 10 Arl 2009 13:26

Erhan Yavuz yazdı: Yoo doğru hatırlıyorsun da hinliğinden yine bana soruyorsun... Ama bende bazen kimsenin sormayı akıl etmediklerini soruyorum yaaa.. hehe [komik] ;) :twisted:


hehe hehe hehe hehe
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@ gmail.com)
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 00:08
Meslek: Bilgi Sistemleri
Yaş: 43
İleti: 3628
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

Cevap: Image Nesnesinde Resim Yüklü mü ?

İleti#15)  Erhan Yavuz » 15 May 2011 17:51

İmage nesneleri ile uğraşanlar için bulunmaz örnekler.. 2 yıl öncesinden.. şkşk
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 00:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 60
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler


Forum Class Module

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe