Povecaj vrednosti R, G i B za 10%. Naravno ako je pozadina veoma svetla tekst ce se "zakucati" u belu boju iako je to mozda manje od 10% svetlijeg, ali svetlije od belog ipak ne moze :). BTW, na to obrati paznju da moras da zaokruzis na 255 ako je vise od toga ili ce doci do greske.
Private Sub Form1_Load
Dim r as integer
Dim g as integer
Dim b as integer
r=int(me.backcolor/65536)
g=int((me.backcolor-r*65536)/256)
b=int(me.backcolor-r*65536-g*256)
r=int(r*1.1)
if r>255 then r=255
g=int(g*1.1)
if g>255 then g=255
b=int(b*1.1)
if b>255 then b=255
Label1.ForeColor=FromRGB(r, g, b)
End sub
[Ovu poruku je menjao Shadowed dana 26.11.2005. u 10:31 GMT+1]
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca m.
-Piše "Insert disk 3", a jedva sam i ova dva ugurao u drajv
-Postoje samo dve osobe kojima verujem, jedna sam ja, a druga nisi ti
26.11.2005. u 18:30
Shadowed .NET developer
SuperModerator Član broj: 649 Poruke: 9004 213.244.208.*
Pomislio sam da bi se to moglo dogoditi. Ima jedna uvrnuta stvar u VB-u koju sam skoro primetio a to je zamenjeno mesto R i B vrednosti. Bar je to bilo kod mene tako i to u GUI designer-u.
Probaj da zamenis R i B.
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca m.
-Piše "Insert disk 3", a jedva sam i ova dva ugurao u drajv
-Postoje samo dve osobe kojima verujem, jedna sam ja, a druga nisi ti