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

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

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

Обсуждение программирования на Visual Basic в конференции ru.visual.basic


VBA

From: "Mihail Borisov"

Hello, All!

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

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


VBA

From: "A. Skrobov"

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

MB> Как узнать размер массива?
UBound(Massiv) - LBound(Massiv) + 1

* Origin: FidoNet Online (2:5020/175.2)


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

From: "Slyuar Anatoliy"

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

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

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


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


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

From: "Alex Antov"

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, или прописать в начале файла достаточно? Или может быть,
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"

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

Вопрос к всезнающему 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_ истинный!!!
medbedb.boom.ru medbedb [@] inbox.ru ICQ:177470289

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


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

From: "Youri V. Medvedev"

"Dmitriy Kozyrev" 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: Пpогpаммное упpавление DialUp-соединением

Пpиснилось мне как-то 03 июня 04, что Youri V. Medvedev пpиходил к All , и
говоpил ему о Пpогpаммное упpавление DialUp-соединением
YVM> Есть модемное соединение с инетом.
.: ske-e-ep :.
YVM> Вопpос к всезнающему ALL: как пpогpаммно сделать
YVM> эти две опеpации ? Ссылки на Windows API и пpиме-
YVM> pы пpиветствую и заpанее благодаpю. Спасибо.

Отличный пpимеp от самого Dan Appleman. No coments.

С наилучшими пожеланиями,
Albert Einstein.
(mailto: enstainATyandexDOTru, URL: www.enstain.da.ru)
Winamp не вещает :(
* Origin: Imagination is more important than knowledge! (2:4624/8.204)


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)



Назад Содержание Вперед