Конференция VBStreets

**Cryonyx** » 26.02.2005 (Сб) 21:41

Чегой-то я запал на эту тему: всё техтбохи да техтбохи

Но на этот раз вопрос следующий:
В текстбоксе (самом что ни на есть стандартном, размещёном даже на VB-форме

) есть свойство Locked...
Так вот, оно по идее блокирует изменение текста в контроле, но при этом сам контрол активен, т.е. текст можно просмотреть, скопировать и т.д. Так вот, ближе к телу:
Берём какой-нибудь текст откуда угодно, копим его в буфер обмена, нажимаем на нашем текстбоксе правую кнопку мыши и выбираем пункт меню "Вставить"... E'voila! Текст легко и просто вставляется, хотя вроде бы изменение залочено.
Может кто-нить подскажет, як это исправить :?:

**Amed** » 26.02.2005 (Сб) 21:45

При райт-клике на текстбоксе, если он залочен, подсовывать вместо стендартного меню своё с выкинутым пунктом "Вставить"...

**Cryonyx** » 26.02.2005 (Сб) 21:51

Это через GetMenu...SetMenu?
Вопрос в тему: а как получить хэндл на меню, сделанное в VB? Т.е., Допустим, у меня есть меню, топ-уровень которого называется Menu1, a от него идут чайлды примерно вот так:

Menu1
:...Menu2
:...Menu3
:...etc.
:...MenuN

Вот мне нужен хэндл этого самого топа, Menu1.

Да и ещё: а можно как-нить узнать hWnd менюшки, что выскакивает при правом клике на текстбоксе и дизейблить пункт "Вставить"?

Кста. а как насчёт комбинации Shift-Ins? Она-то всё равно работает

**Amed** » 26.02.2005 (Сб) 22:14

Комбинация Shift+Ins может блокироваться:

Код: Выделить всё: Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) 'Если надавили Ins, то абортим... If KeyCode = 45 Then KeyCode = 0 End Sub

**Amed** » 26.02.2005 (Сб) 22:22

Про меню см. тут
http://bbs.vbstreets.ru/viewtopic.php?t=12799

**HotKitten** » 27.02.2005 (Вс) 3:14

а может просто text1.disable поюзать, если такая проблема

GM » 27.02.2005 (Вс) 6:49

HotKitten писал(а):а может просто text1.disable поюзать, если такая проблема

У textbox отсутствует свойство disable.

**Ship** » 27.02.2005 (Вс) 8:28

А может быть просто не отдовать ему фокус.
Например:

Код: Выделить всё: Private Sub Text1_GotFocus() Command1.SetFocus End Sub

GM писал(а):У textbox отсутствует свойство disable.

Зато присутствует свойство Enabled

**HotKitten** » 27.02.2005 (Вс) 15:22

GM писал(а):
HotKitten писал(а):а может просто text1.disable поюзать, если такая проблема

У textbox отсутствует свойство disable.

а что у чего нибудь подобного в VB есть disable????
естественно enabled = false

**Cryonyx** » 27.02.2005 (Вс) 19:42

HotKitten писал(а):
GM писал(а):
HotKitten писал(а):а может просто text1.disable поюзать, если такая проблема

У textbox отсутствует свойство disable.

а что у чего нибудь подобного в VB есть disable????
естественно enabled = false

А мне как раз и не надо, чтобы enabled был false

Мне нужно, чтобы текст свободно прокручивался, просматривался, но в текстбох ничего окромя этого текста запихнуть нельзя было..

**Cryonyx** » 27.02.2005 (Вс) 19:43

Amed писал(а):Про меню см. тут
http://bbs.vbstreets.ru/viewtopic.php?t=12799

Эймд, может я тупой :oops:

, но я не совсем понял. что они тама предлагают...

**Amed** » 27.02.2005 (Вс) 19:46

Сабклассинг меню, разве нет?
Чуть позже объясню, если сам не разберёшься

**Cryonyx** » 27.02.2005 (Вс) 19:51

Э-э, будь другом, объясни как сможешь. А то я вообще не въезжаю...

**Юстас** » 28.02.2005 (Пн) 1:37

Да в чём проблема?

Код: Выделить всё: Dim TxtState As String Private Sub Text1_Change() Text1.Text = TxtState End Sub Private Sub Text1_GotFocus() TxtState = Text1.Text End Sub

**Cryonyx** » 28.02.2005 (Пн) 8:03

Как говорится, всё гениальное просто

**Cryonyx** » 28.02.2005 (Пн) 8:05

Но суть в том, что я не ищу простых путей, мне интересно разобраться с самим механизмом подмены пунктов меню

ну и прочего...

**Andrey Fedorov** » 28.02.2005 (Пн) 10:14

Cryonyx писал(а):Текст легко и просто вставляется, хотя вроде бы изменение залочено.
Может кто-нить подскажет, як это исправить

Хм... И как ты это смог проделать? Ничего не вставляется - даже специально попробовал в рабочей программе... Может он у тебя все-же не Locked?

**Andrey Fedorov** » 28.02.2005 (Пн) 10:17

Ship писал(а):Зато присутствует свойство Enabled

Locked в некоторых случаях удобней. И он нормально работает!

Кривизна где-то в коде автора вопроса - с ним и надо разбираться.

**Юстас** » 28.02.2005 (Пн) 10:44

Andrey Fedorov писал(а):Хм... И как ты это смог проделать? Ничего не вставляется - даже специально попробовал в рабочей программе... Может он у тебя все-же не Locked?

Видимо, плохо пробовал: Нажимаешь правую кнопку мыши на текстбоксе, и выбираешь пункт меню Вставить. Если в буфере обмена есть текст, то он вставится в текстбокс. Независимо от того, locked или нет. Так же и от Shift+Insert вставляется.

**Andrey Fedorov** » 28.02.2005 (Пн) 10:51

Да нет - не плохо пробовал :;

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

Locked работает корректно.

В конце-концов попробуй вставить в приложенном проекте...

**CodeName33** » 28.02.2005 (Пн) 15:36

Andrey Fedorov, ГЫ! У меня вставляет! Может от виндов зависит или от сервис пака VB?

**Andrey Fedorov** » 28.02.2005 (Пн) 16:45

CodeName33 писал(а):Andrey Fedorov, ГЫ! У меня вставляет! Может от виндов зависит или от сервис пака VB?

У меня SP6. С SP5 тоже все нормально было. Ну а с более ранними - не пробовал. Поставь SP6.

**Юстас** » 28.02.2005 (Пн) 16:54

Со свистом вставляет

Если у большинства вставляет, то видимо надо всё-таки отказаться от сомнительного свойства locked, ведь не предложишь всем подряд установить сервиспаки (ещё и неизвестно, то ли 5, то ли 6).

Всё-таки 3-мя строчками этот эффект устраняется надёжней, чем многокилобайтными сервиспаками.

**Andrey Fedorov** » 28.02.2005 (Пн) 17:39

Юстас писал(а):Если у большинства вставляет, то видимо надо всё-таки отказаться от сомнительного свойства locked, ведь не предложишь всем подряд установить сервиспаки (ещё и неизвестно, то ли 5, то ли 6).

Честно говоря я не помню чтобы под какой-то операционкой Locked глючило у VB5/VB6 с любым сервис паком... Могу только предположить что это большинство пользует откорректированную умельцами/вирусами версию VB/Windows...

Юстас писал(а):Всё-таки 3-мя строчками этот эффект устраняется надёжней, чем многокилобайтными сервиспаками.

Да ну? И зачем только эти сервис паки делают...

P.S. Честно говоря не думаю что это сервис пак - действительно скорей всего что-то с системой...

**Cryonyx** » 28.02.2005 (Пн) 19:18

Andrey Fedorov писал(а):
Юстас писал(а):Если у большинства вставляет, то видимо надо всё-таки отказаться от сомнительного свойства locked, ведь не предложишь всем подряд установить сервиспаки (ещё и неизвестно, то ли 5, то ли 6).

Честно говоря я не помню чтобы под какой-то операционкой Locked глючило у VB5/VB6 с любым сервис паком... Могу только предположить что это большинство пользует откорректированную умельцами/вирусами версию VB/Windows...

Юстас писал(а):Всё-таки 3-мя строчками этот эффект устраняется надёжней, чем многокилобайтными сервиспаками.

Да ну? И зачем только эти сервис паки делают...

P.S. Честно говоря не думаю что это сервис пак - действительно скорей всего что-то с системой...

**Ennor** » 28.02.2005 (Пн) 20:08

Вот это да! Всю жизнь глючило, а сейчас проверил на XP SP2 - нет, исправили: пункт Paste по-прежнему активен, а вот выбор его ни к чему не приводит. VB SP6, запускал из-под среды.

Интересно, может, это каким-нить секюрити апдейтом фиксится? В смысле, патчем на для басика, а для самой винды? Скорее всего, учитывая, что стандартный виндовый Edit глючил в свое время точно так же...

**Cryonyx** » 28.02.2005 (Пн) 20:16

А вот мне интересно: разве в си и бэйсике используются не одни и те же стандартные Windows Common Controls? Так почему же тогда в сях этого глюка нет :?:

Или я мыслю не туда :?:

**Юстас** » 28.02.2005 (Пн) 20:29

Andrey Fedorov писал(а):Могу только предположить что это большинство пользует откорректированную умельцами/вирусами версию VB/Windows...

Это всего лишь твоё предположение.

Andrey Fedorov писал(а):Да ну? И зачем только эти сервис паки делают...

Вот тебе и ну. А вообще, если у тебя не вставляет, а у остальных вставляет, то наверное у тебя что-то не так

Возможно, ты слишком широко трактуешь понятие "Locked".

**Юстас** » 28.02.2005 (Пн) 20:32

Cryonyx

В Си используется обычный edit, в VB - некий "ThunderTextBox"

**hCORe** » 28.02.2005 (Пн) 20:51

Подумаешь, как класс назвать. Хоть "MyCoolWindowClassEditFigna" назови, функциональность не изменится

Конференция VBStreets

Глючный текстбокс

Глючный текстбокс

Re: Глючный текстбокс

Re: Глючный текстбокс

Кто сейчас на конференции