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)