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

**dima81** » 11.09.2007 (Вт) 16:25

Есть ли свойство или код (если да, то поделитесь, пожайлуста):

чтобы в ComboBox нельзя было стирать или изменять текущее значение записи (наподобие Locked), но в то же время можно было выбирать различные записи в этом ComboBox. (Locked блокирует и то и другое)

Долго искал по поиску, но нужной темы не нашел.

**dr.MIG** » 11.09.2007 (Вт) 16:35

В событие KeyPress добавить строчку: KeyAscii=0

**tyomitch** » 11.09.2007 (Вт) 16:42

Style = "2 - Dropdown List"

**dima81** » 11.09.2007 (Вт) 21:59

dr.MIG, этот способ помогает, если ты пытаешься удалить текст Backspace-сом, но если выделить кусок текста и нажать Delete, то текст удаляется. В принципе и этого достаточно

tyomitch, немножко не подходит, так как при загрузке формы мне нужна текущая запись

**tyomitch** » 12.09.2007 (Ср) 8:24

Ну так и задай при загрузке какую хочешь запись.

**VVitafresh** » 12.09.2007 (Ср) 8:43

dima81 писал(а):но если выделить кусок текста и нажать Delete, то текст удаляется

В KeyDown напиши KeyCode = 0

Ну а по второму способу tyomitch уже написал тебе.

**dima81** » 12.09.2007 (Ср) 13:53

VVitafresh, более по душе этот метод:

KeyCode = 0
KeyAscii=0

Спасибо!

**alibek** » 12.09.2007 (Ср) 14:10

Не забудь только, что пользователь может мышкой выделить и удалить текст.

**tyomitch** » 12.09.2007 (Ср) 14:27

Угу, и ей же вставить.

**dima81** » 12.09.2007 (Ср) 15:27

alibek, tyomitch:

Не забудь только, что пользователь может мышкой выделить и удалить текст

а вот это я упустил. С помощью кода можно как-нибудь эту проблему решить?

**VVitafresh** » 12.09.2007 (Ср) 15:41

tyomitch писал(а):Style = "2 - Dropdown List"

**dr.MIG** » 12.09.2007 (Ср) 19:52

dima81 писал(а):С помощью кода можно как-нибудь эту проблему решить?

Ну можно в KeyDown вставить Shift = 0, что отключит сочетания клавиш для вырезания/вставки. Чтобы грохнуть контекстное меню - смотреть в сторону сабклассинга.
А чем не устраивает вариант Тёмыча? (просто, когда я отвечал на вопрос, VB не было под рукой, вот и забыл про стили... А так вообще-то мой вариант менее красивый).

**VVitafresh** » 12.09.2007 (Ср) 20:04

Если сильно хочется заблокировать контекстное меню, то вроде было это на форуме.
Вот (правда для текстбокса): http://bbs.vbstreets.ru/viewtopic.php?t=26238

**dima81** » 13.09.2007 (Чт) 12:26

dr.MIG:

А чем не устраивает вариант Тёмыча?

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

**dr.MIG** » 13.09.2007 (Чт) 12:49

Так можно же это сделать програмно Combo1.Text=Combo1.List(0)

**alibek** » 13.09.2007 (Чт) 13:15

ListIndex, а не Text.

**dima81** » 13.09.2007 (Чт) 13:36

Combo1.ListIndex = Combo1.List(0)

Пишет ошибку Type MisMatch

**Viper** » 13.09.2007 (Чт) 13:40

dima81 писал(а):
Combo1.ListIndex = Combo1.List(0)

Пишет ошибку Type MisMatch

Тяжелый случай!
Использовать надо так:

Код: Выделить всё: Combo1.ListIndex = 0

а не путем подстановки куска одной цитаты в другую.

**dima81** » 13.09.2007 (Чт) 16:41

Viper:

Использовать надо так:
Visual Basic:
Combo1.ListIndex = 0

Если я не ошибаюсь использовать все-таки надо так:

Combo1 = Combo1.List(0)

**VVitafresh** » 13.09.2007 (Чт) 18:15

dima81, тебе alibek и Viper показали более правильный вариант, а

Код: Выделить всё: Combo1 = Combo1.List(0)

эквивалентно тому, что уже писали

Код: Выделить всё: Combo1.Text=Combo1.List(0)

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

ComboBox - проблема с Locked

ComboBox - проблема с Locked

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