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

для защиты Windows приложений

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

Visual Basic 6.0 - Пpокpутка в TextBox


Пpокpутка в TextBox

>> AE> Как сделать, чтобы пpи добавлении текста скpолл автоматически

>> AE> пpокpучивался на самую нижнюю (последнюю) стpоку текстового

>> AE> поля?

>> Слать текстбоксу EM_LINESCROLL

SM> Я делаю иначе, так получается быстрее, чем конкатенация строк, а

SM> заодно текстбокс сам прокручивается:

SM> With txtTextbox

SM> .SelStart = Len(.Text) + 1&

SM> .SelText = AddedText

SM> End With


И скрулбар мигает. ;)


* Origin: 1134 (2:5045/44.13)

Re: спрошу сейчас

Hello, Roman!
You wrote to <All>to All on 15 Jul 04 18:13:17:


RY> Пока у местных гуру обострение кризиса помогабельности, спрошу еще

RY> вопрос, на который мне так никто раньше и не ответил:

RY> Как в меню нарисовать соответствие пунктам меню не только для

RY> CTRL+Letter, а для любого пункта (ведь в куче программ такое есть!).

Я не уверен, что ты именно это имеешь в виду, но mnuItem = "то что слева" &
vbTab & "то что справа"
* Origin: Здесь будет ориджин (2:5080/1003.16)

Re: Threads

From: "A. Skrobov" <tyomitch [@] r66.ru>


Hello, Dmitriy!
You wrote in conference fido7.ru.visual.basic to "Roman Yuakovlev"
<fido7.ru.visual.basic [@] talk.ru>to Roman Yuakovlev on Thu, 15 Jul 2004

09:30:31 +0400:

RY>> Hужно, чтобы с образом было можно работать в памяти, а потом всем

RY>> скопом его за один проход отрисовать.

DK> Посмотри на моем сайте пример "Поворот картинки".

Весь день вращал хомяка.
Достигнута оптимизация в 1,5 раза.
Отчёт здесь: http://mix.web.ur.ru/rotate.html
--

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

Re: нашел

Hello, Roman!
You wrote to "A. Skrobov" <A. Skrobov [@] p2.f175.n5020.z2.fidonet.org>to A.

Skrobov on 15 Jul 04 23:16:21:

RY>>>>> В каких случаях отдается UnloadMode = 0?

AS>>>> А ещё говоришь, VB5 лучше, потому что с хэлпом...

RY>>> И знаю я хелп

AS>> Тогда зачем спрашивал "В каких случаях отдается UnloadMode = 0?"

RY> КРОМЕ тех случаев, которые указаны тама! Я не уверен, что это работает

RY> только в этом случае.

Ты что ли хотел провести опрос "доверяете ли вы хэлпу?" _Я_ доверяю.

RY> Все, вот это я и ожидал услышать.

AS>> Hо задачи разные бывают,

RY> Мне как-то до барабана, какими они бывают. ;)

Просто тебя очень, очень тяжело понимать. Ты как будто нарочно вопросы
пишешь намёками и недомолвками.
* Origin: Здесь будет ориджин (2:5080/1003.16)

Re: я понял, в чем моя проблема

Hello, Roman!
You wrote to <All>to All on 15 Jul 04 19:55:50:


RY> Если сделать первый вход под администратором, а затем под юзером, то

RY> юзеру не даютъ! писать в файл. ;(

RY> Как при создании файла указать, что ему могут давать все! кому не лень?

Личная папка юзера доступна только ему, и это ограничение распространяется
на всё её содержимое. А зачем, собственно говоря, одному юзеру читать данные
(в твоём случае, емнип, настройки) другого юзера? Если это настройки,
имеющие отношение ко всем юзерам, то имеет смысл писать их, например, в
%WINDIR%.

RY> Кстати, что это возвратит под Win98?

Там все файлы доступны всем.
* Origin: Здесь будет ориджин (2:5080/1003.16)

Re: Пpокpутка в TextBox

Hello, Roman!
You wrote to <Sergey Merzlikin>to Sergey Merzlikin on 15 Jul 04 23:20:29:


AE>>>> Как сделать, чтобы пpи добавлении текста скpолл автоматически

AE>>>> пpокpучивался на самую нижнюю (последнюю) стpоку текстового

AE>>>> поля?

??>>> Слать текстбоксу EM_LINESCROLL

SM>> Я делаю иначе, так получается быстрее, чем конкатенация строк, а

SM>> заодно текстбокс сам прокручивается:

SM>> With txtTextbox

SM>> .SelStart = Len(.Text) + 1&

SM>> .SelText = AddedText

SM>> End With

RY> И скрулбар мигает. ;)

А при моём способе - нет!

AS>> Слать текстбоксу EM_LINESCROLL

RY> Кстати, бай зе вей, мигать боковой скрулбар при этом будет?

Я ж и сэмпл запостил, неужели тяжело самому посмотреть?
* Origin: Здесь будет ориджин (2:5080/1003.16)

Re: Threads

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

15 Jul 04 13:25:44 в RU.VISUAL.BASIC A. Skrobov -> мне:


RY>>> Hужно, чтобы с образом было можно работать в памяти, а потом всем скопом

RY>>> его за один проход отрисовать.

DK>> Посмотри на моем сайте пример "Поворот картинки".

AS> FYI, под Win2000 он работает только после замены строки

AS> hTempBitmap = CreateBitmap(picSrc.Width, picSrc.Height, 1, 24, ByVal 0&)

AS> на строку

AS> hTempBitmap = CreateCompatibleBitmap(picSrc.hDC, picSrc.ScaleWidth,

AS> picSrc.ScaleHeight)

AS> (с добавлением соответствующей декларации)


Исправил, конечно, но только все равно не понял: почему оно у тебя не
работало? Hеужели из-за того, что 24 бита картинки не равны 32 битам экрана?

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

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

Re: Threads

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

15 Jul 04 19:00:50 в RU.VISUAL.BASIC A. Skrobov -> мне:


RY>>> Hужно, чтобы с образом было можно работать в памяти, а потом всем

RY>>> скопом его за один проход отрисовать.

DK>> Посмотри на моем сайте пример "Поворот картинки".

AS> Весь день вращал хомяка.

AS> Достигнута оптимизация в 1,5 раза.

AS> Отчёт здесь: http://mix.web.ur.ru/rotate.html


Блеск! Еще можно чуть-чуть выжать, если уможнение на 3 заменить тройным
сложением (минус 0.8 сек на 30 циклов).

Хотя все эти игрушки, по идее, надо бы на ассемблере делать. ;) Да и от
наглядности ничего не остается.

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

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

Re: Threads

From: "A. Skrobov" <tyomitch [@] r66.ru>


Thu Jul 15 2004 20:08, Dmitriy Kozyrev wrote to A. Skrobov:

RY>>>> Hужно, чтобы с образом было можно работать в памяти, а потом всем

RY>>>> скопом его за один проход отрисовать.

DK>>> Посмотри на моем сайте пример "Поворот картинки".

AS>> Весь день вращал хомяка.

AS>> Достигнута оптимизация в 1,5 раза.

AS>> Отчёт здесь: http://mix.web.ur.ru/rotate.html

DK> Блеск! Еще можно чуть-чуть выжать, если уможнение на 3 заменить тройным

DK> сложением (минус 0.8 сек на 30 циклов).

Hадо же, а я и не подумал... Можно, наверное, и трёхмерный массив сделать?
Завтра попробую...

DK> Хотя все эти игрушки, по идее, надо бы на ассемблере делать. ;) Да и от

DK> наглядности ничего не остается.

Hа ассемблере с плавающей точкой замучаешься. Hа Си надо, там и наглядность
сохранится.
Моя первая прога на VC была именно ресэмплером. Сначала написал на VB, понял,
что тормоза просто жуткие. Стал писать на ассемблере, но быстро понял, что с
VC разобраться быстрее :-)

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)

Re: Threads

From: "A. Skrobov" <tyomitch [@] r66.ru>


Thu Jul 15 2004 19:24, Dmitriy Kozyrev wrote to A. Skrobov:

RY>>>> Hужно, чтобы с образом было можно работать в памяти, а потом всем

RY>>>> скопом его за один проход отрисовать.

DK>>> Посмотри на моем сайте пример "Поворот картинки".

AS>> FYI, под Win2000 он работает только после замены строки

AS>> hTempBitmap = CreateBitmap(picSrc.Width, picSrc.Height, 1, 24, ByVal 0&)

AS>> на строку

AS>> hTempBitmap = CreateCompatibleBitmap(picSrc.hDC, picSrc.ScaleWidth,

AS>> picSrc.ScaleHeight)

AS>> (с добавлением соответствующей декларации)

DK> Исправил, конечно, но только все равно не понял: почему оно у тебя не

DK> работало? Hеужели из-за того, что 24 бита картинки не равны 32 битам

DK> экрана?

ХЗ. Hа экране у меня 24 бита - видяха древнючая и больше не умеет.
Под Win98 тоже только что проверил, по-старому не работает.
А у тебя-то работало по-старому?

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)