| Вопрос: VB6 Immediate Window | Добавлено: 24.08.04 13:13 |
Автор вопроса:  Lister | ICQ: 298621256 |
|
Может кому известен способ автоматической очистки Immediate Window вместе с запуском кода :-\ ?
Достало вручную его очищать. Или может у кого-нибудь надстройка для VB6 есть для его очистки? |
| Ответы | Всего ответов: 15 |
|
Номер ответа: 1 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #1 | Добавлено: 24.08.04 13:30 |
| Ищи SMARTCode... | ||
|
Номер ответа: 2 Автор ответа:  Lister ICQ: 298621256 Вопросов: 57 Ответов: 304 |
Профиль | | #2 | Добавлено: 24.08.04 13:39 |
А что енто такое?  |
||
|
Номер ответа: 3 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #3 | Добавлено: 24.08.04 14:47 |
|
Звать софтину CodeSMART 2001
Если надо 2001 закачаю на фтп... он около 7-ми метров весит... Если кто найдет новее, буду признателен за линк 
|
||
|
Номер ответа: 4 Автор ответа: User UnknownВечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #4 | Добавлено: 24.08.04 14:56 |
|
а, да... sne прав )) Я прям с испугу и перепутал словечки...
|
||
|
Номер ответа: 5 Автор ответа: ListerICQ: 298621256 Вопросов: 57 Ответов: 304 |
Профиль | | #5 | Добавлено: 24.08.04 16:56 |
|
sne: А она у тебя с лекарством? Или лекарство искать надо? И что еще умеет кроме как Immediate Window очищать? |
||
|
Номер ответа: 6 Автор ответа: ListerICQ: 298621256 Вопросов: 57 Ответов: 304 |
Профиль | | #6 | Добавлено: 24.08.04 18:02 |
|
sne, как ты думаешь, можно ли самостоятельно создать надстройку к интерфейсу VB6, которая очищала бы Immediate Window ? По EnumWindow и GetWindowText найти hWnd этого окна, определить hWnd текстбокса и очистить его... Или это маловероятно? |
||
|
Номер ответа: 7 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #7 | Добавлено: 24.08.04 18:08 |
Если бы была не регистрированная то была бы как минимум 2004 
Умеет много всего полезного и интенресного, очень всем советую ))
-- Возможно все... |
||
|
Номер ответа: 8 Автор ответа: ListerICQ: 298621256 Вопросов: 57 Ответов: 304 |
Профиль | | #8 | Добавлено: 24.08.04 18:18 |
|
Тогда жду ссылку на загрузку -- А с поиском хэндла этого окна у меня возникла интересная ситуация: hWnd ловится только когда Immediate Window находится в виде отдельной формы, а не части главного окна VB6 |
||
|
Номер ответа: 9 Автор ответа: Андрей Никитин ICQ: 325172082 Вопросов: 3 Ответов: 81 |
Профиль | | #9 | Добавлено: 24.08.04 18:27 |
|
2 sne:
Есть CodeSmart 2003 Retail (8.76 мега), а также CodeSmart 2003 FixPak 1 (2,71 мега), но линк на винт дать не получится . Варианты...
|
||
|
Номер ответа: 10 Автор ответа: User UnknownВечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #10 | Добавлено: 24.08.04 18:38 |
| Lister, sne. За тулузой стучитесь мне в аську... | ||
|
Номер ответа: 11 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #11 | Добавлено: 24.08.04 22:59 |
|
Полная триал версия, кажется, без ограничений... Кто не знает, обычно время использования не ограничивают, а устанавливают макс. кол-во файлов...
ftp://crts.ru/sne/Codesmart2003Retail.exe ftp://crts.ru/sne/Codesmart.2003.VB6.FixPack1.exe (за сегодня дольется, лежать будет 7 дней и не более) |
||
|
Номер ответа: 12 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #12 | Добавлено: 25.08.04 01:49 |
Так, сегодня не залил  Провайдер связь отрубил Все будет завтра...
|
||
|
Номер ответа: 13 Автор ответа: ListerICQ: 298621256 Вопросов: 57 Ответов: 304 |
Профиль | | #13 | Добавлено: 25.08.04 03:53 |
|
Один из файлов я скачал, но он оказался поврежденным... |
||
|
Номер ответа: 14 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #14 | Добавлено: 25.08.04 19:39 |
|
Все, теперь залил все... кому надо сможете взять...
2Lister, я же сказал что не долил... |
||
|
Номер ответа: 15 Автор ответа:  ComancheВопросов: 87 Ответов: 459 |
Профиль | | #15 | Добавлено: 27.08.04 18:30 |
|
В принципе, такую надстройку несложно и самому написАть. Создай новый VB-шный проект типа "Add-In". Затем добавь в код формы:
Private Sub Form_Load() Unload Me End Sub А в код Connect.Dsr - добавь следующее: Private WithEvents ce As CommandBarEvents ' << в раздел Declarations Sub HookRunMenu()  im c As CommandBarControl
Set c = VBInstance.CommandBars("Run" .Controls(1)
Set ce = VBInstance.Events.CommandBarEvents(c) End Sub Private Sub ce_Click(ByVal CommandBarControl As Object, handled As Boolean, CancelDefault As Boolean) im w As Window
For Each w In VBInstance.Windows If w.Type = vbext_wt_Immediate Then w.SetFocus SendKeys "^{a}^{BREAK}{DEL}{F5}" End If Next End Sub и в конец кода событийной процедуры AddinInstance_OnConnection - добавь вызов: Call HookRunMenu ==================================================== Это на скорую руку. Событие "ce_Click" - не что иное, как щелчок по пункту "Start" в меню "Run". При этом щелчке фокус устанавливается в окошко Immediate, там выделяется весь текст (Ctrl + A), делается пауза выполнения кода (Ctrl + Break; чтобы "разлочить" окошко), выделенный текст удаляется (DEL), и выполнение кода продолжается (F5). Обработка "ce_Click" становится возможной благодаря тому, что при подключении add-in'а (событие "AddinInstance_OnConnection" вызывается процедура HookRunMenu, которая и создаёт объект "ce", объявленный с WithEvents.
Понятно, что во-первых надо ещё обрабатывать нажатие F5, кнопки на тулбаре и т.д., и во-вторых - что код можно (и нужно) изрядно почистить, удалив ненужное (например, форма в этом проекте на фиг не нужна). |
||
Страница: 1 |