

Basılan Tuşu Kaydetmek O Tusa Basıldıgında İslem Yaptırmak?
-
örneğin
Private Sub Command1_Click()
Longyaz &HD5E104, "Crusader", text1.textmisal bunu su sekilde yaptıra bilirmymz
text1
text2
olsn text i tiklayip "ctrl+1" yapsn adam program bunu kaydetsin
ctrl+1 e basıldıgında
Longyaz &HD5E104, "Crusader", text1.text
bu kodu islesin
bide bunlari .ini olarak kaydebilirmymz? :D
mesala adam
ctrl+1 kısayolu verdi herseferinde ugrasman die
bunu ayar.ini ye kaydebilirmyz?
-
text i tikladiğinda deil text2 yi tikladiginda yani
olsn text2yi tiklayip "ctrl+1" yapsn adam program bunu kaydetsin
bide iniye text2=ctrl+1 die deilde mesala
para=ctrl+1 die kaydetsin
-
hoca türkçe konuşsan??? ne istiyon programında klavye kısayolu oluşturmak mı?
-
nerde yabanci dil yazmisim :D
anlataym
simdi
text1 war
adam geldi text1 e tikladi ctrl+1 basti text1de ctrl+1 yazıcak ve bunu kısayol olarak alıcak
yani adam ctrl+1 yaptıgında belirtilen komut isleme giricek.
örnek veriom ctrl+1 e bastıgında
msgbox "selam" yazıcak.
bide söyle bi soru sordum
mesala bunlar ayar.ini die kaydetse program
mesala text1 degerini adam ctrl+1 girdi bunu iniye kaydetse program formload olaynda bu ini dosyasini okuyup islese.
-
Private Sub Text1_keydown(keycode As Integer, Shift As Integer)
If keycode = 97 And Shift = 2 Then
MsgBox ("asd")
End If
End Sub
böyle yaparsan kişi text1'de ctrl+1 kombinasyonunu kullandığında msgbox çıkar -
hocam demek istedigim o deil
hangi tusa basıldıgında islem yapılacak die adama sormasini istiorm
adam text e hangi tusu girerse
o tusa basıldıgında
islem yapılcak.
mesala adam text1 ctrl+5 i girdi
sonra ctrl+5 e basdıgında
MsgBox ("asd")
islencek
ctrl+3 girerse
ctrl+3 e bastiginda
MsgBox ("asd")
islencek -
Private Sub Text1_keydown(keycode As Integer, Shift As Integer)
degisken = keycode
' ya da
module1.key = keycode
End Subşeklinde yapıp kişinin bastığı tuşun keycode'unu degiskene bağlayacaksın, bunu nereye kaydedeceksen artk kaydedeceksin, veritabanı olabilir ya da 1 oturumluk kullanılacaksa formun başında public degisken diye değişken açıp ona atayabilirsin, ya da module kullanırsın, fantezine kalmış bişe eğer tek oturumluk kullanılacaksa module'e kaydet derim.. üstteki gibi daha sonra
Private Sub Text2_keydown(keycode As Integer, Shift As Integer)
degisken = module1.key (module kullandığını farzedersek)
If keycode = degisken And Shift = 2 Then
MsgBox ("asd")
End If
End Subbu şekilde text1'e girilen rakamı ya da harfi kaydeder, daha sonra text2'de ya da hangisi olacaksa artık orada o kaydettiği değişkenle birlikte ctrl kombinasyonu kullanıldıysa uyarı verir.. kişiden ctrl yazmasını isteme, ctrl'i sen default olarak vermiş ol, herif oraya sadece harf ya da rakam yazsın daha şık olur bence tabi. zaten kullanacağın kısayol da kısıtlı..
ctrl
shift
falan.. O yüzden ctrl'i sen default vermiş ol -
hoca valla okudum A dan Z ye hiç bişey anlamadım:S
sakin ol önce..sonra yavaş yavaş yaz ne istediğiniz..
çünkü baya bişey istiyorsun sen sanırm..çünkü hep farklı şeyler yazmışsın.. şöyle yap
1- şu şuı şunu nasıl yapcağınm
2- bu bu bunu nasıl yapabilirm
3- bunu böyle yaptım ama şunda böyle oldu :)
gibi yazarsan ve iyi açıklarsan karışıklık ortadan kalkar..
-
hoca ben de baya okuduktan sonra anlayabildim :) klavye kısayolu oluşturmak istiyo ama bu klavye kısayolunu kendisi değil kullanıcı oluşturacak.. Yukarıda yazdığımı yaparsa halledecek sorununu ki halletti sanırım attığı pme göre
-
iyi o zaman sorun yok :)
eline sağlık..
-
peki anlatatiyorum
1.cogu macro programında olur macro hangi tuş ile devreye girsin hangi tuş ile devreden ciksn.
mesala program command1 basıldıgında abc hatasi verior diyelim buna kısayol atamak istiyorum ama kısayolun ne olağına kullanıcı karar versin.
böylece kullanıcı her seferinde programa donup command1 e basmak zorunda kalmasın.
2.ini muhabbeti mesala text1 text2 falan war programda. Program text1 yada text2 nin değeri değişti zaman ayar.ini ye kaydetsin program kapatilip acildiginda kullanici girdiği en son değeri görsün.