Liste kutusunun Kırmızı ışık yanıp sönmesi hakkında

[SIDDIK]

Arkadaşlar form sayfasında liste kutusunda bulunan kayıtlardan belli bir limiti aşan plakaların yanıp sönmesini istiyorum bu mümkünmüdür yardımcı olurmusunuz. örnek anlatımlı dosyam ektedir.

 

[SIDDIK]

arkadaşlar bu konu hakkında yardımcı olacak kimse yokmu

 

[beab05]

Merhaba;

Bildiğim kadarıyla liste kutusunda bu işlemi yapamazsınız, liste kutusunda gördüğüm bin zahmetle sadece kayıtların renklerinin değiştiği o da yanlış hatırlamıyorsam belirli şartlara sahip olmadandı. En iyisi liste kutusu görünümünde sürekli altform yapınız ve orda istediğinizi elde etmeye çalışın..

 

[SIDDIK]

örnek olarak benim bir cari listem var bütün firma listeleri çıktı karşıma burada 100 firma var bu firmalardan belli bir limiti aştıklarında yanıp sönme işlemi olamayacağını söylüyorsunuz ancak her firmaya ayrı bir alt formu oluşturamam ki şu anda program içinde yanıp sönen yazılar butonlarım var ancak en önemlisi liste kutusunun içinde yanmasıydı benim için yada oradaki yazılar ve rakamlar renk değişiminede uğrayabilir.

 

[beab05]

Her firma için neden altform yapasınız ki!!?? Bir tane yaparsınız gerekli filtrelemeler ve görünümle liste kutusu gibi kullanabilirsiniz. Liste kutusu veri gözlemlemek için değil seçmek içindir ayrıca. Bence bunu da aklımızda tutalım..

 

[karaayhan]

sayın SIDDIK, liste kutusunun kayıt kaynağındaki SQL kaynak taki müşteri adı artan değilde Toplam Bakiye azalan olarak sıralanırsa en üstte 200'ü geçenler olacaktır veya formda bu listekutusunu bu amaçla kullanacaksınaz Toplam Bakiye alanın ölçütüne >200 yazarsınız liste kutusu sadece bunları süzer ne dersiniz?


kolay gelsin

 

[gulsum1]

cevap

örnek ekte 100 den küçükler yeşil 100 den büyükler mavi 200 den büyükler kırmızı olur ayrıca 200 den büyükler yanar döner

 

[beab05]

eheheh hile var burda ama

 

[gulsum1]

cevap

beab kardeş yanıp sönen liste istemedimi işte yanıp sönen liste

 

[beab05]

Bu liste kutusu değil ama Herneyse alan razı, satan razıysa sorun yok..

 

[SIDDIK]

arkadaşlar cevap vermem biraz geç oldu ama akşamları bakabiliyorum.sorduğum soruya verilen cevap çok hoş olmuş ancak bunun nasıl yapıldığını öğrenmek istiyorum. yapılışını anlayamadım. yardımcı olurmusunuz.

 

[nihatkr]

arkadaşlar cevap vermem biraz geç oldu ama akşamları bakabiliyorum.sorduğum soruya verilen cevap çok hoş olmuş ancak bunun nasıl yapıldığını öğrenmek istiyorum. yapılışını anlayamadım. yardımcı olurmusunuz.

Private Sub FormatListView()
Dim Item As ListItem
Dim Counter As Long
Dim FreightAmount As Integer
' Set the variable to the ListItem.
For Counter = 1 To Me.ListView1.ListItems.Count
Set Item = Me.ListView1.ListItems.Item(Counter)
' Set the variable to the Freight
FreightAmount = Item.SubItems(3)
With Me.ListView1
If FreightAmount < 100 Then
.ListItems.Item(Counter).ForeColor = 883995
.ListItems.Item(Counter).ListSubItems(1).ForeColor = 883995
.ListItems.Item(Counter).ListSubItems(2).ForeColor = 883995
.ListItems.Item(Counter).ListSubItems(3).ForeColor = 883995

Else
If FreightAmount <= 200 Then
.ListItems.Item(Counter).ForeColor = vbBlue
.ListItems.Item(Counter).ListSubItems(1).ForeColor = vbBlue
.ListItems.Item(Counter).ListSubItems(2).ForeColor = vbBlue
.ListItems.Item(Counter).ListSubItems(3).ForeColor = vbBlue

Else
If FreightAmount > 200 Then
.ListItems.Item(Counter).ForeColor = vbRed
.ListItems.Item(Counter).ListSubItems(1).ForeColor = vbRed
.ListItems.Item(Counter).ListSubItems(2).ForeColor = vbRed
.ListItems.Item(Counter).ListSubItems(3).ForeColor = vbRed


'Make font bold
.ListItems.Item(Counter).Bold = True
.ListItems.Item(Counter).ListSubItems(1).Bold = True
.ListItems.Item(Counter).ListSubItems(2).Bold = True
.ListItems.Item(Counter).ListSubItems(3).Bold = True

End If
End If
End If
End With
Next Counter
Me.ListView1.Refresh
End Sub

 

[solbiate]

ben ekleri alamıyorum