TurkProgrammers.NeT
Ana sayfa Ana Sayfa | Ana sayfanız yapın | Sık kullanılanlara ekle | Rss/Rdf Besleme| JavaScript
Bölümler
Arşiv
paz sa ça cu cum pa
1234567
891011121314
15161718192021
22232425262728
293031

Mailinizi ekleyin
Haberlere abone olun:

anket: Web Programcılığının Geleceğini nasıl görüyorsunuz
Web Programcılığının Geleceğini nasıl görüyorsunuz?
Önü Fazlası ile açık
ilerde yapacak web sitesi kalmayacak
Hazır sistemler işleri iyice bitirecek
Bugünden daha kötü olamaz
Anket sonuçları | Eski Anketler


email Arkadaşınızın maili | print Yazıcı versionu | comment Yanıtlar (1 Gönder)

VB ile Kısayol Tuşu Oluşturma

by erkan demir on Temmuz 26,2007

image
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.

1294 Kere okundu

Bu makaleyi beyendinizmi ?

1 2 3 4 5 Rating: 3.00Rating: 3.00Rating: 3.00 (Toplam 10 Oylar)
comment Yanıtlar (1 Gönder)
  • image 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)
Çok okunanlar
En Çok Yorumlananlar
Yazarlar