VB ile Kısayol Tuşu Oluşturma

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.

Kodlar için teşekkürler kardeş VB de henuz acemiyimde elimdeki bir programa programı açamak ve kapatmak için bir KısaYol Tuşu eklemek istiyorum bunu nasıl yapabilirim. kardeş dediğim gibi vb de çok ecemiyim ona göre biraz cevap verirken detaylı olursa sevinirim sadece kod yetmemeyebilir şimdiden teşekkürler.
(Gönder Kenan, Haziran 28, 2009, 4:29 AM)

VB ile Kısayol Tuşu Oluşturma

Haber anlatımı

1294 Kere okundu

Bu makaleyi beyendinizmi ?

Mr. CanaWar

Sitede ara Gelişmiş Arama seçenekleri »

Ana sayfa \| Ana sayfanız yapın \| Sık kullanılanlara ekle \| Rss/Rdf \| JavaScript