Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Смена раскладки клавиатуры в Excel Добавлено: 22.02.12 13:44  

Автор вопроса:  ДенисЧ
Подскажите пж. Есть ли возможность программно менять раскладку клавиатуры (например по событию SelectionChange) на листе Excel.
Пробовал Application.LanguageSettings.LanguageID или LanguagePrefferedForEditing - прише ошибку т.к. имеет свойство только для чтения

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 Дмит



Вопросов: 11
Ответов: 160
  Web-сайт: dimit.pochta.ru
 Профиль | | #1 		Добавлено: 24.02.12 12:09
http://codevb.narod.ru/mouse_9.html
  1. 'Добавить в модуль:
  2.  
  3. Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
  4. Public Const kb_lay_ru As Long = 68748313
  5. Public Const kb_lay_en As Long = 67699721
  6.  
  7. ' Переключить на русский язык
  8. x = ActivateKeyboardLayout&(kb_lay_ru, 0)
  9. ' Переключить на английский язык
  10. x = ActivateKeyboardLayout&(kb_lay_en, 0)
  11. ' Переключить на следующий установленный в системе язык
  12. x = ActivateKeyboardLayout&(0, 0)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам