Как включить клавишу Shift (готовое решение)

02.10.2012, 19:06. Показов 2117. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Если надо нажать кнопку шифт то:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    <DllImport("user32.dll")> _
    Public Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
    End Function
    Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
 
    Public Const KEYEVENTF_KEYUP As Short = &H2
    Public Const VK_LSHIFT = &HA0
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 100
        Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(Keys.LControlKey) And GetAsyncKeyState(Keys.Z) Then
            keybd_event(VK_LSHIFT, 0, 0, 0)
            keybd_event(VK_LSHIFT, 0, KEYEVENTF_KEYUP, 0)
        End If
    End Sub

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

02.10.2012, 19:06

Ответы с готовыми решениями:

Как проиграть MP3 (готовое решение)
В процессе работы иногда требуется проиграть звук в MP3. Делаем это так: 1. Скачать файл wmp.dll из сети. 2. В редакторе идем в...

Как поместить иконку на PictureBox (готовое решение)
Как поместить иконку на PictureBox (готовое решение). Часто встречаются задачи заполнения контейнера иконками (например, с прозрачной...

Тени от компонентов - готовое решение
Недавно меня попросили реализовать тени от контролов, решил выложить то-что получилось) Public Class CShadow 'Автор: Григорий...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

02.10.2012, 19:06

Помогаю со студенческими работами здесь

Всплывающее меню (готовое решение)
Всплывающее меню (готовое решение) На главной фрме ContextMenuStrip (Name = upMenu, коллекция (имена и текст) - Очистить, Копировать,...

Аналоговые часы (готовое решение)
Приветствую, форумчане! Как-то сделал эти часы в SmallBasic 0.9 и решил сделать перевод на VB Net- 2010. В оглавлении к часам на...

Game Controller - готовое решение
Нашел этот исходник для работы с джойстиком. Программка полностью рабочая может кому пригодится.

Элемент Timer (готовое решение)
Элемент таймер. Imports System.ComponentModel Public Class Timer Inherits Component Event Tick(sender As Object, e As...

Грузим файлы на FTP - готовое решение
Imports System.Net Imports System.IO Module Module1 ''' <summary> ''' Грузит файлы на FTP-сервер ''' </summary>...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита, которое может. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

Наверх