Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Подключение модуля VB 
:(
    Опции темы
mr.Anderson
Дата 5.8.2006, 17:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 2
Всего: 128
Нужно подключить VBScript-модуль к html-файлу. Делаю по аналогии с JS. Пишу в HTML-файле:
Код

<script type="text/vbscript" src="mod.bas"></script>

<html>
<head>

<form name='form'>

  <a href="" name="lblLink">ССЫЛКА</a>

</form>
</html>

Затем создаю в той же папке файл mod.bas и пишу в нем такое:
Код

Sub lblLink_onMouseMove()

    Call InfMess( "Вы положили мышь на ссылку!" )

End Sub

Rem -----------------------------------------------------------

Sub lblLink_onMouseOver()

    Call InfMess( "Вы убрали мышь со ссылки!" )

End Sub

Rem -----------------------------------------------------------
Rem -----------------------------------------------------------
Rem -----------------------------------------------------------

Private Sub InfMess( mess As String )

    Call MsgBox( mess, vbCritical, "Информация" )

End Sub

Однако же, запускаю HTML-файл - навожу мышку, убираю мышь со ссылки - ноль реакции. Ошибок никаких не выдает. Что не так?


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
ConstantinXXX
Дата 5.8.2006, 18:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 246
Регистрация: 27.5.2006
Где: U.S.A. :-)

Репутация: нет
Всего: 0
sim7, Спроси михиника, мож знает smile 
--------------------
Как вы относитесь к девушкам, которые курят сигареты?Как не ослепнуть за компьютером© ORENCODE.info
PM MAIL WWW   Вверх
mihanik
Дата 8.8.2006, 09:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109
sim7, сегодня после обеда выложу тебе пример...

Сейча, извини, не могу. Систему переустанавливаю...



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
mihanik
Дата 8.8.2006, 12:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109
Код

<script language="VBScript" src="./mod.bas"></script>


Добавлено @ 12:22 
И потом!
Клади описание вовнутрь документа.
Обычно это делают в разделе

Код

<head>
          <script language="VBScript" src="./mod.bas"></script>
</head>


Это сообщение отредактировал(а) mihanik - 8.8.2006, 12:18


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
mr.Anderson
Дата 8.8.2006, 16:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 2
Всего: 128
Не работает. Впрочем, твой код не намного отличается от моего. Сделал все как ты сказал, ни одна функция из VBS не работает.


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
mihanik
Дата 9.8.2006, 10:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109
Будем думать...


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
mihanik
Дата 9.8.2006, 10:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109
Посмотри, что получилось у меня...

это html документ

Код

<html>
<head>
    
</head>
<body>
    <a href="" name="lblLink">ССЫЛКА</a>

<script LANGUAGE="VBScript" src="mod.vbs">
</SCRIPT>

</body>
</html>


это код модуля..

Код

 Sub lblLink_onmouseover
  MsgBox "Вы на меня наехали!!!", 0, "My first active document"
 End Sub


На его основе и мути свою идею...

В прицепе всё это в виде файлов...

Добавлено @ 10:56 
И ещё. Мне не нравится оформление твоей процедуры

Код

Private Sub InfMess( mess As String )

    Call MsgBox( mess, vbCritical, "Информация" )

End Sub


В VBS все константы нетипизированные, т.е. типа Variant.

А ты описываешь переменную как String...


Присоединённый файл ( Кол-во скачиваний: 1 )
Присоединённый файл  MousOver.rar 0,45 Kb


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0569 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.