Visual Basic 6.0 - Re[4]: For Each .. In .... Next
Re[4]: For Each .. In .... Next
From: Alexander Asyabrik <belmis [@] mail.belpak.by>
Привет, 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 !
http://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 уже все исправлено. Если
не хочешь разбираться сам, но сервиспак ставить тоже нет желания, зайди на
http://www.vbrussian.com/Article.asp?ID=38.
Всего хорошего!
Дмитрий Козырев aka Master
* Origin: Дорогу осилит идущий. (2:5023/11.148)
Word.Window.hWnd
From: "A. Skrobov" <tyomitch [@] r66.ru>
Hi All,
Сабжа не существует. Как по объекту Word.Window узнать хэндл соответствующего
ему окна?
* Origin: FidoNet Online - http://www.fido-online.com (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 <belmis [@] mail.belpak.by>
Привет, 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 <belmis [@] mail.belpak.by>
Привет, 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)