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

Derecelendirme: 0/5 - 0 oy

accessman

Aktif Üye
Kullanici Avatari
Aktif Üye
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


Ek Dosyalar
.rar   numlock.rar (Dosya Boyutu: 23,34 KB / İndirme Sayısı: 25)
@benbendedeilem
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.863
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,10:37
Paylaşım için teşekkürler.


Cevapla

benremix

Uzman
Kullanici Avatari
Uzman
R.... S....
4.433
17/05/2009
365
Ankara
Ofis 2010
15/10/2017,21:50
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

accessman

Aktif Üye
Kullanici Avatari
Aktif Üye
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
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Masa Üstüne Uygulama Kısayolu Gönderme ve Simge Değiştirme Uygulaması ozanakkaya 6 1.939 21/05/2016, 13:58 mehami
  Kullanıcı Resimli Şifre Oluşturma, Değiştirme, Hatırlatma ve Yetkilendirme iscinar 5 2.926 10/10/2014, 21:34 iscinar
  Formda ArkaPlan ve Label Renklerini Butonla değiştirme Uygulaması HandSword 7 3.415 24/04/2010, 23:57 hace32
  Formun rengini değiştirme ercansahin 5 2.360 20/02/2010, 23:22 perisanoglu
  Formdaki resimlerin boyutlarını değiştirme ercansahin 3 1.375 15/01/2010, 20:56 Puletin

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.