Техническая поддержка :

Современные решения

для защиты Windows программ

и восстановления исходного кода

Обсуждение программирования на Visual Basic в конференции ru.visual.basic


Re: Формы через WinAPI

From: "Андрущенко \(Hордлинк\)"

"A. Skrobov" сообщил/сообщила в новостях следующее:
news:001901c3d659$d2f96920$1298e2c2 [@] ASkrobov...

> АH>> Проще некуда: текстовое сообщение переменной ширины и переменной
> АH>> высоты, и опционально - под ним кнопка Cancel. Так что единственное
возможное
> АH>> событие для обработки - нажатие на Cancel. Так что ресурсы нет смысла
> АH>> использовать, поскольку всё равно размер и положение формы и кнопки
> АH>> Cancel вычисляется динамически в зависимости от габаритов текста.

> А тебе надо через WinAPI? Положи на форму текстбокс, вокруг него 8
пикчербоксов (у 4 сторон и 4 углов), и пусть юзер таскает себе
> спокойно.

А зачем юзеру его вообще таскать, если это "обычный" MsgBox, только
немодальный? Он (т. е. MsgBox) должен сам себя таскать. Вот я и думаю, что
корректнее таскать, если этот MsgBox будет сделан через WinAPI

--
С уважением Hиколай Андрущенко


* Origin: Internet-Arkhangelsk Company (2:5020/400)


RichTextBox

From: "Андрущенко \(Hордлинк\)"

Здравствуйте, All!

Есть ли какой-нибудь RichTextBox, который присутствует во всех системах? Я
нашел только Richtx32.ocx, но он отсутствует в Win 9x.

--
С уважением Hиколай Андрущенко


* Origin: Internet-Arkhangelsk Company (2:5020/400)


Ссылка в IE

H!, _[Alexander]_!
AB> Shell "start http://www.yourdomen.com"
Thx. Hо с мылом такое не пpокатит. :)

g'bye and g'luck, _[Alexander]_!
* Origin: Team: [No-CD] cd-check.tk (2:5054/29.33)


Stop Program?

H!, _[Vitaliy]_!
VP> on error resume next
VP> open "c:\1.txt"... 'файл, котоpый не существует.
Способ от Александpа оказался намного пpоще, но всё pавно спасибо.

g'bye and g'luck, _[Vitaliy]_!
* Origin: Down/Upload Soft: Svalka.Tk (2:5054/29.33)


Помогите с Printers. HELP !!!

From: "Polivtsev Evgenij"

VB5. Очень нужно распечатать документ на принтере не по умолчанию.
Пробую:

Debug.Print Printer.DeviceName
Set Printer = Printers(1)
Debug.Print Printer.DeviceName
Printer.Print "Test"
Debug.Print Printer.DeviceName

В Immediate Window:
Lexmark Z31 Series ColorFine
HP LaserJet 6L PCL
Lexmark Z31 Series ColorFine

и печать идет все равно на Lexmarke :-(

И еще, как в настройках сохранить именно выбраный юзером из списка принтер.
Hеужто по имени ? Ведь hDC не катит, а других ID я вроде не нашел...

Заранее спасибо, Евгений.


* Origin: Webplus NEWS server (2:5020/400)


Ссылка в IE

Hello, великий Alexander!

Смотрю, 13 Янв 04 в 20:45, Alexander Abramencov написал(а)(о) письмо к
Alexander Belinsky:

AB>> Shell "start http://www.yourdomen.com"
AA> Thx. Hо с мылом такое не пpокатит. :)

Е-мое, о чем спор! Гляди в сторону ShellExecute в API!
Call ShellExecute (hwnd, "Open","mailto:owl5053 [@] mail.ru","",app.path,1)

Удачи тебе, всемогущий Alexander!

* Origin: www.Hz-Saratov.narod.ru (2:5053/39.9)


Re: Typeless data

From: "Sergey Merzlikin"

> SM> попробовать эмулировать выбор пункта контекстного меню
> SM> Проводника SendTo,
>
> КАК???

www.codeproject.com/shell/sendtomail.asp

Увы, это не Бейсик, но принципиальных препятствий для перевода я не вижу.

> Создатели того же The Bat это успешно сделали...

Они, наверное, показывают письмо в The Bat, а не в дефолтном клиенте.

> SM> s = Replace(s, "/", "/\")
> SM> s = Replace(s, "'", "/`")
> SM> s = Replace(s, "0", "/Z")
> SM> s = Replace(s, vbNullChar, "0")
> SM> Восстановление - в обратном порядке той же функцией.
>
> Спасибо. Hу с нулем и апострофами понятно, а слэши зачем менять?

Слеш становится префиксным символом. В исходном тексте может встретиться
последовательность символов, совпадающая с результатом перекодировки, напр.
"/Z". Если слеш заранее не заменить, при обратной перекодировке она
заменится, а этого делать не нужно. Таким образом достигается взаимная
однозначность прямой и обратной перекодировок. Разумеется, вместо слеша
можно использовать другой символ.

> И вопрос вообще не по теме: тот лейтенант, котрый прославился на
> Таджикско-Афганской границе лет 10 назад случайно не твой родственник?

А я даже не знаю (или уже не помню), что там произошло. Родственников там не
было точно, если не учитывать, что все мы произошли от Адама и Евы :-)

Сергей Мерзликин
www.smsoft.ru/ru/


* Origin: Sovintel (2:5020/400)


Re: Формы через WinAPI

From: "Sergey Merzlikin"

> А зачем юзеру его вообще таскать, если это "обычный" MsgBox,
только
> немодальный? Он (т. е. MsgBox) должен сам себя таскать. Вот я и думаю, что
> корректнее таскать, если этот MsgBox будет сделан через WinAPI

Если я правильно перевел эту фразу, должно быть окно, похожее на MsgBox, но
при этом немодальное, и программно перемещающееся по экрану? Так для этого
ничего проще и корректнее формы просто нет. А таскать ее можно за свойства
Left и Top, если надо, при помощи таймера.

Или это намек на многопоточность (т.е. окно должно плавно, не дергаясь
ездить по экрану в то время как основная часть программы что-то серьезное
вычисляет)? Тогда можно попробовать очень аккуратно вызвать CreateThread, и
во втором потоке вызвать API MessageBox. MessageBox придется описать в
библиотеке типов. Такая технология использования второго потока описана на
моем сайте в примере написания службы на VB. Hажатие пользователем кнопки
Cancel проще ловить по завершению работы потока, для чего можно использовать
функцию ожидания, о чем тоже есть статья на моем сайте.

--
Сергей Мерзликин
www.smsoft.ru/ru/


* Origin: Sovintel (2:5020/400)


Отладка...

||*()*|| Ах это вы, Sergey ? А я вас не узнал без санитара...

13 янв 04 года ты писал(а) к мне:

>> AB> Стоит скомпиллировать файл как при выполнении программа
>> AB> вылетает с такими ругательствами:
>>
>> Пардон! Можно не отвечать. Проблема решилась компилляцией в
SM> псевдокод.

SM> Это не решение проблемы, а его эмуляция :-)
SM> По On Error можно поймать не всякую ошибку, особенно если установить
SM> параметры оптимизации. Если программа пишет в область памяти, не
SM> предназначенную для этого, непредсказуемое поведение гарантировано,
SM> причем в псевдокоде тоже. Что за некорректная операция?

Шифровка строк путем "сдвигания" на определенное число значения чарсета. Грубо говоря когда вызывается что-то типа Chr(-3).

I'll be back, Sergey !
www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно.

* Origin: Иисус изменил вашу жизнь. Сохранить? [Y/N] (2:4641/500.99)


Ссылка в IE

||*()*|| Ах это вы, Alexander ? А я вас не узнал без санитара...

13 янв 04 года ты писал(а) к мне:

AB>> Shell "start http://www.yourdomen.com"
AA> Thx. Hо с мылом такое не пpокатит. :)

Покатит. Shell "start mailto:a [@] b.com"

I'll be back, Alexander !
www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно.

* Origin: Иисус изменил вашу жизнь. Сохранить? [Y/N] (2:4641/500.99)



Назад Содержание Вперед




Главная     Программы     Статьи     Разное     Форум     Контакты