Private Sub Ayrıntı_Paint()
Dim renk As String
renk = Mid(Me.Heksadesimal, 2)
Me.Örnek.BackColor = Val("&H" & renk)
End Sub
Ekte istediğinizi inceleyebilirsiniz. Kod olarak yapılacak iş ise şundan ibaret:
renkler_alpeki99.rar
(Dosya Boyutu: 21,29 KB | İndirme Sayısı: 32)
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
