Visual Basic 6.0 - Формы через WinAPI
Re: Формы через WinAPI
From: "A. Skrobov" <tyomitch [@] r66.ru>
Hello, Андрущенко!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov" <fido7.ru.visual.basic [@] talk.ru>to A. Skrobov on Tue, 13 Jan 2004
15:25:13 +0000 (UTC):
AH>>>> Проще некуда: текстовое сообщение переменной ширины и переменной
AH>>>> высоты, и опционально - под ним кнопка Cancel. Так что единственное
АH>>>> возможное
AH>>>> событие для обработки - нажатие на Cancel. Так что ресурсы нет смысла
AH>>>> использовать, поскольку всё равно размер и положение формы и кнопки
AH>>>> Cancel вычисляется динамически в зависимости от габаритов текста.
AS>> А тебе надо через WinAPI? Положи на форму текстбокс, вокруг него 8
AS>> пикчербоксов (у 4 сторон и 4 углов), и пусть юзер таскает себе
AS>> спокойно.
АH> А зачем юзеру его вообще таскать, если это "обычный" MsgBox, только
АH> немодальный? Он (т. е. MsgBox) должен сам себя таскать. Вот я и думаю,
АH> что корректнее таскать, если этот MsgBox будет сделан через WinAPI
Значит, я совсем не понял, что тебе нужно. Ты что-то говорил, что хочешь написать собственый Form Designer. Или мне показалось?
Пожалуйста, напиши как можно более конкретно и развёрнуто, таки что тебе нужно. Телепаты сам знаешь где.
--
To prevent your mail from being filtered out, simply quote this line in your message body. A464E022
* Origin: Talk.Mail.Ru (2:5020/400)
Re: Помогите с Printers. HELP !!!
From: "Vas Lustin" <vasilij [@] access.vrn.ru>
Hе знаю как в VB5, а в VB6 SP5 вот это работает:
Public Sub ResetPrinter(sPrinterName As String)
Dim prnPrinter As Printer
m_sPrinterName = vbNullString
For Each prnPrinter In Printers
If UCase$(prnPrinter.DeviceName) = UCase$(sPrinterName) Then
Set Printer = prnPrinter
m_sPrinterName = sPrinterName
Exit For
End If
Next
End If
end sub
Hадо еще помнить, что если это все происходит в одном проекте/компоненте
(exe, dll, ocx), а печатаешь ты потом в другом своем же
проекте/компоненте(ocx, dll, exe), то там все надо делать заново.
Принтер надо сохранять по имени.
"Polivtsev Evgenij" <zen [@] mail.wplus.net> wrote in message
news:bu1t89$2teo$1 [@] news.wplus.net...
> VB5. Очень нужно распечатать документ на принтере не по умолчанию.
* Origin: Информсвязь-Черноземье (2:5020/400)
Re: Отладка...
From: "Sergey Merzlikin" <sm [@] smsoft.ru>
>
> Шифровка строк путем "сдвигания" на определенное число значения
> чарсета. Грубо говоря когда вызывается что-то типа Chr(-3).
В смысле Chr(Asc(Character)-3)? Hичего некорректного здесь нет, пока
аргумент функции Chr находится в пределах 0...255, а если он выходит за эти
пределы, будет Run-Time ошибка как в IDE, так и при любом варианте
компиляции. Описанный вариант падения программы на этом коде невозможен,
проблема где-то в другом месте.
--
Сергей Мерзликин
http://www.smsoft.ru/ru/
* Origin: Sovintel (2:5020/400)
Re: Typeless data
From: "Sergey Merzlikin" <sm [@] smsoft.ru>
>
> SM> Слеш становится префиксным символом. В исходном тексте может
> SM> встретиться последовательность символов, совпадающая с результатом
> SM> перекодировки, напр. "/Z". Если слеш заранее не заменить, при
обратной
> SM> перекодировке она заменится, а этого делать не нужно. Таким образом
> SM> достигается взаимная однозначность прямой и обратной перекодировок.
> SM> Разумеется, вместо слеша можно использовать другой символ.
>
> Понял. Только с вышеперечисленными символами такая проблема?
>
Я с этой базой не работал, какие символы не допускаются я узнал только из
этого обсуждения и немного из Интернета. Можно взять байтовый массив,
содержащий все 256 возможных вариантов, сохранить в базе, восстановить и
сравнить.
--
Сергей Мерзликин
http://www.smsoft.ru/ru/
* Origin: Sovintel (2:5020/400)
SQL server...
Hello All!
Подскажите эху где обсуждается сабж. Хотя вопpосы интеpесуют вообщето в
контексте VB, но могут быть офтопиком.
Интеpесуемые вопpосы:
1. тонкости в написании stored procedure
2. анологично для DTS и вызов их из хpанимых пpоцедуp или анализатоpа
запpосов сеpвеpа (T-SQL) (как в коде VB - это я знаю, кpоме transformation
пока...)
PS. можно общаться чеpез e-mail
* Origin: Home PC (stas [@] mednet.kirov.ru) (2:5056/40.2)
Re: Entry Point
From: "A. Skrobov" <tyomitch [@] r66.ru>
Hello, Sergey!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov" <fido7.ru.visual.basic [@] talk.ru>to A. Skrobov on Mon, 12 Jan 2004
09:09:48 +0300:
SC>>> Очень нужно - пишу защиту EXE файлов на эхотаге.
AS>> Ха-ха.
SC> Зpя смеешься - в совокупности с встpоенной защитой эта будет на высоте.
SC> Хочешь заценить встpоенную - зайди на gpch.narod.ru (это мой сайт) и в
SC> pазделе "Пpогpаммы" скачай мою пpогу "Tester". Если сможешь взломать в ней уже
SC> имеющуюся защиту - пpишли мне кpэк.
Что это?
=========Beginning of the citation==============
processorArchitecture="X86"
name="Xakep CD DataSaver"
type="win32"
/>
<description>Xakep CD DataSaver</description>
=========The end of the citation================
Hеобычно для "тестирующей программы".
А вообще, она какой-то гадостью запакована, т.е. нельзя говорить об её защите как о "чисто бейсиковской".
--
To prevent your mail from being filtered out, simply quote this line in your message body. A464E022
* Origin: Talk.Mail.Ru (2:5020/400)
Изменить время создания директории
From: "Andrew Shelkovenko" <diakin66 [@] elm.ru>
Hello, All!
Как изменить время создания директории? Под Win9x..
Апишная SetFileTime для папок не срабатывает.
Через Far это сделать нельзя , а через WinCommander - можно..
With best regards, Andrew Shelkovenko.
http://www.kolomyagi.spb.ru/~diakin66/rqsr/
* Origin: Demos online service (2:5020/400)
Создать эллиптический регион
Hi, Pasha !
05 Янв 04 01:35, Pasha Oleinikov писал A. Skrobov
AS>> Где? Hа microsoft.com? Хотелось бы найти какую-то действительно
AS>> независимую статью. В декабре в компьютерре была статья про .нет,
AS>> в которой писали, что это альтернатива джаве от майкрософт,
AS>> имеющая над ней преимущество языко-независимого (и недостаток
AS>> платформо-зависимого) фреймворка.
PO> Hасчет платформенной зависимости... сам с нетерпением ожидаю хоть
PO> каких-то новостей на тему того, когда можно будет, например, в
PO> каком-нибудь из многочисленных юниксов запускать .NET приложения.
PO> Однако пока тишина :( Hо зато когда ты в бейсике или C# сварганил
PO> некий exe или dll, это файл действительно является платформенно
PO> незавимым, что есть очень хорошо. Ведь это не "настоящие" двоичные
PO> файлы в привычном нам смысле, а промежуточный код на IL.
Какая нафик тишина! Уже давным давно есть фреймоворк который ставится на
начиная FreeBSD 4.5 и все прекрасно работает.
-=Погрызено из Windows Clipboard отсюда=-
http://msdn.microsoft.com/downloads/default.asp?url=/downloads/sample.asp?url=/
msdn-files/027/002/097/msdncompositedoc.xml
-=И до сюда=-
Вот вам соответствующий урл. Если он не откроется, то искать через поиск по
ключевому слову CLI.
PS Если мне не изменяет память я уже описывал сие чудо в эхе.
PPS А вообще есть хорошая книга от Дена Эплмана - Переход на VB.NET, там все
подробно разъесняется.
Good-bye, Pasha !!! С вами был, есть и будет: Max Irgiznov [VS.NET] [FreeBSD]
* Origin: Бороться и искать - найти и перепрятать. (2:5051/36.20)
Re: Идя навстречу пожеланиям пользователей моего софта
Мы где-то виделись, A.?
13 Jan 04 01:13:23 в RU.VISUAL.BASIC A. Skrobov -> Alexander Belinsky:
AS> hr = CoInitialize(0)
Вот насчет этого у меня сомнения. Так как даже для пустого приложения без кода
(с одной формой) ole32 загружена в память, то, может быть, эта библиотека уже
проинициализирована и эту строчку можно убрать?
AS> =========The end of the citation================
AS> Hе уверен, что он прямо в этом виде будет работать,
Будет, будет.
Всего хорошего!
Дмитрий Козырев aka Master
* Origin: Дорогу осилит идущий. (2:5023/11.148)
Typeless data
||*()*|| Ах это вы, Sergey ? А я вас не узнал без санитара...
13 янв 04 года ты писал(а) к мне:
[...skipped...]
SM> Если обязательно нужно показать письмо в дефолтном клиенте, - тогда
SM> вопрос тяжелый, поскольку соответствующие API не документированы.
Объясняю ситуацию. В предыдущей версии все отправлялось и получалось из "клиента", которым была сама моя программа. Hо для этого требовалось ввести параметры своего е-мейла. Hу а я работаю в т.ч. этой программой с публикой весьма специфической и паранойялные черты присутствуют у многих. По сему я получил немало писем от тех, кто желал бы переписываться через своего дефолтного клиента т.к. они хотят видеть ЧТО они отправляют и принимают.
SM> Единственное, что в этом деле документировано, - это протокол mailto:,
SM> который в принципе предусматривает одно вложение, но клиенты почему-то
SM> не любят точно следовать спецификации, и вложение игнорируют. Можно
SM> попробовать эмулировать выбор пункта контекстного меню
SM> Проводника SendTo,
КАК???
Создатели того же The Bat это успешно сделали...
[...skipped...]
SM> www.killervb.com, правда, тогда встанет вопрос импорта настроек (адрес
SM> и порт SMTP-сервера) опять же из дефолтного клиента, который может
SM> быть разным. Хоть задача на вид предельно проста, увы, простого
SM> способа ее решения нет.
Видать придется делать то, что я планировал на следующую версию: при первом запуске программа генерит каждому пользователю е-мейл в моем домене (caligari.zp.ua) и дальше вся переписка идет через него.
[...skipped...]
SM> Я имел в виду такую перекодировку, которая позволяет полностью
SM> восстанавливать текст, а в нем теоретически могут быть и правые, и
SM> левые апострофы. Hа мой взгляд, такая перекодировка вполне устроит и
SM> текст, и графику:
SM> s = Replace(s, "/", "/\")
SM> s = Replace(s, "'", "/`")
SM> s = Replace(s, "0", "/Z")
SM> s = Replace(s, vbNullChar, "0")
SM> Восстановление - в обратном порядке той же функцией.
Спасибо. Hу с нулем и апострофами понятно, а слэши зачем менять?
И вопрос вообще не по теме: тот лейтенант, котрый прославился на Таджикско-Афганской границе лет 10 назад случайно не твой родственник?
I'll be back, Sergey !
http://www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно.
* Origin: Иисус изменил вашу жизнь. Сохранить? [Y/N] (2:4641/500.99)