Visual
Basic - Советы Как поменять цвет кнопки (CommandButton) Александр Чумак Как поменять цвет кнопки (CommandButton) 1. Устанавливаешь новую кнопку 2. В свойстве Style для кнопки устанавливаешь значение 1 - графический 3. В свойстве BackColor в палитре выбираешь нужный цвет. Назад Арташес Сейланян Имитация нажатия кнопки Иногда создавая программы
в которых присутствовали элементы вычислительных операций, мне приходилось
создавать кнопочные панели. Для создания визуального эффекта нажатия той
или иной кнопки на форме, при вводе данных с клавиатуры, я использую события
KeyDown и KeyUp того текстового поля куда вводится информация. В зависимости от условий задачи Вы или устанавливаете свойствo Text1.TabIndex = 0 (на стадии разработки) или передаете ему фокус Text1.SetFocus . В процедуру события KeyDown текстового поля вписываем Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If
KeyCode = 97 Then
Command1.Default = True Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) If
KeyCode = 97 Then Command1.Default =
False
Арташес Сейланян Управление клавишами <- и -> Приветствую всех Visual Basic-истов. Решился наконец написать пару строчек для одного из моих любимых сайтов. Недавно пришлось заглянуть в Help - файл моего земляка, Армена Мнацаканяна, а я туда частенько заглядываю, но ответа на свой вопрос не нашел. Мне нужно было, чтоб при помощи стрелок 'Вправо' и 'Влево' переходить от одного TextBox к другому. Сейчас решение есть и я его привожу. Private Sub Text1_KeyDown(KeyCode As
Integer, Shift As
Integer) KeyCode=39 - фиксируется
нажатие клавиши 'Вправо' Private
Sub Text1_KeyDown(KeyCode As
Integer, Shift As
Integer) If KeyCode = 37 And Text2.SelStart = 0 Then Text1.SetFocus End Sub KeyCode = 37 - фиксируется нажатие клавиши 'Влево'Text2.SelStart = 0 – определяем местонахождение курсора, в данном случае, что б курсор находился в начале Text2.Tex1.SetFocus – передаем фокус Text1 Сергей Миллер Кнопки - картинки Очень часто вместо обычных кнопок используются картинки. Т.е. существует всего три картинки - одна на которую будут жать (img1), вторая отжатая (img2) и третья нажатая (img3) (img2 и img3 - невидимы). Делаем это так: Private Sub Form_Load()
Private Sub Image1_MouseDown(Button
As Integer, Shift As
Integer, _ Private Sub Image1_MouseUp(Button
As Integer, Shift As
Integer, _ Этот приём знает каждый... Но есть в нём один недостаток, а именно: при серии непрерывных кликов на объект картинка почему-то реагирует через раз. Т.е. то нажмётся, то не нажмётся. Так вот вот сам совет :-) : чтобы этого избежать в событие Img1_MouseDown нужно вставить строку SendKeys "A" Т.е. картинке одновременно посылается нажатая клавиша. Почему так, понять не могу сам. Но в скобках, конечно же, не важна буква "A" - там может стоять и В и С. Главное само событие.
Если Вам нужно сделать MsgBox с кнопкой на определённую станицу Вашего хелпа, сделайте следующее: MsgBox "Азбука Visual Basic", vbMsgBoxHelpButton, "http://www.cm.f2s.com",
_ Где 10 - это номер страницы Вашего хелп-файла! Rlzz
Напишите как , что бы прога на Байсике
эмулировала нажатие Enter на системном сообщении
из браузера. Пришло много аллертов , а неохота выгружать браузер - лучше
пусть прога старается нажимает ENTER на сообщение. 1.Создайте стандартный проект. Private Sub Timer1_Timer() On Error GoTo abc
'в случае возникновения ошибки выходим на
_ abc:
'а это метка abc, на которую мы выходим
при возникновинии _ Теперь же нужно просто запустить программу и все аллерты она будет закрывать сама! Кстати, получилась весьма полезная программка для пользователей Netscape - он всё время спрашивает загружать или нет? :) |