AccessTr.neT
Excelde Controllerin Rengini Propertiesden Değiştirmek - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Soruları ve Cevapları (https://accesstr.net/forum-excel-sorulari-ve-cevaplari.html)
+--- Konu Başlığı: Excelde Controllerin Rengini Propertiesden Değiştirmek (/konu-excelde-controllerin-rengini-propertiesden-degistirmek.html)



Excelde Controllerin Rengini Propertiesden Değiştirmek - accessman - 10/01/2020

Hayırlı cumalar
soru saçma değil mi bu da mı sorulur cinsinden
malum properties kısmında backcolor karşısında şöyle bir şey yazıyor   --->   &H00FFC0C0&
bende bunu hoşuma giden #E8F8F5  ile değiştirmek istiyorum şöyle yaptım olmadı   --->   &E8F8F5&
bunu nasıl değiştirmek lazım


Cvp: Excelde Controllerin Rengini Propertiesden Değiştirmek - accessman - 10/01/2020

şöyle bir açıklama var ne diyor acaba
"HEX colours in VB6 aren't RRGGBB, they are BBGGRR, so if I wanted #cc0000, it would become: "&H000000CC" as a string or &H000000CC& which is &HCC& as long note the ampersand"


Cvp: Excelde Controllerin Rengini Propertiesden Değiştirmek - accessman - 10/01/2020

son altı hanesini kopyalayıp yapıştırdığımda frame8 backcolor  
&H00D0ECE7& oluyor ama sitedeki "#D0ECE7renk ile ilgisi bile yok nasıl yapmak lazım
[Resim: do.php?img=9430]


Cvp: Excelde Controllerin Rengini Propertiesden Değiştirmek - accessman - 10/01/2020

Public Function GetHexColor(strHex As String) As Long
    Dim strColor As String
    Dim strR As String
    Dim strG As String
    Dim strB As String
   
    'strip the leading # if it exists
    If Left(strHex, 1) = "#" Then
        strHex = Right(strHex, Len(strHex) - 1)
    End If
   
    'reverse the first two and last two hex numbers of the R G B values
    strR = Left(strHex, 2)
    strG = Mid(strHex, 3, 2)
    strB = Right(strHex, 2)
    strColor = strB & strG & strR
    GetHexColor = CLng("&H" & strColor)
End Function



bunun ile renk değiştirebiliyorum ama propertiese ne yzamak lazım