Listboxda seçim yapılmamışsa kodlar çalışmasın

[udentr2002]

Merhaba arkadaşlar,

listboxda seçim yapılmadan butona tıklandığında uyarı versin ve kodlar çalışmasın. Bunun için aşağıdaki kodu ve benzerlerini denedim ama olmadı.

If ListBox1.Value = "" Then
MsgBox "Seçim yapmadınız"
Exit Sub
End If

 

[hamitcan]

Aşağıdaki linki de inceleyebilirsiniz.
http://support.microsoft.com/kb/161346

 For x = 0 to ListBox1.ListCount - 1

             ' If the item is selected...
             If ListBox1.Selected(x) = True Then' Seçim yapıldığında

                '...display the Selected item.
                MsgBox ListBox1.List(x)

            End If

         Next x

 

[Huseyinkis]

Ekteki gibi denermisiniz.

Alternatif olsun mesajı yeni gordum

If ListBox1.ListCount-1 <=0 Then
MsgBox "Seçim yapmadınız"
Exit Sub
End If

 

[Orion1]

buyurun.

if listbox1.listindex < 0 then
   'mesajınız
   exit sub
end if

 

[udentr2002]

Hocam çok teşekkürler,

ikinizin de ellerine sağlık

 

[Orion1]

Hocam çok teşekkürler,

ikinizin de ellerine sağlık

4 nolu mesajıma baktınızmı?

 

[udentr2002]

orion hocam mesajınızı yazdıktan sonra gördüm. Evet kısa olduğu için onu kullandım. Burdan diğer arkadaşalrımıda tekrar teşekkür ederim.

Konunun devamında başka bir şey daha sormak istiyorum.

Seçim yapılmamışssa uyarıyı verdikten sonra.

If ListBox2.ListIndex < 0 Then
MsgBox "Ekipman Dosyaları Listesinden Seçim Yapmalısınız!", vbCritical, "UYARI"
ListBox2.BackColor = &HFFFF&

   Exit Sub
End If

şeklinde listboxun arka planını sarıu renkli yaptırıyorum. Daha sonra listboxun click olayının altına

ListBox2.BackColor = &H80000005

kodları ile tekrar beyaz olmasını istiyorum ama click olayına kodu yazmama rağmen düzelmiyor sarı renkte kalıyor. Neden olabilir bu?

 

[Orion1]

orion hocam mesajınızı yazdıktan sonra gördüm. Evet kısa olduğu için onu kullandım. Burdan diğer arkadaşalrımıda tekrar teşekkür ederim.

Konunun devamında başka bir şey daha sormak istiyorum.

Seçim yapılmamışssa uyarıyı verdikten sonra.

If ListBox2.ListIndex < 0 Then
MsgBox "Ekipman Dosyaları Listesinden Seçim Yapmalısınız!", vbCritical, "UYARI"
ListBox2.BackColor = &HFFFF&

   Exit Sub
End If

şeklinde listboxun arka planını sarıu renkli yaptırıyorum. Daha sonra listboxun click olayının altına

ListBox2.BackColor = &H80000005

kodları ile tekrar beyaz olmasını istiyorum ama click olayına kodu yazmama rağmen düzelmiyor sarı renkte kalıyor. Neden olabilir bu?

Deneyiniz.

ListBox2.BackColor = vbwhite

 

[udentr2002]

Hocam teşekkürler,