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

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

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

Visual Basic 6.0 - VBA


VBA

From: "Mihail Borisov" <skull [@] amur.ru>


Hello, All!

Как узнать размер массива?

With best regards, Mihail Borisov.
* Origin: Demos online service (2:5020/400)

VBA

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


Wed Jun 02 2004 16:57, Mihail Borisov wrote to All:

MB> Как узнать размер массива?

UBound(Massiv) - LBound(Massiv) + 1

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

HАДСТРОЙКИ В EXCEL

From: "Slyuar Anatoliy" <samsk [@] ukrpack.net>


Здравствуйте.

Подскажите, пожалуйста, как в EXCEL правильно работать с надстройками:
куда ложить *.xla файлики, как отучать EXCEL от этих надстроек
Я сейчас использую настройки в виде дополнительных панелек.

Заранее благодарен,
Анатолий


* Origin: Digital Generation (2:5020/400)

Re: Строковая переменная в UTF-8. Как?

From: "Alex Antov" <sashaan [@] peterstar.ru>


Hello, A.!
You wrote to A. Skrobov on Wed, 02 Jun 2004 12:18:11 +0400:

AS> Wed Jun 02 2004 13:09, A. Skrobov wrote to Alex Antov:


AA>>> Вот такой вопрос - есть строковая переменная, в которой хранится

AA>>> будующий xml-файл. При верификации файла - облом, не в UTF-8

AA>>> записан. Отсюда вопрос - как перекодировать?

AS>> А тебе действительно нужен UTF, или прописать в начале файла <?xml

AS>> version="1.0" encoding="windows-1251"?> достаточно? Или может быть,

AS>> юникод подойдёт?

AS> Если нужен всё же UTF8, юзай WideCharToMultiByte с флагом CP_UTF8.


Большое спасибо за оба совета! :)

Во-первых, действительно, в параметром encoding="windows-1251" - XML
нормально открывается IE.

Во-вторых, конвертирование посредством WideCharToMultiByte тоже вроде как
принципиально возможно, сложил эту функцию в закрома Родины :)

В третьих, поскольку такое кодирование необходимо было выпонить в Access
(VBA), то, не мудрствуя лукаво - писал всю строковую переменную в табличку
базы, которая состояла из одной строки и одного столбца, а потом делал
export в XML. После чего в полученной строке обрезал лишнее :) Я понимаю,
что это извращение, но жить захочешь - не так раскорячишься ;)


With best regards, Alex
--
* Origin: Talk.Mail.Ru (2:5020/400)

Программное управление DialUp-соединением

From: "Youri V. Medvedev" <mdst [@] dci.dalcominfo.ru>


Есть модемное соединение с инетом. В стандартном
окошке на соединение есть две конпки - подключить
(снять трубку, набрать номер и соединиться с хостов-
ым модемом) и отключить (положить трубку).

Вопрос к всезнающему ALL: как программно сделать
эти две операции ? Ссылки на Windows API и приме-
ры приветствую и заранее благодарю. Спасибо.


* Origin: HOME (2:5020/400)

Help чайнику

Привет, Sergey!

* 17 Май 04 14:08, Sergey S Shulgin писал(а) All

SSS> Вопрос. Hаписал приложение, сделал Debug, Release

SSS> Запускаю, работает. Ошибок нет, отлажено...

SSS> Отдаю друзьям - Ошибка инициализации приложения.

SSS> Что поправить в исходнике, чтобы или библиотека была в той папке где

SSS> надо, или она вовсе не использовалась(бред, конечно) или хоть как она

SSS> называется скажите.


Может я не в курсе, но скорее всего у твоих друзей просто нет .NET Framework. Пущай 20 мб с сервака майкрософта качают!..

Vlad
* Origin: FidoNet, InterNet... Deneg net... (2:5061/120.41)

LCD on LPT

/*_г=¬ г===¬_*/
/*_¦ ¦РИВЕТ¦_*/ _All_
/*_L=======¦=======----_*/ /*_·_*/ /*_·_*/ /*_·_*/ /*_·_*/ /*_·_*/

кто-нибyдь занимался сабжем из под эхотага???
т.е. выводом изобpажения на 8ми битный ЛЦД посpедством 8 битного поpта?
интеpесyют всяческие нюансы. или может эхотаг не совсем pyлит для сабжа?? может
лyчше асмом или сёй?(пpо асм и си лyчше в мыло)
пpога должна пахать под ХР где низя пpямо так pyлить поpтом, интеpесyет pyление
поpтом под ХР.


Пока *All* . Да встанет твой _КОМП_ на _PATH_ истинный!!!
http://medbedb.boom.ru medbedb [@] inbox.ru ICQ:177470289

* Origin: In vino veritas... (2:5030/659.23)

Re: А есть ли способ ?

From: "Youri V. Medvedev" <mdst [@] dci.dalcominfo.ru>


"Dmitriy Kozyrev" <Dmitriy.Kozyrev [@] p148.f11.n5023.z2.fidonet.org> wrote in

message
> http://mastershome.net.ru/vbfaq/b05.htm


Отличный трюк, Дмитрий, спасибо !

Я только позволил себе чуток подправить код класса, привожу
его с комментариями:

Private WithEvents mTextBox As TextBox
'---Private mParent As Form1
Private mParent As Form
'Объявляем тип не конкретной формы из примера, а формы вообще

'---Public Sub Initialize(ByVal Object As TextBox, ByVal Parent As Form1)
Public Sub Initialize(ByVal Object As TextBox, ByVal Parent As Form)
'Аналогично предыдущему комментарию
Set mTextBox = Object
Set mParent = Parent
End Sub

Private Sub mTextBox_Change()
'---Form1.TextBoxChange mTextBox
mParent.TextBoxChange mTextBox
'Вызываем псевдособытие не в конктерной форме из примера,
'а в форме, переданной в класс при вызове Initialize
End Sub

В таком виде класс нормально работает с любыми формами.

Я сам почти пришел к такому же решению, застрял только на
правильном выборе формы для вызова псевдособытия, трюк
с иннициализацией parent-формы пришелся очень кстати.
Еще раз спасибо !


* Origin: HOME (2:5020/400)

Re: Hабор каманды !!!

Приветствую Вас Sergey!

14 мая 2004 года (а было тогда 22:55)
Sergey Litvinsky в своем письме к Igor Shilak писал:

IS>> Люди у меня есть к вам предложение ... давайте объеденимся в

IS>> группу и создадим какой нибуть проэкт !!! ...

IS>> _Ваши соображения по этому поводу !!!_

SL> Идея хорошая, только вот какой проект создавать... вот в чем вопрос!

SL> :-)


"VB-бухгалтерия" 8-)

С уважением, Sergey 24 мая 2004 года

* Origin: My Station (2:5003/57.68)