Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

кнопка

2.2K
02 февраля 2003 года
dromer
6 / / 29.01.2003
Помогите пожалуйста !
Имею кнопку (точнее она меня) у которой 2а пложения, первое ненажатое,
Втрое – нажатое залипшее. Так она задумана.
Залипает она по двойному клику мышкой. При одинарном работат как
Обычная кнопка.

Так вот вопрос как сделать чтобы она работала на двойной клик также как на 2 одинарных
И не залипала.

Ответ – возьми обычную не принимается, я не знаю как на нее приклеить картинку
(Хотя строчка есть в свойствах), тем более отцентрировано.
Не создавая PictureBox.

Короче с горя написал:

Private Sub CommandButton30_DblClick(Cancel As MSForms.ReturnBoolean)
Dim KeyAscii As Integer
SendKeys "{left}"
SendKeys "{right}" “только для того чтобы вернуть фокус на место
End Sub

Вроде работает, но это же бред какой-то.
Если рядом добавить

Private Sub Command30_Click()
‘///////////////////
End Sub
Уже не работает. Поравьте, наверняка кто то знает как правильно.
3.4K
22 февраля 2003 года
Rude Shock
6 / / 22.02.2003
Цитата:
Originally posted by dromer
И все-таки...Ответ – возьми обычную
В "строчку свойствах" вставь картинку
Измени стиль кнопки с Standart (по-моему) на Grafical ... У меня получалось ...
Если удут "?" ...

1.9K
22 февраля 2003 года
Putch
64 / / 22.02.2003
Цитата:
Originally posted by dromer
Помогите пожалуйста !
Имею кнопку (точнее она меня) у которой 2а пложения, первое ненажатое,
Втрое – нажатое залипшее. Так она задумана.
Залипает она по двойному клику мышкой. При одинарном работат как
Обычная кнопка.

Так вот вопрос как сделать чтобы она работала на двойной клик также как на 2 одинарных
И не залипала.

Ответ – возьми обычную не принимается, я не знаю как на нее приклеить картинку
(Хотя строчка есть в свойствах), тем более отцентрировано.
Не создавая PictureBox.

Короче с горя написал:

Private Sub CommandButton30_DblClick(Cancel As MSForms.ReturnBoolean)
Dim KeyAscii As Integer
SendKeys "{left}"
SendKeys "{right}" “только для того чтобы вернуть фокус на место
End Sub

Вроде работает, но это же бред какой-то.
Если рядом добавить

Private Sub Command30_Click()
‘///////////////////
End Sub
Уже не работает. Поравьте, наверняка кто то знает как правильно.






voobsheto ty vse delaesh pravilno
eto gluk VISUAL BASIC'A
SENDKEYS "1" i vse ok

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог