Евгений Листюк. Отзовись если слышишь! (сори офтопик)
- Автор темы Boyler
- Дата начала
- Статус
- Сообщения
- 50
- Реакции
- 0
Ответ: Евгений Листюк. Отзовись если слышишь! (сори офтопик)
Ради бога, просто мне стыдно свои-то выкладывать когда тут профессионалы работают!
Ну "написал" я себе пару скриптов на замену и для печати.
Если ты посчитаешь их достойными пожалуйста я не жадный. Только их подрихтовать надо будет, для масс, так сказать.
Скажи как и куда выложить.
Очень хочу!
Клянусь своей треуголкой! :o
Ради бога, просто мне стыдно свои-то выкладывать когда тут профессионалы работают!
Ну "написал" я себе пару скриптов на замену и для печати.
Если ты посчитаешь их достойными пожалуйста я не жадный. Только их подрихтовать надо будет, для масс, так сказать.
Скажи как и куда выложить.
vbatushev
20 лет на форуме
- Сообщения
- 2 242
- Реакции
- 1 227
Ответ: Евгений Листюк. Отзовись если слышишь! (сори офтопик)
Без лести, плиз
Чтобы выложить, шли мне или, если Бутрин тебе как учитель ближе, ему Выложим. Только описание обязательно приложи, здорово будет, если скриншот сам сделаешь (лучше в PNG).
А теперь о советах.
В VB есть четыре удивительные функции для хранения данных программы в реестре:
GetSetting(appname, section, key[, default])
GetAllSettings(appname, section)
SaveSetting appname, section, key, setting
DeleteSetting appname, section[, key]
Точнее последние две - это процедуры (значения не возвращают).
Как ими пользоваться.
Первые две, как видно из названия, позволяют нам забрать значение из реестра (или все значения из этой ветки).
например,
myValue = GetSetting(App.Title, "Settings", "myValue", 0)
То есть из ветки, посвященной нашей программе (App.Title возвращает имя запущенной программы), из секции "Settings", необходимо взять значение ключа "myValue", а если такового не окажется, использовать в качестве значения по умолчанию 0.
С помощью функции GetAllSettings можно слить все значения из секции в массив.
Записать значение ключа позволяет нам процедурка SaveSetting. Например, так
SaveSetting App.Title, "Settings", "myValue", 16
То есть мы присвоили ключу myValue значение 16.
Чтобы стереть секцию, прибегнем к DeleteSetting:
DeleteSetting App.Title, "Settings"
так мы стираем всю секцию, а так
DeleteSetting App.Title, "Settings", "myValue"
только ключ myValue.
Ах, да, куда все складывается в реестре.
HKCU\Software\VB and VBA Program Settings\"Имя твоей программы"
Фу, аж устал
Без лести, плиз
Чтобы выложить, шли мне или, если Бутрин тебе как учитель ближе, ему
Выложим. Только описание обязательно приложи, здорово будет, если скриншот сам сделаешь (лучше в PNG).А теперь о советах.
В VB есть четыре удивительные функции для хранения данных программы в реестре:
GetSetting(appname, section, key[, default])
GetAllSettings(appname, section)
SaveSetting appname, section, key, setting
DeleteSetting appname, section[, key]
Точнее последние две - это процедуры (значения не возвращают).
Как ими пользоваться.
Первые две, как видно из названия, позволяют нам забрать значение из реестра (или все значения из этой ветки).
например,
myValue = GetSetting(App.Title, "Settings", "myValue", 0)
То есть из ветки, посвященной нашей программе (App.Title возвращает имя запущенной программы), из секции "Settings", необходимо взять значение ключа "myValue", а если такового не окажется, использовать в качестве значения по умолчанию 0.
С помощью функции GetAllSettings можно слить все значения из секции в массив.
Записать значение ключа позволяет нам процедурка SaveSetting. Например, так
SaveSetting App.Title, "Settings", "myValue", 16
То есть мы присвоили ключу myValue значение 16.
Чтобы стереть секцию, прибегнем к DeleteSetting:
DeleteSetting App.Title, "Settings"
так мы стираем всю секцию, а так
DeleteSetting App.Title, "Settings", "myValue"
только ключ myValue.
Ах, да, куда все складывается в реестре.
HKCU\Software\VB and VBA Program Settings\"Имя твоей программы"
Фу, аж устал
- Сообщения
- 50
- Реакции
- 0
Ответ: Евгений Листюк. Отзовись если слышишь! (сори офтопик)
Отправил как и обещал. Правда с задержкой, за что извиняюсь.
Пока один. С описанием и коментариями.
Хочеться сказать что заколебался его готовить столько деталей пришлось предусмотреть. Код увеличился фактически в три раза.
Начал уважать ваш труд...
А бумаги-то сколько попортил... :mad:
В общем дальше вам решать выкладывать или нет!
Отправил как и обещал. Правда с задержкой, за что извиняюсь.
Пока один. С описанием и коментариями.
Хочеться сказать что заколебался его готовить столько деталей пришлось предусмотреть. Код увеличился фактически в три раза.
Начал уважать ваш труд...
А бумаги-то сколько попортил... :mad:
В общем дальше вам решать выкладывать или нет!
Ответ: Евгений Листюк. Отзовись если слышишь! (сори офтопик)
Я вот СЛУЧАЙНО нашел данную тему... Прошу прощения, что САМ не ответил, но в конечном итоге главное результат. Виталию (что прехватил) за это... спасибо!!!
Нам?! Нет так дело не пойдет! Либо ты заваливаешь всех (через indesign.rudtp.ru) своими скриптами, либо остаешься со своим ДОБРОМ. А там как в сказке ....кащей над златом.. (чё-то настроение у меня... загадочное
).
На будущее: ЛЮДИ пишите на моё мыло (есть во всех скриптах), так хоть есть железобетонная уверенность в том что прочитаю во время, а отвечу обязательно!!!!!!!!!
Я вот СЛУЧАЙНО нашел данную тему... Прошу прощения, что САМ не ответил, но в конечном итоге главное результат. Виталию (что прехватил) за это... спасибо!!!
Boyler сказал(а):
Нам?! Нет так дело не пойдет! Либо ты заваливаешь всех (через indesign.rudtp.ru) своими скриптами, либо остаешься со своим ДОБРОМ. А там как в сказке ....кащей над златом.. (чё-то настроение у меня... загадочное
).На будущее: ЛЮДИ пишите на моё мыло (есть во всех скриптах), так хоть есть железобетонная уверенность в том что прочитаю во время, а отвечу обязательно!!!!!!!!!
- Статус