VB ile Kısayol Tuşu Oluşturma
Jul 26,2007 00:00 by erkan
Kısayol Tuşları Oluşturma
F tuşlarıyla işlem yapabilmemiz için key kodlar yer alıyor

Merhaba arkadaşlar bu kodlar çoğunuzun bildiği kodlardır muhtemelen ben bu kodları biraz geliştirerek diğer örnekler gibi aklınızı karıştırmadan öğrenmenizi sağlamaya çalıştım...

örnek uygulamamız ufak bi hesap makinası...

gereken nesneler:

3 adet TextBox
4 adet CommandButton

yapacağımız işlem şu text1 ve text2 ye değer girilip sonucu text3'e yazdıracağız.

command1 toplama
command2 çıkarma
command3 çarpma
command4 bölme

işlemini yapacak bunun dışında profesyonel programlarda gördüğümüz o F1,F2,F3'le işlem yaptırmalar var ya işte bunu öğreneceksiniz burada.

Şimdi 3 adet textbox'ı ve 4 tane commandbuton'u ekleyin!!!

şimdi kodlarımız şöyle


Option Explicit ' burada f tuşlarıyla işlem yapabilmemiz için key kodlar yer alıyor
Const KEY_F1 = &H70
Const KEY_F2 = &H71
Const key_f3 = &H72
Const key_f4 = &H73
Const KEY_ESCAPE = &H1B 'esc tuşu ile program kapanır


Private Sub Command1_Click() 'command1 e tıkladığımızda toplama işlemi yapacak
Text3 = Val(Text1) + Val(Text2)
End Sub

Private Sub Command2_Click() 'command1 e tıkladığımızda çıkarma işlemi yapacak
Text3 = Val(Text1) - Val(Text2)
End Sub

Private Sub Command3_Click() 'command1 e tıkladığımızda çarpma işlemi yapacak
Text3 = Val(Text1) * Val(Text2)
End Sub

Private Sub Command4_Click() 'command1 e tıkladığımızda bölme işlemi yapacak
Text3 = Val(Text1) / Val(Text2)
End Sub

' şimdi geldik bizim için en eğlenceli ve ipucumuzdaki amaca.

Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode

Case KEY_F1: Text3 = Val(Text1) + Val(Text2) 'f1 e basıldığı zaman toplama işlemi yapıyor
Case KEY_F2: Text3 = Val(Text1) - Val(Text2) 'f2 e basıldığı zaman çıkarma işlemi yapıyor
Case key_f3: Text3 = Val(Text1) * Val(Text2) 'f3 e basıldığı zaman çarpma işlemi yapıyor
Case KEY_F4: text3= Val(taxt1) / Val(Text2) 'f4 e basıldığı zaman bölme işlemi yapıyor

End Select
End Sub


Şimdi bu sistemi yeni gören arkadaşlar için şöyle bir açıklama yapayım burada sadece bu tarz aritmatiksel işlemler değil herhangi bir forumun açılıp kapanmasınıda yapabilirsiniz

mesela

Case KEY_F1: form2.show şeklinde de basit bişeyler yapılabilir.

Son söylediğim çok yeni başlayanlar içindi.