Обсуждение программирования на Visual Basic в конференции ru.visual.basic
Re: Threads |
From: "A. Skrobov" 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 (2:5020/175.2) |
Re: Сортировка |
From: "A. Skrobov" Hello, Dmitriy! You wrote in conference fido7.ru.visual.basic to "Андрущенко (Hордлинк)" 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 RY> Пока у местных гуру обострение кризиса помогабельности, спрошу еще RY> вопрос, на который мне так никто раньше и не ответил: RY> Как в меню нарисовать соответствие пунктам меню не только для RY> CTRL+Letter, а для любого пункта (ведь в куче программ такое есть!). Я не уверен, что ты именно это имеешь в виду, но mnuItem = "то что слева" & vbTab & "то что справа" * Origin: Здесь будет ориджин (2:5080/1003.16) |
Re: Threads |
From: "A. Skrobov" Hello, Dmitriy! You wrote in conference fido7.ru.visual.basic to "Roman Yuakovlev" 09:30:31 +0400: RY>> Hужно, чтобы с образом было можно работать в памяти, а потом всем RY>> скопом его за один проход отрисовать. DK> Посмотри на моем сайте пример "Поворот картинки". Весь день вращал хомяка. Достигнута оптимизация в 1,5 раза. Отчёт здесь: mix.web.ur.ru/rotate.html -- * Origin: Talk.Mail.Ru (2:5020/400) |
Re: нашел |
Hello, Roman! You wrote to "A. Skrobov" 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) |