Обсуждение программирования на 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" 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" 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" 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" 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" > Мы где-то виделись, 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) |