[
attachment=21774]
Merhaba arkadaşlar
ekteki veritabanında tabloda hex kodları yazılan renkleri örnek sütununda göstermek istiyorum.
yardımcı olabileceklere şimdiden teşekkür ederim.
sağlıkla kalın.
Ekte istediğinizi inceleyebilirsiniz. Kod olarak yapılacak iş ise şundan ibaret:
Private Sub Ayrıntı_Paint()
Dim renk As String
renk = Mid(Me.Heksadesimal, 2)
Me.Örnek.BackColor = Val("&H" & renk)
End Sub
Teşekkür ederim.sabah kontrol edebileceğim.saağlıcakla kalın.
Çok teşekkür ederim.rapor tam istediğim gibi olmuş emeğinize sağlık.
yalnız bir sorun mu var tam anlayamadım.
renk tonları farklı çıkıyor.örneüin 2 numaralı renk açık mavi olması gerekirken,
bej çıkmış.diğer renklerde de ton farkı var.
Tabi ben bu kodları
http://tr.wikipedia.org/wiki/Renkler_listesi sitesinden aldım
ve doğru olduğunu varsayıyorum.nedenini anlayamadım.
ikincisi aynı kodu formda kullanabilirmiyiz?
teşekkürler
saygılarımla
(09/01/2015, 15:40)memox yazdı:
Çok teşekkür ederim.rapor tam istediğim gibi olmuş emeğinize sağlık.
yalnız bir sorun mu var tam anlayamadım.
renk tonları farklı çıkıyor.örneüin 2 numaralı renk açık mavi olması gerekirken,
bej çıkmış.diğer renklerde de ton farkı var.
Tabi ben bu kodları http://tr.wikipedia.org/wiki/Renkler_listesi sitesinden aldım
ve doğru olduğunu varsayıyorum.nedenini anlayamadım.
ikincisi aynı kodu formda kullanabilirmiyiz?
teşekkürler
saygılarımla
Merhaba;
ikinci sorunuz olan , "aynı kodu formda kullanabilir miyiz?" in cevabıdır.
İyi çalışmalar...
Teşekkür ederim.pazartesi kontrol edeceğim.iyi bir haftasonu dilerim