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

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

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

Visual Basic 6.0 - VB


Re: VB

From: "Sergey Broudkov" <broudkov [@] PointLtd.com>


Hello, Alexander!
You wrote to All on Tue, 30 Dec 2003 21:06:27 +0300:

AA> Как тут уже сказали имя файла из OpenDialog1.filename вычисляется по

AA> следущему коду:

AA> v = Split(dialog.FileName, "\")

AA> file = v(UBound(v))

AA> Из OpenDialog1.filename=C:\Windows\System.ini

AA> Получается: file = System.ini

AA> Вопpос: Как из стpоки System.ini отнять ".ini", т.е. чтобы получилось

AA> "System". Спасибо.


Дык, точно так же, только по последней точке. Только имей в виду, что ее
может вообще не быть. Так что

If InStr(Filename, ".") = 0 Then
Extension = ""
Else
...
End If

--
Regards,
Sergey Broudkov
sbpro [@] geocities.com
ICQ #4841919
А может, в реестре чего подправить? d;--D

* Origin: Demos online service (2:5020/400)

Re: TabStrip and MultiPage

From: "Sergey Broudkov" <broudkov [@] PointLtd.com>


Hello, Dmitriy!
You wrote to Dmitry Viazowkin on Tue, 30 Dec 2003 18:41:45 +0300:

>>> Сколько, по-твоему, требуется времени, чтобы скрыть один PictureBox?

DV>> Один - мало. А вот PictureBox с тысячей дочерних контролов - весьма

DV>> заметно. Трюк в том, что изменение левой границы не затрагивает

DV>> дочерние контролы, а установка невидимости - таки да.


DK> Хм, интересно. Я это запомню. :)


Я не совсем понимаю механизм этого эффекта (если он есть). Установка
невидимости приводит в перерисовке фона. Изменение координат контейнера
приводит к пересчету координат всех дочерних окон, проверке отсечения их по
границам окна вывода, и все равно к перерисовке фона.

--
Regards,
Sergey Broudkov
sbpro [@] geocities.com
ICQ #4841919
А может, в реестре чего подправить? d;--D

* Origin: Demos online service (2:5020/400)

Re: Ошибки

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


Hello, Alexander!
You wrote in conference fido7.ru.visual.basic to "All" <fido7.ru.visual.basic [@] talk.ru>to All on Tue, 30 Dec 2003 19:55:26 +0300:


AA> Можно ли стандаpтные ошибки заменить своими?

AA> Hапpимеp нет файла.

AA> Run-time error '53'.

AA> File not found

AA> Можно как-нибудь поменять сообщение на дpугое?

Sub Whatever
On Error Goto Handler
Exit Sub
Handler:
If Err = 53 Then MsgBox "Hет такого файла! Переход хода! :-)" Else MsgBox "Run-time error '" & Err & "'" & vbCrLf &
Err.Description
End Sub


--
To prevent your mail from being filtered out, simply quote this line in your message body. A464E022
* Origin: Talk.Mail.Ru (2:5020/400)

Re: VB

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


Hello, Alexander!
You wrote in conference fido7.ru.visual.basic to "All" <fido7.ru.visual.basic [@] talk.ru>to All on Tue, 30 Dec 2003 21:06:27 +0300:


AA> Как тут уже сказали имя файла из OpenDialog1.filename вычисляется по

AA> следущему коду:

AA> v = Split(dialog.FileName, "\")

AA> file = v(UBound(v))

AA> Из OpenDialog1.filename=C:\Windows\System.ini

AA> Получается: file = System.ini

AA> Вопpос: Как из стpоки System.ini отнять ".ini", т.е. чтобы получилось "System".

MsgBox Left(String, InStrRev(String, ".") - 1)


--
To prevent your mail from being filtered out, simply quote this line in your message body. A464E022
* Origin: Talk.Mail.Ru (2:5020/400)

Re: Удалить файл

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


Hello, Alexander!
You wrote in conference fido7.ru.visual.basic to "All" <fido7.ru.visual.basic [@] talk.ru>to All on Tue, 30 Dec 2003 21:18:31 +0300:


AA> Как удалить файл? Спасибо.

Kill Filename

AA> Где можно скачать, посмотpеть доки, помощь по файлам, OpenDialog? Спасибо.

http://msdn.microsoft.com/library


--
To prevent your mail from being filtered out, simply quote this line in your message body. A464E022
* Origin: Talk.Mail.Ru (2:5020/400)

Re: TabStrip and MultiPage

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


Hello, Sergey!
You wrote in conference fido7.ru.visual.basic to "Dmitriy Kozyrev" <fido7.ru.visual.basic [@] talk.ru>to Dmitriy Kozyrev on Tue, 30 Dec

2003 17:03:16 +0000 (UTC):

DK>> Хм, интересно. Я это запомню. :)

SB> Я не совсем понимаю механизм этого эффекта (если он есть). Установка

SB> невидимости приводит в перерисовке фона. Изменение координат контейнера

SB> приводит к пересчету координат всех дочерних окон, проверке отсечения их

SB> по границам окна вывода, и все равно к перерисовке фона.

Я полагаю, что изменение видимости контейнера сказывается и на внутреннем состоянии дочерних контролов, тогда как перемещение -
только на перерисовке.


--
To prevent your mail from being filtered out, simply quote this line in your message body. A464E022
* Origin: Talk.Mail.Ru (2:5020/400)

Shell для досовской пpоги

||*()*|| Ах это вы, Alexander ? А я вас не узнал без санитара...

30 дек 03 года ты писал(а) к мне:

AB>> Сделай так, чтобы твоя пpогpамма писала bat-файл и

AB>> запускала бы

AA> Вопpос для чего делать тогда пpогpамму?


Это просто совет из опыта работы с dos-архиваторами из VB. С прочими консольными программами IMHO та же история.

I'll be back, Alexander !
http://www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно.

* Origin: Hе мошенничайте! Государство не любит конкурентов (2:4641/500.99)

Удалить файл

||*()*|| Ах это вы, Alexander ? А я вас не узнал без санитара...

30 дек 03 года ты писал(а) к All:

AA> Как удалить файл?


Kill [path & filename]

AA> Спасибо. Где можно скачать, посмотpеть доки, помощь

AA> по файлам, OpenDialog? Спасибо.


Хотя бы даже в хелпе к VB5. Уже лет 5 как я его русскоязычную версию откуда-то вытягивал.

I'll be back, Alexander !
http://www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно.

* Origin: Hе мошенничайте! Государство не любит конкурентов (2:4641/500.99)

глупый вопрос - а как делается .hlp файл?

||*()*|| Ах это вы, Sergey ? А я вас не узнал без санитара...

30 дек 03 года ты писал(а) к мне:

[...skipped...]

AB>> Бррр... А зечем это хэлпу? С него так часто что-то

AB>> распечатывается?


SB> А почему бы и нет?


Я довольно часть пользуюсь разными хелпами, но HИ РАЗУ из них ничего не печатал. А если бы и потребовалась такая возможность, то не представляю зачем нужны будут все эти навороты.

AB>> Его с экрана читать нужно и ходить по нему как по

AB>> гипертексту.


SB> А что, для этого не надо, чтоб красиво выглядело, чтоб удобно

SB> читалось, и глазу было приятно? То есть полиграфисты, веками

SB> придумывая все эти извращения, просто фигней страдали?


Они придумывали это для бумаги, а не для интерактивных возможностей.

[...skipped...]

I'll be back, Sergey !
http://www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно.

* Origin: Hе мошенничайте! Государство не любит конкурентов (2:4641/500.99)

Re: HtmlHelp и ошибки

From: "Sergei Ho" <calendarman [@] mtu-net.ru>


"Dmitriy Kozyrev" <Dmitriy.Kozyrev [@] p148.f11.n5023.z2.fidonet.org> wrote in message news:875830921 [@] p148.f11.n5023.z2.ftn...

> Мы где-то виделись, Sergei?

>

> 30 Dec 03 17:30:05 в RU.VISUAL.BASIC Sergei Ho -> мне:

>

> SH> Использую след. функции:

>

> SH> Declare Function HtmlHelp Lib "hhctrl.ocx" Alias ......

> SH> Show = HtmlHelp(WindowHandle, App.HelpFile, HH_HELP_CONTEXT, Topic)

> SH> Hide = HtmlHelp(WindowHandle, "", HH_CLOSE_ALL, 0)

>

> SH> Так вот, если юзер нажал F1 и открыл хелп, то по закрытии

> SH> я выполняю HtmlHelp(WindowHandle, "", HH_CLOSE_ALL, 0) и все хорошо.

>

> Закрывать окна хелпа ручками не требуется - с закрытием приложения они

> уберутся автоматически.

>

> Всего хорошего!

> Дмитрий Козырев aka Master


Hет не уберутся. В этом-то все и дело. Если хелп оставить, то программа завершается ошибкой.

Сергей.


* Origin: MTU-Intel ISP (2:5020/400)