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

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

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

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


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

From: "Sergey Merzlikin" <sm [@] smsoft.ru>


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

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

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

>


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

With txtTextbox
.SelStart = Len(.Text) + 1&
.SelText = AddedText
End With


--
Сергей Мерзликин
http://www.smsoft.ru/ru/


* Origin: Corbina Telecom News Server (2:5020/128 [@] fidonet)

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

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


Thu Jul 15 2004 01:42, Sergey Merzlikin wrote to All:

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

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

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

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

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

Я подумал, что "побочный эффект" перемещения каретки может быть и
нежелательным, например если что-то уже вставляется через .SelText в середину
текстбокса. А посылка EM_LINESCROLL никаких побочных эффектов не даёт,
просиходит только сабж, и больше ничего.

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

Re: Сортировка

Мы где-то виделись, Андрущенко?

14 Jul 04 18:01:21 в RU.VISUAL.BASIC Андрущенко (Hордлинк) -> All:


АH> Есть ли какое-то стандартное средство для выполнения сортировки данных

АH> (массива, коллекции, ...)? Имеется в виду - не запихивание их в БД или еще

АH> куда-то только ради того, чтобы отсортировать их, а просто напустить на

АH> данные какую-нибудь функцию?


Hа моем сайте лежит хорошая реализация QuickSort из Total VB SourceBook.

АH> Как ни странно - в MSDN по этому поводу ничего не нашел.


:)))

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

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

Re: Threads

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

14 Jul 04 08:23:56 в RU.VISUAL.BASIC Roman Yuakovlev -> A. Skrobov:


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

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


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

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

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

Re: Threads

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


Thu Jul 15 2004 10:30, Dmitriy Kozyrev wrote to Roman Yuakovlev:

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

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

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

FYI, под Win2000 он работает только после замены строки
hTempBitmap = CreateBitmap(picSrc.Width, picSrc.Height, 1, 24, ByVal 0&)
на строку
hTempBitmap = CreateCompatibleBitmap(picSrc.hDC, picSrc.ScaleWidth,
picSrc.ScaleHeight)

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

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

Re: Сортировка

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


Hello, Dmitriy!
You wrote in conference fido7.ru.visual.basic to "Андрущенко
(Hордлинк)" <fido7.ru.visual.basic [@] talk.ru>to Андрущенко (Hордлинк) on Thu,

15 Jul 2004 09:28:24 +0400:

АH>> Есть ли какое-то стандартное средство для выполнения сортировки данных

АH>> (массива, коллекции, ...)? Имеется в виду - не запихивание их в БД или

АH>> еще куда-то только ради того, чтобы отсортировать их, а просто

АH>> напустить на данные какую-нибудь функцию?

DK> Hа моем сайте лежит хорошая реализация QuickSort из Total VB

DK> SourceBook.

В "Hardcore VB" была реализация, допускающая произвольные объекты с методом
Compare. Имхо универсальнее и потому лучше (для учебных целей). Хотя для
своих нужд я всё равно использую реализации с заранее прописанным типом.

АH>> Как ни странно - в MSDN по этому поводу ничего не нашел.

DK> :)))

А qsort там как раз есть ;-)
Более того, у меня и переходник для неё где-то валялся ;-)
--

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

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

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

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


* Origin: 1134 (2:5045/44.13)

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

Исполняю следующий код

private function mpath(s as string) as string
mpath=s & "\"
end function
private function GetUserPath()
On Error Resume Next
Dim pathname As String
Dim retval As Long
pathname = Space(260)
retval = SHGetSpecialFolderPath(0, pathname, 35, 1)
pathname = Left$(pathname, InStr(pathname, vbNullChar) - 1)
MkDir MPATH(pathname) & "MyApp"
If pathname <> "" Then GetUserPath = MPATH(pathname) & "MyApp\" Else GetUserPath = ""

end function

Если сделать первый вход под администратором, а затем под юзером, то юзеру не даютъ! писать в файл. ;(

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


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

* Origin: 1134 (2:5045/44.13)

нашел

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

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

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

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

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


RY>> и 0 я не сам придумал.

AS> Hичего не понимаю. Тебе код кто пишет, не ты что ли? ;-)

0 я взял из этого хелпа, который ты процитировал. Точнее, не из этого, но это не важно.

RY>> Я о том, насколько это верный вариант, и пользуется ли им

RY>> большинство?

AS> Имхо для задачи "прятаться по нажатию крестика в углу" совершенно и

AS> единственно верный.

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


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

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


* Origin: 1134 (2:5045/44.13)

Пpокpутка в TextBox

AE>> Вопpос №1:

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

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

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

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


* Origin: 1134 (2:5045/44.13)