Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: RGB --> VB
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003
RGB --> VB

Jak zamienić kolor RGB występujący na stronkach HTML na kolor w VB?


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

25-09-2003 19:41
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
m-a-x



Typ: neutral
Postów: 366
Zarejestrowany: Jan 2003

A Mikmas znowu o kolorach - hehehe. Najlepiej za pomoca funkcji RGB. Np Form1.BackColor = RGB(233,34,76). Oczywiście te cyferki to sa wartości poszczególnych kolorów: wg kolejności czerwony,zielony,niebieski. Poniewaz chodzi ci o przeformatowanie koloru ze standardu html na vb to musisz najpierw te wartosci uzyskać. Najlepiej zrobić to w ten sposób:

Private function kolor(byval kolorek as string)as long
r = Int("&h" & Mid(kolorek, 1, 2))
g = Int("&h" & Mid(kolorek, 3, 2))
b = Int("&h" & Mid(kolorek, 5, 2))
kolor = rgb(r,g,b)
end function

Chyba o to ci chodziło tak? (pisalem z glowy wiec moga byc bledy)
(jak teraz zauwazylem to kicaj juz ci wtedy - przypoprzednim twoim pytaniu - odpowiedzial na to )

[Post edytowany dnia 26-09-2003 00:06 przez m-a-x]


_____________________________________________

Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania!

26-09-2003 00:04
Pokaż profil m-a-x  Wyślij email do m-a-x   
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Dobre spotrzeżenie Max - rzeczewiście ostatnie pytania dotyczą kolorków, bo robię prog do pisania stron HTML . A tak wogole to dziex za odpowiedź


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

26-09-2003 19:39
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

właśnie sprawdziłem - działa . Ale co robi funkcja "Int"?


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

26-09-2003 19:59
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
m-a-x



Typ: neutral
Postów: 366
Zarejestrowany: Jan 2003

Int zwraca część całkowitą jakiejś liczby


_____________________________________________

Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania!

27-09-2003 05:17
Pokaż profil m-a-x  Wyślij email do m-a-x   
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1