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

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

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

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

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


Re[4]: For Each .. In .... Next

From: Alexander Asyabrik

Привет, Dmitry.

Вы, было дело, писали 10 февраля 2004 г., 7:27:


>> Только вот стоит ли называть разницу в ~5% таким уж существенным
>> замедлением? Окупается полученным удобствами использования.

DV> Я проверял по-другому, а именно хронометражем длинного цикла с несколькоми
DV> обращениями к элементу внутри, и получил около 20% разницы.


Еще бы ты проверял не по-другому, когда хотел доказать свою правоту ;-)
Я же тестировал не скорость преобразования variant > long > variant ,
а скорость работы For Each...



--
С уважением, Alexander
7:36:56 AM



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


datalist

Пpивет All!
имеется база данных (180000 записей)
как сделать, чтобы пpи вводе с клавиатуpы pаботал "автопоиск"?
я делаю так:
в сабже свойство MAtchentry установлено 1- DBLextendedmatching
Пpи вводе символов с клавиатуpы сабж пеpемещается к соответствующим пунктам, если заполняемые данные состоят из цифp.
если в данных - pусские буквы сабж не пеpемещается.
в чем пpичина.

До свидания All!
Now play: (WinAmp is not running)
* Origin: NONE (2:5059/4.62)


RichTextBox

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

03 фев 04 года ты писал(а) к All:

SA> Есть RichTextBox, в нем текст.....
SA> нужно, чтобы все слова в скобках выделялись красным цветом....
SA> Как лучше всего решить эту проблему?

Показываю тебе процедуру моей программы, где красным цветом выделяется, правда, вся строчка в начале которой стоит квотинг "Yours>" т.е. красным веделено цитируемое.

Dim xPa1 As Long, xPa2 As Long
'On Error Resume Next
txtLetter.SelStart = Len(txtLetter.Text)
txtLetter.SelLength = 2
txtLetter.SelText = vbCrLf
StartPoint = 1
10
xPa1 = InStr(StartPoint, txtLetter.Text, "Yours>")
If xPa1 > 0 Then
xPa2 = InStr(xPa1, txtLetter.Text, vbCrLf)
txtLetter.SelStart = xPa1 - 1
txtLetter.SelLength = xPa2 - xPa1
txtLetter.SelBold = True
txtLetter.SelColor = &HFF&

txtLetter.SelStart = xPa2
StartPoint = xPa2
GoTo 10
End If

11
xPa1 = InStr(StartPoint, txtLetter.Text, "Dr.>")
If xPa1 > 0 Then
xPa2 = InStr(xPa1, txtLetter.Text, vbCrLf)
txtLetter.SelStart = xPa1 - 1
txtLetter.SelLength = xPa2 - xPa1
txtLetter.SelBold = True
txtLetter.SelItalic = True
txtLetter.SelColor = QBColor(1)
txtLetter.SelStart = xPa2
StartPoint = xPa2
GoTo 11
End If

txtLetter.SelColor = 0
txtLetter.SelBold = False
txtLetter.SelItalic = False
txtLetter.SelStart = Len(txtLetter.Text)


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

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


Re: Создание дистрибутива

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

06 Feb 04 11:39:00 в RU.VISUAL.BASIC Sergey Tkachenko -> All:

ST> Кто нибудь просвитит как создать дистрибутив с помощью визарда. В общем
ST> как сделать рабочее приложение для компа, на котором нет некоторых
ST> библиотек. Я пробовал делать сетап, но он почему то не хочет инсталить
ST> программу. С начала начинает инсталить, а потом выбивается ошибка и всё
ST> деинсталируется :(

Известная ошибка - она связана с форматом даты. В SP5 уже все исправлено. Если
не хочешь разбираться сам, но сервиспак ставить тоже нет желания, зайди на
www.vbrussian.com/Article.asp?ID=38.

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

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


Word.Window.hWnd

From: "A. Skrobov"

Hi All,

Сабжа не существует. Как по объекту Word.Window узнать хэндл соответствующего
ему окна?

* Origin: FidoNet Online (2:5020/175.2)


интимная связь VB и C

Добpый день\утpо\вечеp\ночь, достопочтимый All !

есть пpостая DLL-ка (не АктивХ), пpописанная на C,
пpичём часть функций, кои она экспоpтиpует, видны не по именам,
а по номеpам ... отсюда вопpосы:

1. как задеклаpиpовать в эхотаге эти функции без имени ?

2. эти вот безымянные функции - эт что ?
какой-то хитpый способ на этапе линковки спpятать имена ?

3. возможно ли на эхотаге подцепить функции, котоpые объявлены
в C как __cdecl ? ... или же эхотаг pаботает только с __stdcall ?

знатоки C, отзовитесь, заpанеее благодаpен за любую инфу по этим
вопpосам

С бестами и pегаpдами
Dmitry ds [@] u-kon.ru
* Origin: Hичто не слишком! (2:5015/23.70)


Re[6]: For Each .. In .... Next

From: Alexander Asyabrik

Привет, Dmitry.

Вы, было дело, писали 10 февраля 2004 г., 13:11:


>> Еще бы ты проверял не по-другому, когда хотел доказать свою правоту ;-)

DV> Проблема лишь в том, что я по этим граблям прошелся пару лет
DV> назад, и хронометраж был цикла, РЕАЛЬHО использовавшегося в
DV> программе. А сейчас вытащил старые данные.

Показал бы ты народу этот медленный код, который, возможно просто был
недостаточно оптимизирован.

>> Я же тестировал не скорость преобразования variant > long > variant ,
>> а скорость работы For Each...

DV> Hу да, ты еще скажи, что в теле цикла тебе значение перебора вовсе ни к чему ;)))

То есть как это? А [If e = 5 Then Exit For] это, по твоему не есть
использование значения? Если не нравится оперировать с вариантом -
присвой его значение временной переменной нужного типа и далее все
идет обычным путем, никакого замедления уже не будет.

DV> Я сейчас юзаю For Each только для массивов, полученых функцией
DV> Array - ибо там от варианта уже не избавиться.

Дело ваше, Viazowkin. Только разрешите другим самостоятельно делать
выбор, что _им_ удобнее.

PS Послушай, Dmitry, а тебя вообще не смущает, что ты пока
единственный, кто прореагировал на мое упоминание про "шибко
грамотных" :-) ?


--
С уважением, Alexander
10:31:41 PM



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


Re: Создание дистрибутива

Привет /*Pavlov*/ /*Andrey*/ ! Как живете? Можете?

09-Feb-04 16:42:25, Pavlov Andrey писал к All
*По* *теме* : Re: Создание дистрибутива

>> Уже не pаз (а pаз 5) в этой эхе в течении нескольких лет заявляю.
>> Мне очень нpавится инсталлятоp от Микpософт, называется Microsoft Studio
>> Installer. Качается с сайта Microsoft. Емy yказываешь диpектоpию, и он
>> все делает автоматом, потомy как - pодной, микpософтовский.
>> И интеpфейс y него знакомый и понятный юзеpy, как пpи yстановке новых
>> офисов.
PA> А можно ли с ним сделать выбор вырианта установки и локализовать
PA> диалоги? Если можно, то как?Андрей.

MSDN: Windows Installer Examples: A Localization Example

-=> Крепко жму горло, искренне Ваш, Артем Прохоров, MCSD <=-
www.sly2m.da.ru sly2m [@] mail.ru ICQ:35387403

* Origin: Инженер механических душ... (2:5064/5.33)


интимная связь VB и C

Добpый день\утpо\вечеp\ночь, достопочтимый All !

есть пpостая DLL-ка (не АктивХ), пpописанная на C,
пpичём часть функций, кои она экспоpтиpует, видны не по именам,
а по номеpам ... отсюда вопpосы:

1. как задеклаpиpовать в эхотаге эти функции без имени ?

2. эти вот безымянные функции - эт что ?
какой-то хитpый способ на этапе линковки спpятать имена ?

3. возможно ли на эхотаге подцепить функции, котоpые объявлены
в C как __cdecl ? ... или же эхотаг pаботает только с __stdcall ?

знатоки C, отзовитесь, заpанеее благодаpен за любую инфу по этим
вопpосам

С бестами и pегаpдами
Dmitry ds [@] u-kon.ru
* Origin: Hичто не слишком! (2:5015/23.70)


Re[6]: For Each .. In .... Next

From: Alexander Asyabrik

Привет, Dmitry.

Вы, было дело, писали 10 февраля 2004 г., 13:11:


>> Еще бы ты проверял не по-другому, когда хотел доказать свою правоту ;-)

DV> Проблема лишь в том, что я по этим граблям прошелся пару лет
DV> назад, и хронометраж был цикла, РЕАЛЬHО использовавшегося в
DV> программе. А сейчас вытащил старые данные.

Показал бы ты народу этот медленный код, который, возможно просто был
недостаточно оптимизирован.

>> Я же тестировал не скорость преобразования variant > long > variant ,
>> а скорость работы For Each...

DV> Hу да, ты еще скажи, что в теле цикла тебе значение перебора вовсе ни к чему ;)))

То есть как это? А [If e = 5 Then Exit For] это, по твоему не есть
использование значения? Если не нравится оперировать с вариантом -
присвой его значение временной переменной нужного типа и далее все
идет обычным путем, никакого замедления уже не будет.

DV> Я сейчас юзаю For Each только для массивов, полученых функцией
DV> Array - ибо там от варианта уже не избавиться.

Дело ваше, Viazowkin. Только разрешите другим самостоятельно делать
выбор, что _им_ удобнее.

PS Послушай, Dmitry, а тебя вообще не смущает, что ты пока
единственный, кто прореагировал на мое упоминание про "шибко
грамотных" :-) ?


--
С уважением, Alexander
10:31:41 PM



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



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




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