Visual Basic 6.0 - Threads
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)
П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)