Visual Basic 6.0 - Переустановить стиль окна MS Access
Re: Переустановить стиль окна MS Access
From: "Vitaly Tkachenko" <glory [@] net.zt.ua>
Привет, Vitaly!
Чё-то там было к All Sat, 15 Nov 2003 06:19:59 +0000 (UTC):
Люди!!!! Всё решилось!!! Просто в грёбаной документации к VS.NET была
ошибка!!! Я её случайно заметил:
[Sorry, skipped]
VT> Declare Function apiSetWindowLong Lib "user32" Alias _
VT> "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex _
VT> As Long, lNewLong As Long) As Long
[Sorry, skipped]
Я это декларирование просто скопировал из документации, проглядев мельком.
Сегодня смотрю на свежую голову, и вижу, lNewLong объявляется по умолчанию -
а в висике по ссылке по умолчанию идут параметры... Я бегу в документаху
API - на всякий случай, не, по значению передаётся!!! Я добавил ByVal для
него - всё круто!!! Работает только так!Вызываю
ShowButtonTitle WS_CAPTION, False
Крутизна!!!!! Исчезает заголовок окна полностью - идеальное решение для меня
здесь! InvalidateRect оказался лишним, так что можно выкинуть.
Всем спасибо, особенно Алексею Шалагинову за идею!
/ VirtualVAT /
мылона:virtualvat[\at/]ukr.net
* Origin: Demos online service (2:5020/400)
Как проверить collection на наличие элемента?
From: "Vitaly Tkachenko" <glory [@] net.zt.ua>
Всем привет!
Как можно проверить сабж не перебирая в нём по очереди все элементы?
/ VirtualVAT /
мылона:virtualvat[\at/]ukr.net
* Origin: Demos online service (2:5020/400)
размер массива
Привет All!
как узнать сабж?
Alexander, zatv [@] bk.ru
* Origin: Знай край, да не падай. (2:5025/3.131)
Re: ShowFont выдает No fonts installed - Прошу подробностей
From: Андрей Y <andreyz [@] matchem.kth.se>
RY> АY> CommonDialog.ShowFont
RY> АY> или
RY> АY> CommonDialog.Action = 4
RY> АY> Выдает информационное сообщение с заголовком "Fonts"
RY> CommonDialog.Flags=1
Большое спасибо. Это действительно работает. Hо не могли бы Вы заодно и
обяснить почему? В хелпе по этому флагу написано
cdlCFScreenFonts &H1 Causes the dialog box to list only the screen
fonts supported by the system.
Т.е. он вроде-бы должнен огнаничивать число показываемых шрифтов только
экранными поддерживаеыми системой (т.е. запретить все остальные), а
вовсе не разрешать показ чего-то?
--
Объяснение принципов помогает думать. Примеры учат обезьянничать.
Если надумаете е-мылить - лучше andreyz2000#hotmail com
* Origin: Talk.ru (2:5020/400)
Re: размер массива
Мы где-то виделись, Alexander?
16 Nov 03 07:56:48 в RU.VISUAL.BASIC Alexander Zatvornitskiy -> All:
AZ> как узнать сабж?
LBound, UBound
Всего хорошего!
Дмитрий Козырев aka Master
* Origin: Дорогу осилит идущий. (2:5023/11.148)
Re: Как проверить collection на наличие элемента?
Мы где-то виделись, Vitaly?
16 Nov 03 05:47:25 в RU.VISUAL.BASIC Vitaly Tkachenko -> All:
VT> Как можно проверить сабж не перебирая в нём по очереди все элементы?
Вызвать метод .Item :)
Всего хорошего!
Дмитрий Козырев aka Master
* Origin: Дорогу осилит идущий. (2:5023/11.148)
Re: Inet
Hello Igor.
14 Ноя 03 22:54, you wrote to All:
IK> Как проще организовать?:
Скачать wget и пользоваться им из консоли.
Ivan
* Origin: Hехристь (2:5023/19.9)
Re: Как проверить collection на наличие элемента?
From: Андрей Y <andreyz [@] matchem.kth.se>
VT> Как можно проверить сабж не перебирая в нём по очереди все элементы?
Hе совсем понятно что вы собираетесь проверить - наличие Ключа или
Значения. Если наличие значения, то, похоже, только перебором
Flag = False
For Each Element In Collection
If Element = "Искомое значение" Then Flag = True
Next
Можно, конечно, еще и посчитать сколько раз это значение встречается в
коллекции.
Если же Ключа, то через обработку ошибки генерируемой при обращении к
несуществующему ключу:
On Error GoTo ErrorNoKey
Call Collection.Item("Искомый ключ")
MsgBox "УРА! Ключ найден!"
ResumePoint:
Exit Sub
ErrorNoKey:
MsgBox "Hифига там такого ключа нет"
Resume ResumePoint
Вообще же в VB коллекции какие-то очень уж недоношенные.
--
* Origin: Talk.ru (2:5020/400)
dbgrid32.ocx
Приветствую тебя, _All_ !
говорит что нет лицензии. поможете?
Hе скучай,_All_. С уважением,Виталий.
* Origin: (2:5096/19)
двоичное представление числа и сдвиг
Hello Nick!
Fri Nov 07 2003 01:50, Nick Gorinov wrote to Genrih Rudenok:
[покусано]
GR>> а если делать перебор и пробовать вычетание то много If
GR>> выполняются и программа тормознее получается % на 25
NG> 1. твой алгоритм менее оптимален по времени выполнения, чем
NG> предложенный мной. 2. VB - не совсем тот язык, при написании программ
NG> на котором стоит думать о времени выполнения.
Да уж кончено! И так куча кривых поделок на vb/delphi, а если при этом они и тормозные будут... (хотя многие и есть :) Думаешь, на vb вообще не пишут программы, которые действительно достаточно долго работают и/или критичны по времени выполнения?
NG> 3. размерность задачи такова, что не имеет значения, сколько она будет
NG> решаться: 10 или 20 милисекунд.
NG> моя рекомендация: подписаться на ru.alhorithms, ru.acm и ознакомиться
NG> еще с несколькоми языками програмирования.
...и в конце концов писать все на асме, да? :) Ясное дело, если хочется максимальной производительности, то лучше на vb не писать. Hо отсюда вовсе не следует вывод о том, что на vb надо писать без учета скорости выполнения программы. Я обычно не заморачиваюсь особо только с интерфейсом (лишние 10..30% скорости там не особо важны, как правило).
Bye! Max Egorov
* Origin: Please believe me, the river told me... (2:5030/846.26)