На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Поиск Участники Календарь Избранное RSS
msm.ru
! Правила раздела Visual Basic: Общие вопросы
Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image FAQ Сайта user posted image FAQ Раздела user posted image Кладовка user posted image Наши Исходники user posted image API-Guide user posted image Поиск по Разделу user posted image MSDN Library Online user posted image Google
Ваше мнение о модераторах: user posted image SCINER, user posted image B.V.
Модераторы: SCINER, B.V.
  
> SendKey или SendMessage? , Какой функцией удобнее послать "CTRL+C" и как именно?
Сергей85
Сообщ. #1 ,
    Profi
    *****
    Профиль · PM
    Рейтинг (т): 5
    SendMessage не пробовал.

    SendKeys: если я посылаю Call SendKeys("^s") - буквы в кавычках пишутся не английским языком, а тем, который на текущий момент включен в системе.

    Пусть я исправляю это посредством Chr - но вопрос остается: какая функция стабильнее? И как при помощи SendMessage написать CTRL+S?
    Сообщение отредактировано: Сергей85 -
    Lumen
    Сообщ. #2 ,

      Profi
      *****
      Профиль · PM
      Рейтинг (т): 200
      А откуда именно данные надо скопировать?
      Можно послать WM_COPY, можно сэмулировать Ctrl+C с помощью keybd_event, есть API для работы непосредственно с буфером обмена. Наконец можно напрямую получить текст из окна с помощью SendMessage(WM_GETTEXT) или GetWindowText. От задачи зависит.
      Сергей85
      Сообщ. #3 ,
        Profi
        *****
        Профиль · PM
        Рейтинг (т): 5
        Я описался: мне только CTRL+S нужно. SendKeys оказался совсем зависимым от текущей раскладки клавиатуры. SendMessage мне не удалось запустить (код не сохранил).

        Мне нужен пример: либо как при помощи SendMessage послать CTRL+S, либо какой командой API поменять DEFAULT-раскладку клавиатуры четко на EN (тоже с примером).
        Сообщение отредактировано: SCINER -
        Wizard B.V.
        Сообщ. #4 ,

          Thinker
          *********
          Профиль · PM
          Поощрения: 77 Dgm
          Рейтинг (т): 35
          Цитата Сергей85 @
          Я описался

          В каком месте ударение? :D

          Цитата Сергей85 @
          Мне нужен пример: либо как при помощи SendMessage послать CTRL+S

          Тебе нужен WM_COMMAND с соответствующим ID меню, а если меню нет -- SendInput с AttachThreadInput
          Сергей85
          Сообщ. #5 ,
            Profi
            *****
            Профиль · PM
            Рейтинг (т): 5
            Я решил так. Перед Sendkey "CTRL+S" посылаю команду смены раскладки клавиатуры на EN (не по умолчанию). Делаю Sendkey, возвращаю раскладку назад.

            ExpandedWrap disabled
              Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long 'Смена раскладки клавиатуры.
               
              17 Call LoadKeyboardLayout("00000409", 1)  'Смена раскладки на английскую для корректного CTRL+S.
               
              18 Call SendKeys("^s", 1000)
            0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
            0 пользователей:


            Рейтинг@Mail.ru
            [ Script execution time: 0,0392 ]   [ 16 queries used ]   [ Generated: 26.10.25, 14:31 GMT ]  
            Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.