Подскажите как настроить среду разработки VB6, чтобы при запуске она не очищала буфер обмена Виндвз

Как настроить сам VB не скажу, но возможно альтернативное решение:
Написать VB-Стартер. Прогу для запуска VB.
Запускается она, берет содержимое буфера в себя, запускает VB, восстанавливает буфер, закрывается.

Спасибо, отличное решение, так и сделаю

Эх, люблю я нестандартные решения...

Сделал, все отлично работает
Для тех кто захочет повторить есть несколько советов:
-Переименовать Стартер в VB6.EXE а VB6.EXE во что ни будь еще.
-После запуска оригинальной программы и перед восстановлением клипборда сделать небольшую задержку, равную времени запуска IDE, у меня ~ 500мс.
-Передавать оригинальной программе параметры запуска.
-Добавить в ресурсы Стартера иконки в количестве и порядке как у оригинальной проги, чтобы не менять пути к DefaultIcon различных расширений, ассоциируемых с VB.

Naghual еще раз спасибо за идею

bom, код в студию...

Код? Пожалуйста

Код

Option Explicit Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub Main() Dim bufer As String bufer = Clipboard.GetText Shell App.Path & "\VB6bak.EXE" & " " & Command, vbNormalFocus Sleep 500 Clipboard.SetText bufer End End Sub

Кроме того нужно, как я уже говорил, в ресурсы добавить 24 иконки как у оригинальной проги и после компиляции приложения изменить их как в оригинальной проге каким ни будь редактором ресурсов (я пользовался Restorator-ом).
Готовый ехе-шник я выслал тебе на мыло, если есть необходимость, можешь разместить его на сервере и опубликовать ссылку

На мой взгляд использование здесь Sleep несколько неправильно. В зависимости от быстродействия системы и ее загруженности, таймаут может не отработать свою смысловую нагрузку.
Может попробуеш через API ShellExecute или ShellExecuteEx запускать VB?

Naghual:

Цитата

Может попробуеш через API ShellExecute или ShellExecuteEx запускать VB?

Попробовал, буфер все равно очищается, ShellExecute не ждет конца загрузки а сразу передает управление следующей команде, без задержки видимо не обойтись, величину ее можно увеличить если компьютер слабый.

Вот это

Код

bufer = Clipboard.GetText Shell App.Path & "\VB6bak.EXE" & " " & Command, vbNormalFocus Sleep 500

можно попробовать заменить на что-нибудь типа:

Код

bufer = Clipboard.GetText Shell App.Path & "\VB6bak.EXE" & " " & Command, vbNormalFocus While (Clipboard.GetText = bufer) Do   Doevents Loop

Цитата(bom @ 28.8.2004, 13:02)

Готовый ехе-шник я выслал тебе на мыло, если есть необходимость, можешь разместить его на сервере и опубликовать ссылку

Я его еще не получил, но как получу могу прямо в FAQ засунуть...
p.s. если не забуду... мне в последнее время кажется, что что-то я уже хотел там написать и забыл

К cardinal
Ты прав. Интересное решение.
Только оно сработает лиш в том случае, если в буфере уже что-то было. Так что при запуске программы, нужно проверять пустой буфер или нет.
Если буфер пустой - просто запускаем ВБ и все. Никакого слипа не нужно.
Если не пустой - ждем пока он очистится.

cardinal

Цитата

While (Clipboard.GetText = bufer) Do   Doevents Loop

Отличная идея! Немного доработал ее так как клипборду не нравится когда к нему обращаются с такой частотой (выдается ошибка 521 "Can't open clipboard"), добавил задержку в цикл и все стало шоколадно

Код

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub Main() Dim bufer As String, i As Integer On Error GoTo er bufer = Clipboard.GetText Shell App.Path & "\VB6bak.EXE" & " " & Command, vbNormalFocus Do While Clipboard.GetText <> vbNullString Or i <> 100  DoEvents  Sleep 100  i = i + 1 Loop Clipboard.SetText bufer er: End End Sub

Счетчик - на тот случай если по каким то причинам Барсик не запустится или клиборд не очистится, программа все равно выгрузится через 10 сек.
Обновленный ехешник уже движется на твое мыло

Цитата(Naghual @ 28.8.2004, 19:13)

Если буфер пустой - просто запускаем ВБ и все. Никакого слипа не нужно. Если не пустой - ждем пока он очистится.

Правильно. Ну и ждем не до бесконечности, а именно с TimeOut'ом, что и сделал bom.

Код

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub Main() Dim bufer As String, i As Integer On Error GoTo er bufer = Clipboard.GetText Shell App.Path & "\VB6bak.EXE" & " " & Command, vbNormalFocus Do While Clipboard.GetText <> vbNullString Or i <> 100 DoEvents Sleep 100 i = i + 1 Loop Clipboard.SetText bufer er: End End Sub

Я бы немного изменил и сделал так

Код

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub Main() Dim bufer As String, i As Integer On Error GoTo er i = 0 bufer = Clipboard.GetText Shell App.Path & "\VB6bak.EXE" & " " & Command, vbNormalFocus Do While Clipboard.GetText <> vbNullString Or i < 100 DoEvents Sleep 100 i = i + 1 Loop Clipboard.SetText bufer er: End End Sub

И будет совсем шоколадно. Просто для того, чтобы в примере не было нехорошей привычки не присваивать переменным начального значения. В Си можно на этом попухнуть. В переменной будет записана белиберда какая-нибудь и такое как

Код

i <> 100

будет работать не так как ты думаешь. Но это так вылизывания и возможно они в VB совсем не нужны, т.к. все переменные равняются после объявления нулю, но все равно

Согласен, надо стремиться к совершенству