Lemur zaprasza
Strona: [ > ] 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 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 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 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 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 Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20 Strona: [ > ] z 1 |