Visual Basic 6.0 - Формы через WinAPI
Re: Формы через WinAPI
From: "Андрущенко \(Hордлинк\)" <naa [@] arh.ru>
"A. Skrobov" <tyomitch [@] r66.ru> сообщил/сообщила в новостях следующее:
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ордлинк\)" <naa [@] arh.ru>
Здравствуйте, 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] http://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: http://Svalka.Tk (2:5054/29.33)
Помогите с Printers. HELP !!!
From: "Polivtsev Evgenij" <zen [@] mail.wplus.net>
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 [@] smsoft.ru>
> SM> попробовать эмулировать выбор пункта контекстного меню
> SM> Проводника SendTo,
>
> КАК???
http://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 назад случайно не твой родственник?
А я даже не знаю (или уже не помню), что там произошло. Родственников там не
было точно, если не учитывать, что все мы произошли от Адама и Евы :-)
Сергей Мерзликин
http://www.smsoft.ru/ru/
* Origin: Sovintel (2:5020/400)
Re: Формы через WinAPI
From: "Sergey Merzlikin" <sm [@] smsoft.ru>
> А зачем юзеру его вообще таскать, если это "обычный" MsgBox,
только
> немодальный? Он (т. е. MsgBox) должен сам себя таскать. Вот я и думаю, что
> корректнее таскать, если этот MsgBox будет сделан через WinAPI
Если я правильно перевел эту фразу, должно быть окно, похожее на MsgBox, но
при этом немодальное, и программно перемещающееся по экрану? Так для этого
ничего проще и корректнее формы просто нет. А таскать ее можно за свойства
Left и Top, если надо, при помощи таймера.
Или это намек на многопоточность (т.е. окно должно плавно, не дергаясь
ездить по экрану в то время как основная часть программы что-то серьезное
вычисляет)? Тогда можно попробовать очень аккуратно вызвать CreateThread, и
во втором потоке вызвать API MessageBox. MessageBox придется описать в
библиотеке типов. Такая технология использования второго потока описана на
моем сайте в примере написания службы на VB. Hажатие пользователем кнопки
Cancel проще ловить по завершению работы потока, для чего можно использовать
функцию ожидания, о чем тоже есть статья на моем сайте.
--
Сергей Мерзликин
http://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 !
http://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 !
http://www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно.
* Origin: Иисус изменил вашу жизнь. Сохранить? [Y/N] (2:4641/500.99)