ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Ищу аналог классов CSS(DHTML) для VB
15 сообщений из 15, страница 1 из 1
Ищу аналог классов CSS(DHTML) для VB
    #33012583
Freelance
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Freelance
Участник
Мне нужно, например, чтобы все поля в форме при получении фокуса меняли свои визуальные параметры. Пока написал функции смены этих параметров и выполняю их на события ongotfocus, onlostfocus.(30 полей - 60 событий, а дальшее...) А нельзя в VB задать события для класса объектов, например, полей или самостоятельно определенных классов (как это делается с помщью каскадных стилей CSS в DHTML)???
Заранее благодарен.
...
Рейтинг: 0 / 0
13.04.2005, 10:51:32
| Ответить | Цитировать | Написать  
Ищу аналог классов CSS(DHTML) для VB
    #33012655
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
таблица стилей не предусматривает никакой динамики, так что только имхо через код - сменой стиля контрола.
офф - а зачем на писать dhtml на VB ? В 2001 году попробавал - не понравилось - взялся за interdev.
...
Рейтинг: 0 / 0
13.04.2005, 11:07:24
| Ответить | Цитировать | Написать  
Ищу аналог классов CSS(DHTML) для VB
    #33012821
Freelance
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Freelance
Участник
big-dukeтаблица стилей не предусматривает никакой динамики, так что только имхо через код - сменой стиля контрола.
офф - а зачем на писать dhtml на VB ? В 2001 году попробавал - не понравилось - взялся за interdev.

Лано, есть "классы" в VB? То есть, могу ли я описать класс(совокупность парметров и саойств объекта), а потом присовить только его объекту, а не присваивать каждое его свойство отдельно.
...
Рейтинг: 0 / 0
13.04.2005, 11:45:41
| Ответить | Цитировать | Написать  
Ищу аналог классов CSS(DHTML) для VB
    #33012876
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
А у тебя что за формы? VB или web-страницы? Судя по ongotfocus - web. Если так, то просто html или ASP? В лоб навесить класс с какой-нибудь динамикой не получится, но для разных случаев есть разные способы обхода ограничений.
...
Рейтинг: 0 / 0
13.04.2005, 11:56:54
| Ответить | Цитировать | Написать  
Ищу аналог классов CSS(DHTML) для VB
    #33012912
Freelance
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Freelance
Участник
AntonariyА у тебя что за формы? VB или web-страницы? Судя по ongotfocus - web. Если так, то просто html или ASP? В лоб навесить класс с какой-нибудь динамикой не получится, но для разных случаев есть разные способы обхода ограничений.
В том, то и дело,: я раньше занимался HTML, а "Freelance" сейчас...
У меня форма ADP и обработка событий на VB.
...
Рейтинг: 0 / 0
13.04.2005, 12:04:39
| Ответить | Цитировать | Написать  
Ищу аналог классов CSS(DHTML) для VB
    #33012921
Freelance
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Freelance
Участник
А у тебя что за формы? VB или web-страницы? Судя по ongotfocus - web. Если так, то просто html или ASP? В лоб навесить класс с какой-нибудь динамикой не получится, но для разных случаев есть разные способы обхода ограничений.[/quot]
В том, то и дело,: я раньше занимался HTML, а "сейчас . . ."
У меня форма ADP и обработка событий на VB.[/quot]
...
Рейтинг: 0 / 0
13.04.2005, 12:06:49
| Ответить | Цитировать | Написать  
Ищу аналог классов CSS(DHTML) для VB
    #33012981
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
зачем 'аналог классов CSS', если можно использовать сам CSS
Я полностью все формы делаю на HTML. Бросаю на форму одим элемент WebBrowser и весь интерфейс рисую на html - часть статическая, часть динамическая. Уже четвёртый проект так делаю. Как начал, так ни как не остановлюсь. Очень удобно.
В одном из проектов полностью реализовал технологию скинов, когда при смене таблицы стилей полностью меняется внешний вид программы (шрифты, цвета, графика и.т.п.). Внешний вид здесь
и ещё одна здесь
Написал две статьи по этому делу
Использование WebBrowser и MSHTML в VB. Часть 1
Использование WebBrowser и MSHTML в VB. Часть 2
сейчас работаю над третьей, где речь пойдёт о создании интерфейса программ и использовании скинов.
Если есть вопросы - задавай, отвечу.
...
Рейтинг: 0 / 0
13.04.2005, 12:23:54
| Ответить | Цитировать | Написать  
Ищу аналог классов CSS(DHTML) для VB
    #33013005
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Бардак с постами... :-)
А что такое ADP форма?
...
Рейтинг: 0 / 0
13.04.2005, 12:29:31
| Ответить | Цитировать | Написать  
Ищу аналог классов CSS(DHTML) для VB
    #33013040
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
P.S.
По существу вопроса.
Для того, чтобы 'все поля в форме при получении фокуса меняли свои визуальные параметры' надо использовать 'Получение событий документа' (описано во второй статье). Там во втором примере описано использование атрибута "Sel" - если он у данного элемента есть - "меняй его цвет", изменив имя класса. Хотя можно проверять и само имя класса текущего элемента.
Код: plaintext
1.
2.
If SelElement.className <> "tr_a" Then
    SelElement.className = "tr_n"
End If
...
Рейтинг: 0 / 0
13.04.2005, 12:38:17
| Ответить | Цитировать | Написать  
Ищу аналог классов CSS(DHTML) для VB
    #33013375
Freelance
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Freelance
Участник
marvanP.S.
По существу вопроса.
Для того, чтобы 'все поля в форме при получении фокуса меняли свои визуальные параметры' надо использовать 'Получение событий документа' (описано во второй статье). Там во втором примере описано использование атрибута "Sel" - если он у данного элемента есть - "меняй его цвет", изменив имя класса. Хотя можно проверять и само имя класса текущего элемента.
Код: plaintext
1.
2.
If SelElement.className <> "tr_a" Then
    SelElement.className = "tr_n"
End If

Как в VB описать класс, напрмер tr_a ???
...
Рейтинг: 0 / 0
13.04.2005, 14:10:35
| Ответить | Цитировать | Написать  
Ищу аналог классов CSS(DHTML) для VB
    #33013382
Freelance
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Freelance
Участник
AntonariyБардак с постами... :-)
А что такое ADP форма?
СУБД - Access Database Project(клиент-серевер в отличие от *.MDB)
...
Рейтинг: 0 / 0
13.04.2005, 14:12:14
| Ответить | Цитировать | Написать  
Ищу аналог классов CSS(DHTML) для VB
    #33013497
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
...
Рейтинг: 0 / 0
13.04.2005, 14:41:28
| Ответить | Цитировать | Написать  
Ищу аналог классов CSS(DHTML) для VB
    #33013528
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
извиняюсь за пустое сообщение (не ту кнопку ткнул)
FreelanceКак в VB описать класс, напрмер tr_a???
tr_a - это класс, который определён в файле стилей 'css'
Код: plaintext
1.
2.
3.
.tr_a
	{
	background-color: #D6DFF7
	}
хотя его можно определить и в соответствующем разделе html документа.

При необходимости можно менять значения текущего стиля элемента:
Код: plaintext
SelElement.Style.Color = mColor
...
Рейтинг: 0 / 0
13.04.2005, 14:51:37
| Ответить | Цитировать | Написать  
Ищу аналог классов CSS(DHTML) для VB
    #33013797
Freelance
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Freelance
Участник
marvanизвиняюсь за пустое сообщение (не ту кнопку ткнул)
FreelanceКак в VB описать класс, напрмер tr_a???
tr_a - это класс, который определён в файле стилей 'css'
Код: plaintext
1.
2.
3.
.tr_a
	{
	background-color: #D6DFF7
	}
хотя его можно определить и в соответствующем разделе html документа.

При необходимости можно менять значения текущего стиля элемента:
Код: plaintext
SelElement.Style.Color = mColor

я ничего не пойму причём тут CSS файл. Как я его смогу использовать в VB orm'e
...
Рейтинг: 0 / 0
13.04.2005, 16:02:15
| Ответить | Цитировать | Написать  
Ищу аналог классов CSS(DHTML) для VB
    #33013974
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
пример демонстрируюший выделение элемента при наведении указателя в зависимости от наличия и значения атрибута.
Код: plaintext
1.
\'References: Microsoft HTML Object Library\'Controls: Microsoft Internet Controls\'добавить на форму WebBrowser с именем WebBrowser1Private WithEvents mHTMLDocument As MSHTML.HTMLDocumentPrivate SelElement As MSHTML.IHTMLElementPrivate Sub Form_Load()    Dim mStr As String    Dim mDoc As MSHTML.IHTMLDocument    \'загрузка простого документа    WebBrowser1.Navigate "res://mshtml.dll/blank.htm"    While WebBrowser1.Document Is Nothing    \'ждём создания документа        DoEvents    Wend    Set mDoc = WebBrowser1.Document    mStr = "<html><body>" & _           "  <head><style type=""text/css"">" & _           "    body {overflow-y: visible;}" & _           "    span {color: #003DB2;}" & _           "    .Select0 {color: #000000;}" & _           "    .Select1 {color: #003DB2;}" & _           "    .Select2 {color: red;}" & _           "    li   {cursor: hand;}" & _           "  </style></head>" & _           "  <ul>" & _           "    <li id=""1"" sel=""1"">пункт <span>1</span></li>" & _           "    <li id=""2"" sel=""0"">пункт <span>2</span></li>" & _           "    <li id=""3"" sel=""1"">пункт <span>3</span></li>" & _           "  </ul>" & _           "  <div id=""txtout"">навести укзатель на список</div>" & _           "</body></html>"    \'меняем содержание всего документа    mDoc.Write mStr    Set mDoc = Nothing    \'присваиваем html документ    \'для обработки событий    Set mHTMLDocument = WebBrowser1.DocumentEnd Sub\'нажатие кнопки мышиPrivate Sub mHTMLDocument_onmouseover()    Dim objElement As MSHTML.IHTMLElement        If SelElement Is Nothing = False Then        SelElement.className = "Select0"        Set SelElement = Nothing    End If        \'получить элемент, для которого обрабатывается событие    Set objElement = mHTMLDocument.parentWindow.Event.srcElement        \'получить элемент, имеющий атрибут "Sel"    Do While IsNull(objElement.getAttribute("Sel")) = True        Set objElement = objElement.parentElement        \'поднялись до вершины иерархии, но такого элемента        \'не встретили - выводим сообщение и выход из процедуры        If objElement Is Nothing = True Then Exit Sub    Loop    \'проверяем значение атрибута    If objElement.Sel = "1" Then        objElement.className = "Select1"    Else        objElement.className = "Select2"    End If    Set SelElement = objElementEnd Sub
Как отформатирован этот код?
...
Рейтинг: 0 / 0
13.04.2005, 16:41:15
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Ищу аналог классов CSS(DHTML) для VB
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33012921&tid=2167952]:
 0ms
get settings:
 8ms
get forum list:
 10ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 89ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 231ms
total:  414ms
созд. / загр.: 414ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]