/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Caps Lock
Fra : Henrik Absalon


Dato : 26-04-01 18:25

Hejsa

Hvordan slår man Caps Lock fra, så tasten bliver sat ud af funktion.

Henrik




 
 
Helge Bjørkhaug (26-04-2001)
Kommentar
Fra : Helge Bjørkhaug


Dato : 26-04-01 19:21

Henrik Absalon <absalon@it.dk> skrev i news:9c9m26$2sqv$1@news.cybercity.dk
> Hejsa
>
> Hvordan slår man Caps Lock fra, så tasten bliver sat ud af funktion.

Sett propery'en KeyPreview til Form'en = True

Const VK_CAPITAL = &H14
Const VK_NUMLOCK = &H90
Const VK_SCROLL = &H91
Const VK_USED = VK_SCROLL

Private Type KeyboardBytes
kbByte(0 To 255) As Byte
End Type

Private Declare Function GetKeyboardState Lib "user32" (kbArray As
KeyboardBytes) As Long
Private Declare Function SetKeyboardState Lib "user32" (kbArray As
KeyboardBytes) As Long

Dim kbArray As KeyboardBytes, CapsLock As Boolean, kbOld As KeyboardBytes

Private Sub TurnOn(vkKey As Long)
GetKeyboardState kbArray
kbArray.kbByte(vkKey) = 1
SetKeyboardState kbArray
End Sub

Private Sub TurnOff(vkKey As Long)
GetKeyboardState kbArray
kbArray.kbByte(vkKey) = 0
SetKeyboardState kbArray
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = VK_CAPITAL Then TurnOff VK_CAPITAL
End Sub

Bruk sub'ene TurnOn og TurnOff til slå på og av capslock etc.

--
Snutten



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408929
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste