Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

Открыть новую тему     Написать ответ в эту тему

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вопросы, задачи и их решения по VBScript.

 
Мануал (english, 600 Кб). | Зеркало
MS Scripting 5.6 (700 КБ), включает последнюю версию VBS. Владельцам XP/2000(?) должен быть не нужен. | Зеркало
Немного на wikiпедии.
Предыдущие части: 1
 
Смежные темы:
Сценарии Windows
Командная строка, батники\сценарии (bat, cmd)
Скрипты KiXtart

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 04:12 12-07-2011 | Исправлено: Smitis, 23:28 26-02-2018
esys

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
В маткаде (Mathcad) компонент выпадающего списка сделан так:

Код:
Sub ScriptObjEvent_Start()
End Sub
Sub ScriptObjEvent_Exec(Inputs,Outputs)
 
Dim ValueArray(4)
Dim ListArray(3)
 
ValueArray(0) = 8.5
ValueArray(1) = 11.5
ValueArray(2) = 14.5
ValueArray(3) = 17
 
ListArray(0) = "В15"
ListArray(1) = "В20"
ListArray(2) = "В25"
ListArray(3) = "В30"
 
ScriptObj.List() = ListArray
If (ScriptObj.ListIndex < 0) Then Outputs(0).Value = 0 Else Outputs(0).Value = ValueArray(ScriptObj.ListIndex)
End Sub
Sub ScriptObjEvent_Stop()
Rem TODO: Add your code here
End Sub

 
В W7 нормально работает, в W10 и W11 перестало работать. В чем может быть причина?

Всего записей: 521 | Зарегистр. 22-06-2016 | Отправлено: 18:25 16-01-2025 | Исправлено: esys, 18:40 16-01-2025
wewqasasdx12321

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
esys
 
удалил
 

Всего записей: 37 | Зарегистр. 23-12-2024 | Отправлено: 05:57 17-01-2025 | Исправлено: wewqasasdx12321, 18:29 01-02-2025
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2025

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru