API ile CapsLock Durumu Değiştirme

API - Application Programming Interface
Yazılım Programlama Arayüz Uygulaması

API ile CapsLock Durumu Değiştirme

İleti#1)  Bülent » 28 May 2012 07:04

CapsLock durumunu değiştirmek için aşağıdaki kodu kullanabilirsiniz.

Gerekli malzemeler:
1-UserForm : UserForm1
2-Label : Label1
3-CommandButton: cmdTurnOn
4-CommandButton: cmdTurnOff
5-ToggleButton: cmdToggle
6-TextBox: TextBox1

Kod: Tümünü seç
Option Explicit

Private kbArray As KeyboardBytes
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long
Private Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Private Declare Function SetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Private Type KeyboardBytes
    kbByte(0 To 255) As Byte
End Type
Private Const VK_CAPITAL = &H14

Function CapsLock() As Boolean
    CapsLock = (GetKeyState(VK_CAPITAL) And 1 = 1)
End Function

Private Sub cmdToggle_Click()
    GetKeyboardState kbArray
    kbArray.kbByte(VK_CAPITAL) = _
        IIf(kbArray.kbByte(VK_CAPITAL) = 1, 0, 1)
    SetKeyboardState kbArray

    If CapsLock() Then
        Label1.Caption = "On"
    Else
        Label1.Caption = "Off"
    End If
End Sub

Private Sub cmdTurnOn_Click()
    GetKeyboardState kbArray
    kbArray.kbByte(VK_CAPITAL) = 1
    SetKeyboardState kbArray

    If CapsLock() Then
        Label1.Caption = "On"
    Else
        Label1.Caption = "Off"
    End If
End Sub

Private Sub cmdTurnOff_Click()
    GetKeyboardState kbArray
    kbArray.kbByte(VK_CAPITAL) = 0
    SetKeyboardState kbArray

    If CapsLock() Then
        Label1.Caption = "On"
    Else
        Label1.Caption = "Off"
    End If
End Sub


Private Sub UserForm_Initialize()
If CapsLock() = 1 Then Label1 = "On" Else Label1 = "Off"
End Sub
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 00:08
Meslek: Bilgi Sistemleri
Yaş: 42
İleti: 3628
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

Cevap: API ile CapsLock Durumu Değiştirme

İleti#2)  Murat OSMA » 28 May 2012 07:47

Teşekkürler Bülent abi. --)(
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 34
İleti: 14338
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: API ile CapsLock Durumu Değiştirme

İleti#3)  basstone » 02 Haz 2012 10:06

Bülent Bey Merhaba,

Çalışma için teşekkürler. Beni büyük bir dertten kurtardınız
Kullanıcı avatarı
basstone
 
Adı Soyadı:serdar yılmaz
Kayıt: 24 Oca 2011 10:00
Konum: Bursa
Meslek: Makine Mühendisi
Yaş: 35
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa

Cevap: API ile CapsLock Durumu Değiştirme

İleti#4)  Abidin Özçelik » 03 Haz 2012 06:43

Çok güzel şkşk
Kullanıcı avatarı
Abidin Özçelik
Siteye Alışmış
 
Adı Soyadı:ABİDİN ÖZÇELİK
Kayıt: 16 Haz 2008 09:47
Konum: Diyarbakır
Meslek: Eczacı
Yaş: 38
İleti: 361
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİYARBAKIR

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: API ile CapsLock Durumu Değiştirme

İleti#5)  Erhan Yavuz » 04 Haz 2012 05:44

Sağol kardeşim.. şkşk şkşk şkşk şkşk şkşk şkşk
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 00:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 60
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Cevap: API ile CapsLock Durumu Değiştirme

İleti#6)  Ozan İLGÜN » 26 Eyl 2013 10:31

Ben<>de bunu arıyordum. Çok teşekkürler.
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2827
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: API ile CapsLock Durumu Değiştirme

İleti#7)  Enes Recep BAĞ » 26 Nis 2016 13:42

şkşk
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 37
İleti: 8263
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez


Forum Excel ve API

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe