Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
04/12/2012 12:42
Konu Sahibi
accessman
Yorumlar
3
Okunma
2202
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
accessman

accessman

Aktif Üye
99
 Belirtilmemiş
 561
 2.367
 31/10/2008
425
 Denizli
 
 Ofis 2003
 20/09/2016,00:20
Capslock Ve Numlock'u Kodla DeĞİŞtİrmek Visual Basic 4.0 paketi tuş kilitlerini değiştirmek ve görüntülemek için "Keyboard State Control"'unu (KEYSTA32.OCX) birlikte getiriyor. Bu kontrolü kullanarak ve küçük bir kod satırı yazarak programınız çalışırken CAPSLOCK, NUMLOCK ve SCROLLLOCK kilitlerini açıp kapayabilirsiniz.

Peki programınızı derleyip kurulum paketinin oluşturduğunuzda ne olacak? Şüphesiz ilgili kontrol de uygulamanız ile brilikte programı kurduğunuz sisteme kopyalanacak. Bizce bu kadar küçük bir işlemi gerçekleştiren bir kontrolü kullanarak uygulamanızı kalabalıklaştırmak anlamsız, aynı işlemi bir WIN32 API'sini kullanarak da gerçekleştirebilirsiniz.

Örneğimizi uygulamak için üzerinde üç tane komut butonu bir de etiket kontrolü olan bir form oluşturun ve ilk aşamada boş bir BAS modülünün General - Declarations bölümüne aşağıdaki satırları girin.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Public Const VK_CAPITAL = &H14
Public Type KeyboardBytes
kbByte(0 To 255) As Byte
End Type

Public kbArray As KeyboardBytes
Public Declare Function GetKeyState Lib "user32"
(ByVal nVirtKey As Long) As Long
Public Declare Function GetKeyboardState Lib
"user32" (kbArray As KeyboardBytes) As Long
Public Declare Function SetKeyboardState Lib
"user32" (kbArray As KeyboardBytes) As Long

'Aşağıdaki kodlar oluşturduğnuz formun
'General - Declarations bölümüne girmelidir:
Private Function CapsLock() As Integer
CapsLock = GetKeyState(VK_CAPITAL) And 1 = 1
End Function

Private Command1_Click()
GetKeyboardState kbArray

kbArray.kbByte(VK_CAPITAL) =
IIf(kbArray.kbByte(VK_CAPITAL) = 1, 0, 1)

SetKeyboardState kbArray
Label1 = IIf(CapsLock() = 1, "Açık", "Kapalı")
End Sub

Private Sub Command2_Click()
GetKeyboardState kbArray
kbArray.kbByte(VK_CAPITAL) = 1
SetKeyboardState kbArray
Label1 = IIf(CapsLock() = 1, "Açık ", "Kapalı")
End Sub

Private Sub Command3_Click()
GetKeyboardState kbArray
kbArray.kbByte(VK_CAPITAL) = 0
SetKeyboardState kbArray
Label1 = IIf(CapsLock() = 1, "Açık ", "Kapalı")
End Sub


kod ile numlock u açıp kapatan farklı bir kod


@benbendedeilem

ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.064
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,21:56
Paylaşım için teşekkürler.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

benremix

benremix

Onursal Üye
6766
Ra.... So....
 52
 127
 4.443
 17/05/2009
365
 Ankara
 Şirket Sahibi
 Ofis 2010 64 Bit
 Dün,10:17
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



accessman

accessman

Aktif Üye
99
 Belirtilmemiş
 561
 2.367
 31/10/2008
425
 Denizli
 
 Ofis 2003
 20/09/2016,00:20
her daim numlock açık olsun diyorsanız şunu istediğiniz metin kutusunun giriş olayına yazmanız yeterli

Kod:
keybd_event VK_NUMLOCK, MapVirtualKeyEx(VK_NUMLOCK, 0, GetKeyboardLayout(0)), KEYEVENTF_EXTENDEDKEY, 0

tabiki örnekteki modulude eklemelisiniz


@benbendedeilem


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Access Icon Değiştirme oosmaner 1 332 20/08/2018, 13:35
Son Yorum: ozanakkaya
  Listbox Veri Kaynağını Değiştirme Örnek. A.Kadir. 1 666 16/03/2018, 16:33
Son Yorum: ozanakkaya
  Masa Üstüne Uygulama Kısayolu Gönderme ve Simge Değiştirme Uygulaması ozanakkaya 6 2.654 21/05/2016, 13:58
Son Yorum: mehami
  Kullanıcı Resimli Şifre Oluşturma, Değiştirme, Hatırlatma ve Yetkilendirme iscinar 5 3.346 10/10/2014, 21:34
Son Yorum: iscinar
  Formda ArkaPlan ve Label Renklerini Butonla değiştirme Uygulaması HandSword 7 3.844 24/04/2010, 23:57
Son Yorum: hace32

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.