Техническая поддержка :

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

для защиты Windows программ

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

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


Re: VB

From: "Sergey Broudkov"

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"

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"

Hello, Alexander!
You wrote in conference fido7.ru.visual.basic to "All" 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"

Hello, Alexander!
You wrote in conference fido7.ru.visual.basic to "All" 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"

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

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

AA> Где можно скачать, посмотpеть доки, помощь по файлам, OpenDialog? Спасибо.
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"

Hello, Sergey!
You wrote in conference fido7.ru.visual.basic to "Dmitriy Kozyrev" 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 !
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 !
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 !
www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно.

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


Re: HtmlHelp и ошибки

From: "Sergei Ho"

"Dmitriy Kozyrev" 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)



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




Главная     Программы     Статьи     Разное     Форум     Контакты