Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 |

 

  Вопрос: Народ помогите плз...(Цветовые занчения в HTML) Добавлено: 30.09.10 19:36  

Автор вопроса:  MISTER X | Web-сайт: studioartf.ru | ICQ: 463865965 
Народ,мне нужно вот что...получить код цвета (который понимает хтмл типа 00FFFF) я делаю так:на форме есть картнка и след код:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture2.BackColor = "&H" & Hex$(Colorform.Point(X, Y))
Text1 = "#" & Hex$(Colorform.Point(X, Y))
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture3.BackColor = "&H" & Hex$(Colorform.Point(X, Y))
End Sub

но чето он мне цвета выдает не так как надо...какието цвета совпадают а кикието нет... подскажите норм кодик плз..)

Ответить

  Ответы Всего ответов: 24  

Номер ответа: 1
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #1 		Добавлено: 30.09.10 20:37
Формат не RGB, а BGR.

Ответить

Номер ответа: 2
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #2 		Добавлено: 30.09.10 20:40
Это вопервых, а во вторых нужно выравнивание строки до 6 символов. то, если цвет касный(255) то твой код выдаст #FF,а не #FF0000

Ответить

Номер ответа: 3
Автор ответа:
 MISTER X



ICQ: 463865965 

Вопросов: 31
Ответов: 190
  Web-сайт: studioartf.ru
 Профиль | | #3 		Добавлено: 30.09.10 21:24
???подробнее можно?че изменит?подправить че надо?

Ответить

Номер ответа: 4
Автор ответа:
 MISTER X



ICQ: 463865965 

Вопросов: 31
Ответов: 190
  Web-сайт: studioartf.ru
 Профиль | | #4 		Добавлено: 30.09.10 21:28
AWP пишет:
Формат не RGB, а BGR.

что за бред?везде и всегда был RGB

Ответить

Номер ответа: 5
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #5 		Добавлено: 30.09.10 22:12
MISTER X, нет не везде.
&H00FF0000& - синий
&H0000FF00& - зеленый
&H000000FF& - красный

Ответить

Номер ответа: 6
Автор ответа:
 Серёга



ICQ: 262809473 

Вопросов: 17
Ответов: 561
  Web-сайт: houselab.narod.ru
 Профиль | | #6 		Добавлено: 30.09.10 22:16
что за бред?везде и всегда был RGB

- ты что такой недоверчивый? Красный в hex - 0000FF, а в web - FF0000. Отсюда и ответ.

Ответить

Номер ответа: 7
Автор ответа:
 MISTER X



ICQ: 463865965 

Вопросов: 31
Ответов: 190
  Web-сайт: studioartf.ru
 Профиль | | #7 		Добавлено: 30.09.10 22:39
читайте внимательнее
AWP пишет:
Формат не RGB, а BGR.

я про РГБ говорил,а то что 1 цвет в разных кодировках может быть разными я и так знаю.я про то что RGB правильно,а BGR не говорят.Это не правильно.Сравните RGB(Red Green Blue) и BGR(Blue Green Red)
БГР не говорят.вот что
MISTER X пишет:
что за бред

Ответить

Номер ответа: 8
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #8 		Добавлено: 30.09.10 22:42
Правильно говорить жрать, а не ржать, смекаешь?

Ответить

Номер ответа: 9
Автор ответа:
 MISTER X



ICQ: 463865965 

Вопросов: 31
Ответов: 190
  Web-сайт: studioartf.ru
 Профиль | | #9 		Добавлено: 30.09.10 22:48
чесно говоря не очень =)блин....мы все дальше отдалаемся от топика...мне нужно получить правильный код цвета в хтмл-е,есть идеи?RGB не надо,RGB есть,рабочий.Если надо то вот:
модуль:
  1. Public Type RGB_Type
  2.   R As Long
  3.   G As Long
  4.   b As Long
  5. End Type
  6. Public Function ToRGB(ByVal Color _
  7.   As Long) As RGB_Type
  8.   '
  9.   Dim ColorStr As String
  10.   ColorStr = Right$("000000" & Hex$(Color), 6)
  11.   With ToRGB
  12.     .R = Val("&h" & Right$(ColorStr, 2))
  13.     .G = Val("&h" & Mid$(ColorStr, 3, 2))
  14.     .b = Val("&h" & Left$(ColorStr, 2))
  15.   End With
  16. End Function


Форма:
  1. Private Sub Form_MouseUp(Button _
  2.   As Integer, Shift As Integer, _
  3.   X As Single, Y As Single)
  4.   '
  5.   Dim RGB_Point As RGB_Type
  6.   RGB_Point = ToRGB(Point(X, Y))
  7.   With RGB_Point
  8.     Text2.Text = "R = " & .R & " G = " & .G & " B = " & .b
  9.   End With
  10.   End Sub

Ответить

Номер ответа: 10
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #10 		Добавлено: 30.09.10 23:04
Поменяй .R и .b местами и смекни.

Ответить

Номер ответа: 11
Автор ответа:
 MISTER X



ICQ: 463865965 

Вопросов: 31
Ответов: 190
  Web-сайт: studioartf.ru
 Профиль | | #11 		Добавлено: 30.09.10 23:30
мне не ргб код нужен а web код,Hex вроди называется

Ответить

Номер ответа: 12
Автор ответа:
 Серёга



ICQ: 262809473 

Вопросов: 17
Ответов: 561
  Web-сайт: houselab.narod.ru
 Профиль | | #12 		Добавлено: 30.09.10 23:46
Кошмар какой то :)

У тебя в RGB_Point есть значения всех трёх цветов в DEC. Тебе нужно перевести каждое из значений в HEX и составить из них строку, длиной в 6 символов, где первые 2 - красный, потом зелёный и последние 2 символа - синий. Потом первым символом нужно вставить значек решетки (#) и всё блин.
Чё не понятно то?

Ответить

Номер ответа: 13
Автор ответа:
 Серёга



ICQ: 262809473 

Вопросов: 17
Ответов: 561
  Web-сайт: houselab.narod.ru
 Профиль | | #13 		Добавлено: 01.10.10 06:15
a eщё прощe в функции ToRGB послe строки ColorStr = Right$("000000" & Hex$(Color), 6) в ColorStr помeнять мeстaми пeрвыe двa и послeдниe двa символa, ну и рeшeтку встaвить. И всeго дeлов.

Ответить

Номер ответа: 14
Автор ответа:
 



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
  Web-сайт: domkratt.com
 Профиль | | #14 		Добавлено: 01.10.10 09:08
  1.     Dim c      As Long
  2.     Dim rgb(2) As Byte
  3.     c = &HFF 'color
  4.  
  5.     rgb(0) = c And &HFF&
  6.     rgb(1) = c And &HFF00&
  7.     rgb(2) = c And &HFF0000
  8.  
  9.     wc = "#"
  10.     For i = 0 To 2
  11.         h = Hex$(rgb(i))
  12.         wc = wc & IIf(Len(h) = 1, "0" & h, h)
  13.     Next

Ответить

Номер ответа: 15
Автор ответа:
 LEX1ERS



ICQ: 4204936 

Вопросов: 38
Ответов: 100
  Профиль | | #15 Добавлено: 01.10.10 10:57
Цирк. RGB - в переводе Red Green Blue - есть как в 16ричной так и в числовой обычной. 16ричная используется в вэб. А числовое можно встретить в графический редакторах типа Фотошопа. Выглядят они так:
RGB в 16ричной системе = FF0000. А RGB в обычном числовом значении выглядит так: 255 0 0. Это я так, что бы ты понял как называть точно что и как. Ну а в твоем коде ты очепятолся. Смотри внимательней...

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам