carmelo

VB'de CAPSLOCK ve NUMLOCK'U Kodla Değiştirmek VB'de CAPSLOCK ve NUMLOCK'U Kodla Değiştirmek
CAPSLOCK ve NUMLOCK'U Kodla Değiştirmek Visual Basic 4.0 paketi tuş kilitlerini değiştirmek ve görüntülemek için "aaaboard State Control"'unu (aaaSTA32.OCX) birlikte getiriyor. Bu kontrolü kullanarak ve küçük bir kod satırı yazarak programınız çalışırken CAPS LOCK NUM LOCK ve SCROLL LOCK kilitlerini açıp kapayabilirsiniz. Peki programınızı derleyip kurulum paketinin oluşturduğunuzda ne olacak? Şüphesiz ilgili kontrol de uygulamanız ile birlikte 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.
Public Const VK_CAPITAL = &H14
Public Type aaaboardBytes
kbByte(0 To 255) As Byte
End Type

Public kbArray As aaaboardBytes
Public Declare Function GetaaaState Lib "user32"
(ByVal nVirtaaa As Long) As Long
Public Declare Function GetaaaboardState Lib
"user32" (kbArray As aaaboardBytes) As Long
Public Declare Function SetaaaboardState Lib
"user32" (kbArray As aaaboardBytes) As Long

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

Private Command1_Click()
GetaaaboardState kbArray

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

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

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

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