Skip to main content

AccessTr.neT


SHift, Alt,Control tuşları basılımı değilmi?

accessman
accessman
4
4283

SHift, Alt,Control tuşları basılımı değilmi?

#1
alıntıdır

Yeni bir modül oluşturup en üstteki Option Compare Database ve
varsa Option Explicit satırlarının altına şu satırları yerleştirin:

Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Const VK_SHIFT = &H10 'SHIFT
Public Const VK_CONTROL = &H11 'CTRL
Public Const VK_MENU = &H12 'ALT

Programınızın herhangi bir yerinde, basılı olup olmadığını bulmak istediğiniz
tuşlar için şu kodu kullanabilirsiniz artık:

If GetKeyState(VK_SHIFT) < 0 Then MsgBox "SHIFT tuşu basılı."
If GetKeyState(VK_CONTROL) < 0 Then MsgBox "CTRL tuşu basılı."
If GetKeyState(VK_MENU) < 0 Then MsgBox "ALT tuşu basılı."
@benbendedeilem
Cevapla
#2
paylaşım için teşekkürler accessman
İyiki Varsın Access Img-grin
Cevapla
#3
Sn:accessman
Paylaşımlar için teşekkürler
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
#4
Teşekkürler accessman.
"Gülümsemenin, parasal değeri yoktur. Satın alınmaz, ödünç verilmez, dilenilmez, çalınmaz ama verilmedikçe hiç alınamaz."
Baştan sona Sql veritabanı oluşturma
Cevapla
#5
Sn accesman paylaşım için teşekkürler. Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task