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

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

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

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)