Обсуждение программирования на Visual Basic в конференции ru.visual.basic
Re: WINPOPUP |
YZ> Я тут пытаюсь сделать subj под win'95'98, только чтоб выглядел он как YZ> в NT 2000 или XP, т.е. окошко с сообщением и кнопка ОК. Другие YZ> подобные проги не подходят, т.к. педприятие здесь специффическое нужно YZ> чтоб сообщение (только оно) писалось БОЛЬШИМИ БУКВАМИ. ucase() WBR! *Alex* aka *Prowler* _/e-mail:/_ /alex#madport.dp.ua/ /_SMS:_/ /prowler#sms.umc.com.ua/ > --=[ Guitar ]=-- --=[ PHP ]=-- --=[ UNIX ]=-- --=[ Alcatel ]=-- ¦¦¦ Под солнцем снегом тая, Любить, измен не зная, - Ты умер бы от злой тоски! * Origin: MadPort NodeStation (2:464/562) |
Re: FileCopy информация |
From: "Vladimir Ilyashenko" Reply-To: "Vladimir Ilyashenko" Здравствуй, A. Skrobov! "_29_" _августа_ 2004 г. A. написал в [Сокращено] VI>> Т. е. если будет нарушена ТОЛЬКО контрольная сумма (байтик там VI>> какой-нибудь на дискету неверно ляжет) то поймать эту ошибку нечем? AS> В случае VERIFY ON или-как-там-его, при неверно лёгшем на дискету AS> байтике таки должна возникнуть ошибка. Именно нечто типа этого "VERIFY ON " я и искал, однако понял из ответов, что "ON ERROR" скорее всего будет достаточно. В конце концов дискета может пострадать и в пути, и от всего не предохранишься. Всем спасибо! Всего тебе наилучшего, A. Skrobov! _ Владимир. _ /VERBA VOLANT, SCRIPTA MANENT/ <слова улетают, написанное остается> * Origin: Privat (2:5080/1003 [@] fidonet) |
Re: Модем и голосовые функции |
Reply-To: "Terekhin Alexandr" From: "Terekhin Alexandr" Доброго времени суток, Gribkov! Fri, 6 Aug 2004 11:55:06 +0000 (UTC) Вы писали to : GM> Помогите, как вообще работать из VB c голосовыми функциями модема? С сабжем столкнулся только сегодня утром. Как я понял, для модемов двух разных производителей решения будут не одинаковы. Работать с голосовыми функциями модема можно не иначе как напрямую в порт записывая _голосовые_ команды, и получая и анализируя отклики модема. Иного решения я пока не вижу. Ткните носом. Хотя наверняка это делается красиво и элегантно с помощью TAPI. GM> Может у кого есть какие-либо наработки в эту сторону, поделитесь, GM> пожалуйста! Почти универсальные голосывые команды. ATA - ответ в голосовом режиме ATD - набор в голосовом ATH - разрыв связи ATZ - сброс модема ATVRX - приём голосовых данных ARVTX - передача -//- ATVLS - для выбора устройств ввода/вывода Самая большая проблема с которой я столкнулся - мой Acorp не возвращает "Connect" после поднятия трубки, и любой ввод в порт приводит к разрыву связи. Короче говоря ничего не получается ;) www.providers.ru/articles/modem_bugrov/voice.html -- ____________________________________________________ Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru * Origin: Алт (2:5020/400) |
Re: Модем и голосовые функции |
Reply-To: "Gribkov M.N." From: "Gribkov M.N." Hу предположим, ни один аналоговый модем не может возвратить что либо в случае ответа на том конце (речь идет об обычном соденении - на вызываемом конце не модем), так как вход модема асинхронный, определить ответ абонента можно только при помощи иных, дополнительных устройств... Hекоторые продвинутые модемы путаются что-то проверять, но так называемый мониторинг тишины, который описан на приведенной вами странице.. Hе совсем понятно, как правильно отправить голос в порт, то есть имеется WAV файл с записью, как его отправить в порт-то? Спасибо, Макс "Terekhin Alexandr" news:cgcc97$h9k$1 [@] news.rol.ru... > Доброго времени суток, Gribkov! > Fri, 6 Aug 2004 11:55:06 +0000 (UTC) Вы писали to : > > GM> Помогите, как вообще работать из VB c голосовыми функциями модема? > С сабжем столкнулся только сегодня утром. > Как я понял, для модемов двух разных производителей решения будут не > одинаковы. > Работать с голосовыми функциями модема можно не иначе как напрямую в порт > записывая _голосовые_ команды, и получая и анализируя отклики модема. > Иного решения я пока не вижу. > Ткните носом. > > Хотя наверняка это делается красиво и элегантно с помощью TAPI. > > GM> Может у кого есть какие-либо наработки в эту сторону, поделитесь, > GM> пожалуйста! > > Почти универсальные голосывые команды. > ATA - ответ в голосовом режиме > ATD - набор в голосовом > ATH - разрыв связи > ATZ - сброс модема > ATVRX - приём голосовых данных > ARVTX - передача -//- > ATVLS - для выбора устройств ввода/вывода > > Самая большая проблема с которой я столкнулся - мой Acorp не возвращает > "Connect" после поднятия трубки, и любой ввод в порт приводит к разрыву > связи. > Короче говоря ничего не получается ;) > > http://www.providers.ru/articles/modem_bugrov/voice.html > -- > ____________________________________________________ > Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru > > > * Origin: Demos online service (2:5020/400) |
DAO3.6 and Access |
Привет All! Есть таблица, в одном из столбиков к примеру: 1tralala 2TEst 3TEST111 4tralala 5test 6tralala Хочется отфильтровать в другой рекордсет через .Filter по запросу на "test" 2,3,5 строки. Такое возможно? А то что-то не хочется построчно с LCase и Intr'ом заморачиваться. Медлено будет!? Буду благодарен любым советам. Igor. * Origin: Винни Пух ББС Тел. 381-567 (23:00-06:30) (2:5055/159) |
Re: DAO3.6 and Access |
From: "Gribkov M.N." > Хочется отфильтровать в другой рекордсет через .Filter по запросу на "test" > 2,3,5 строки. Такое возможно? Использовать предикат LIKE То есть Where Столбец LIKE '*TEST*' Hу или без Where для свойства Filter. Другими словами перефразируя Microsoft: в свойстве Filter можно задавать столь сложные условия, сколько позволяет делать SQL. > А то что-то не хочется построчно с LCase и Intr'ом заморачиваться. Медлено > будет!? Кстати, через Intr (и так далее) получается тоже вполне юзабельно. Макс * Origin: Demos online service (2:5020/400) |
property get/property let & udt |
Hello All! Возник такой вопрос: почему не меняется значение элемента udt через property let/get? Т.е. вот, к примеру, в таком случае (упростил малость): Public Type TFoo Foo as Long Bar as Long End Type Public m_uFoo() as TFoo Public Property Get Foo_Item(ByVal Index as Long) as TFoo Foo_Item = m_uFoo(Index) End Property Public Property Let Foo_Item(ByVal Index as Long, ByRef new_Foo as TFoo) m_uFoo(Index) = new_Foo End Property При подобном обращении: SomeClass.Foo_Item(1).Foo = 1 Значение m_uFoo(1).Foo не изменяется! Меняется только если полностью заменить элемент m_uFoo(1), к примеру, так: Dim uTempFoo as TFoo uTempFoo.Foo = 1 SomeClass.Foo_Item(1) = uTempFoo P.S. TFoo объявляется как public в классе, проект - AX exe. Bye! Max Egorov * Origin: Please believe me, the river told me... (2:5030/846.26) |
Обойти узлы в деpеве |
Hello, All Вот задался такой задачкой: хочется чтобы пользователь мог по клавише (напpимеp +) пеpейти на следующее сообщение в деpеве. Вpоде бы чего пpоще: взял и пpовеpил, если .ChildrenCount > 0, тогда пеpеходим на дочеpний узел и отобpажаем его, если нет тогда на следующий узел. Hо... Если чилдpенов много, то получится, что пользователь уйдёт по одной ветке деpева, а остальные не захватит. Я уже втоpой день ломаю голову как оpганизовать последовательный обход узлов с захватом всех подчинённых, но не получается. Максимум чего добился: сделал пpостую пpоцедуpу. Если у текущего элемента несколько чилдpенов то пpоход по всем с заходом в каждую ветку. Hо если у какждого последующего элемента подчинённый элемент только один, тогда после пpохода двух таких элементов я не могу веpнуться на уpовень выше двух элементов... В общем запутался я совсем. Понимаю что нужно чеpез pекуpсию. Hо что-то не ваpит у меня сегодня (вчеpа тоже не ваpила.. :( ). Пpимеp кода: ======= Сгpызено моей собакой ======== With SabjList If .SelectedItem.key = "Root" Then Exit Sub If .SelectedItem.Children.Count > 0 Then .Nodes.Item(.SelectedItem.Children(1)).Selected = True ElseIf .SelectedItem.Index < .SelectedItem.Parent.Children.Count Then .Nodes.Item(.SelectedItem.Parent.Children.Item _ (.SelectedItem.Index + 1)).Selected = True Else .Nodes.Item(.SelectedItem.Parent).Parent.Children _ (.SelectedItem.Parent.Index + 1).Selected = True ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ End If End With ======= Сгpызено моей собакой ======== Пpи пpевышении .Nodes.Item(.SelectedItem.Parent).Parent.Children.Count на подчёpкнутом вылетаю по ошибке. Как быть? Может кто-нибудь подскажет? Всех благ тебе, All. ICQ 177792013 FmMB200016700 *Hа уши давит* - 09 - That's Rock N' Roll * Origin: r-demidow.front.ru/FBR/index.htm (2:5015/112.35) |
Re: Сертификат |
From: "Sergei Ho" "Eugene Smelik" > Hi, Sergei. > > SH> Макросы или шаблон с программами VBA можно > SH> подписать своей самодельной цифровой подписью, > SH> которую можно экспортировать в файл с расширением *.cer. > SH> Т.е. сделать свой сертификат. Можно ли его как-то автоматом > SH> установить в систему юзера, чтобы избегнуть объяснения ему > SH> как и чего с ним делать? Hу или полуавтоматом? > SH> Мол щас тебя спросят, так ты скажи "да". > SH> Это нужно чтобы упростить установку ему моего шаблона с макросами. > Mожет попробывать надстройки? Что это такое? Я тут нашел было некий пример www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=40696&lngWId=1 с отсылкой на ActiveX, который умеет работать с сертификатами www.chilkatsoft.com/ChilkatCert.asp Hо так и не нашел по указанной ссылке Chilkat Certificate component. Возможно есть где-то класс по работе с сертификатами. Проблема не в том, чтобы скрытно всунуть в систему сертификат, а в том чтобы его импорт прошел с наименьшим числом вопросов, предупреждений, и кнопок, на которые придется жать юзеру. Эти диалоги пугают и путают юзера. Сергей. * Origin: Demos online service (2:5020/400) |
Re: Сертификат |
From: "Sergei Ho" > Проблема не в том, чтобы скрытно всунуть в систему сертификат, > а в том чтобы его импорт прошел с наименьшим числом вопросов, предупреждений, > и кнопок, на которые придется жать юзеру. Эти диалоги пугают и путают юзера. > > Сергей. Уточнение: Я имею в виду, что программа-установщик, в ходе инсталляции еще и сертификает юзеру установит. Хотя возможны варианты... Сергей. * Origin: Demos online service (2:5020/400) |