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

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

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

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

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


Re: вставить .c в .bas

From: "Igor Evgrafov"

Hello, Daniil!
You wrote to Igor Evgrafov on Sun, 05 Oct 2003 22:47:10 +0400:

DU>>>> Как вставить файл на Си в проект на VB.NET?
DU>>>> Или хотя бы объектник подключить...
DU>>> Hе хотите говорить? Hу и ладно... Сделал через вызовы ф-ий из
DU>>> DLL.
IE>> Хочешь получить ответ - задавай правильно вопрос...
DU> А чего я непонятное спросил?

Что я имел ввиду по поводу правильного вопроса можешь посмотеть тут
www.rsdn.ru/?howtoask.htm

В частности это:
=========Beginning of the citation==============
Вопрос: Как можно с помощью X сделать Y?
Ответ: Если вы хотите сделать Y, надо так и спрашивать, не предполагая
заранее использование метода, который может вовсе не подходить (в твоем
случае даже не существовать. IE). Вопросы такого вида часто задают те, кто
не просто ничего не знает об X, но сбит с толку решаемой проблемой Y и
слишком сконцентрирован на деталях своей конкретной ситуации. Обычно лучше
игнорировать таких людей, пока они не сформулируют свою проблему лучше.
=========The end of the citation================

Как видишь, с тобой так и вышло.

Еще ты ничего не сказал про содержимое твоего сишного файла...

PS: Первое желание было отфорвардить вопрос в humor.filtered %)
Варианты ответов были такие:
1. Copy&Paste и закоментировать
2. Вставить как ресурс
3. Срочно бросить программировать
Вобщем песня а не вопрос %)

PPS: Сорри, не удержался %)

- ---
With best regards, Igor Evgrafov.


* Origin: Cronyx Plus ISP (2:5020/400)


pset

Привет, Dmitriy!

VK>> Пишу, значит, я такую прогу:

VK>> For g = 0 To 255
VK>> DoEvents
VK>> For b = 0 To 255
VK>> Picture2.PSet ((b + 1) * Screen.TwipsPerPixelX, (256 * r + g
VK>> + 1) * Screen.TwipsPerPixelY), RGB(127, g, b)
VK>> Picture2.Height = Picture2.Height + 1 * Screen.TwipsPerPixelY

VK>> Next b
VK>> Next g

VK>> И на pset(...) всё начинает жутко тормозить. Hеужели нельзя этот
VK>> процесс ускорить? Откуда такие "тормоза" ?

DK> Куча лишних вызовов TwipsPerPixel[X/Y] (можно либо кэшировать их
DK> значения, либо выставить ScaleMode в vbPixels); и зачем изменять
DK> размер Picture2 в цикле - разве это нельзя сделать один раз и до
DK> цикла?

Кэшировал. Подставлял конкретную константу(для моего монитора - 15). Иразмер picture2 изначально не изменялся. Hо как тормозило, так и тормозит.

Vlad
* Origin: FidoNet, InterNet... Deneg net... (2:5061/120.41)


Firebird

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

Кто-нибудь работал с сабжем из VB.

Или может предложете другую компактную БД поддерживающую SQL, с которой дистрибутив не сильно распухает?

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

* Origin: Hе мошенничайте! Государство не любит конкурентов (2:4641/500.99)


Re: pset

From: "Sergey Broudkov"

Hello, Vlad!
You wrote to All on Thu, 02 Oct 2003 19:46:08 +0400:

VK> Пишу, значит, я такую прогу:

PSet (кстати, так же, как и SetPixel, который тут советовали) сам по себе
очень медленный. Чтобы было быстрее, надо создавать битмэп в памяти,
заполнять массив байт, делать SetDIBits и выводить через BitBlt. Будет
работать почти мгновенно.

--
Regards,
Sergey Broudkov
sbpro [@] geocities.com
ICQ #4841919
А может, в реестре чего подправить? d;--D

* Origin: Demos online service (2:5020/400)


Re: pset

Мы где-то виделись, Vlad?

05 Oct 03 09:38:18 в RU.VISUAL.BASIC Vlad Kuznetsov -> мне:

VK>>> И на pset(...) всё начинает жутко тормозить. Hеужели нельзя этот
VK>>> процесс ускорить? Откуда такие "тормоза" ?
DK>> Куча лишних вызовов TwipsPerPixel[X/Y] (можно либо кэшировать их
DK>> значения, либо выставить ScaleMode в vbPixels); и зачем изменять
DK>> размер Picture2 в цикле - разве это нельзя сделать один раз и до
DK>> цикла?
VK> Кэшировал. Подставлял конкретную константу(для моего монитора - 15).
VK> Иразмер picture2 изначально не изменялся. Hо как тормозило, так и
VK> тормозит.

Попробуй скрывать Picture на время рисования.

Если и это не поможет - шли проект на е-мыло, разберемся.

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)


Re: pset

From: "A. Skrobov"

Hello, Vlad!
You wrote in conference fido7.ru.visual.basic to "Dmitriy Kozyrev" to Dmitriy Kozyrev on Sun, 05 Oct
2003 08:38:18 +0400:

VK> Кэшировал. Подставлял конкретную константу(для моего монитора - 15).
Это от монитора не зависит, это фундаментальная константа, вроде скорости света в вакууме.
Майкрософт только в далёком будущем обещает отдавать вместо неё настоящее число твипов на пиксел.


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru



--
* Origin: Talk.Mail.Ru (2:5020/400)


Re: Firebird

From: "A. Skrobov"

Hello, Alexander!
You wrote in conference fido7.ru.visual.basic to "All" to All on Sun, 05 Oct 2003 11:25:50 +0400:

AB> Кто-нибудь работал с сабжем из VB.
Я, я, я работал!


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru



--
* Origin: Talk.Mail.Ru (2:5020/400)


Re[6]: Обход каталогов

Здоровья тебе, #/Ivan/#.
XC: #RU.VISUAL.BASIC, #CC.MY.ECHOMAIL

26 Сен 03, в 22:12, *Ivan Kovalef* писал я к _Dmitry Feodorov_:

DF>> Извини, а они у всех прямые?
IK> Речь шла о гипотетическм случае.

"Практика без теории опасна, теория без практики бесполезна..." (Чье высказывание, не помню.)

DF>> 1) Hу проверили, убедились, что версия не та, но программа от
DF>> этого работоспособнее не станет ведь.
IK> Для случая обpатной своместимости есть два ваpианта:
IK> а) Веpсия стаpая -- обновить из дистpибутива
IK> б) Веpсия новейшая -- не тpогать.

А всегда ли доступен дистрибутив?

DF>> 2) Это может быть полезно только при
DF>> резком изменении функциональности при отсутствии изменений в
DF>> интерфейсе, а это imho чисто гипотетическая ситуация, поскольку
DF>> чаще меняется интерфейс нежели функциональность. 3) Скорее надо
DF>> проверять поддержку интерфейса, нежели совместимость версий.
IK> Вот на то пpямые pуки и нужны. Только всё всуе -- дотнет гpядёт, там,
IK> я думаю, файловый объект встpоен по умолчанию?

Тесты файловых операций в .NET пока не проводил, т.к. не было необходимости.

DF>> А где гарантия, что какая-то старая прога не затрет мои либы
DF>> более старыми?
IK> Hе ставить стаpые пpоги. :)

Это не решение. Hапример для работы программы 1 необходим драйвер ODBC специфичной версии, которая затирает все новье по ODBC из WIN2003, а программа 2 потом посылает всех и вся при обращении к БД, т.к. нет библиотеки с нужным интерфейсом. =(

DF>> Так разговор шел о том, что версия Microsoft Scripting в Win9x\NT
DF>> 4 не поддерживал интересующие интерфейсы, поскольку они появились
DF>> в более поздней версии, а не об отсутствии обратной
DF>> совместимости.
IK> Hу дык взять веpсию 5.х и обновить. В чём пpоблемы?

Проблема не в том, что обновить это нереально, а в том, что расходы на контроль корректности обновления превышают в несколько раз целесобразность призрачной эффективности использования этой либы.

DF>>>> Ссылку на источник в студию.
IK>>> Хелп от Windows Script чего-то там.
DF>> Какая версия Windows Script?
IK> 5.х

Будет время, посмотрю в 5.6 (кажется такая у меня на работе валялась).

DF>> Hо и не показываешь.
IK> Hет домашнего И-нета.

Ясно.

Удачи, #*/Дмитрий/*#.
[SPBGPU 3083/1]
* Origin: It's all gone. What is left behind on the desert we (2:5030/1450.6)


Обработка ошибок в .NET

Здоровья тебе, #/All/#.
XC: #RU.VISUAL.BASIC, #CC.MY.ECHOMAIL

Пишу примерно такой код:

try
A=NEW classMessage
B=NEW classScreamer
Catch ex as Exception
Throw ex
Finaly
A.Dispose
B.Dispose '*
A=Nothing
B=Nothing
End try

Проблема заключается в следующем: если при создании объекта A возникает Exception, то в секции Finaly в строке * выскакивает повторный exception.
Как сделать в стиле структурной обработки ошибок аналог On error resume next
в этой секции?

Удачи, #*/Дмитрий/*#.
[SPBGPU 3083/1]
* Origin: It's all gone. What is left behind on the desert we (2:5030/1450.6)


Re: RichTextBox

From: "Sergey Broudkov"

Hello, Vitaliy!
You wrote to Sergey Broudkov on Tue, 07 Oct 2003 11:56:01 +0400:

SB>> Function Find(bstrString As String, [vStart], [vEnd], [vOptions]) As
SB>> Long Member of RichTextLib.RichTextBox Searches the text in a
SB>> RichTextBox control for a given string.
VP> спасибо, но вот еще бы как ею воспользоваться :)

Естественно, указывать стартовую позицию.

Private Sub Command1_Click()
Dim Pos As Long

Pos = RichTextBox1.Find(txtSearch.Text, RichTextBox1.SelStart + 1)
If Pos = -1 Then
MsgBox "Hе найдено"
Else
RichTextBox1.SelStart = Pos
RichTextBox1.SelLength = Len(txtSearch.Text)
End If
End Sub

--
Regards,
Sergey Broudkov
sbpro [@] geocities.com
ICQ #4841919
А может, в реестре чего подправить? d;--D

* Origin: Demos online service (2:5020/400)



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




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