Örnekte ekran klavyesi mevcut.
ekran klavyesini sadece bir metin kutusunda kullanabiliyorum.
istediğim formda ve üzerine tıkladığım aktif olan tüm metin kutularında ekran klavyesini kullanmak için.
hangi kodu kullanmalıyım.
herhangi bir formdan
ve üzerine tıkladığım herhangi bir metin kutusuna
açılan bir formdan veri nasıl gönderebilirim.
ilginize ve cevabınıza teşekkür ederim.
[
attachment=26283]
Merhaba,
genel isimli modüle
Global GeciciKontrolAdi, GeciciFormAdi As String
kodu eklendi,
klavye formundaki select case kaldırıldı, sadece
Forms(GeciciFormAdi)(GeciciKontrolAdi) = Forms(GeciciFormAdi)(GeciciKontrolAdi) & toReturn
kodu mevcut.
Teşekkür ederim Ozan bey her zamanki gibi hızlı ve kesin sonuç.
Elinize sağlık.
Enter tuşu
bacspace ve
delete tuşu na koyduğum kodların hiç biri ni çalıştıramadaım.
Bu konudada yardımcı olabilirseniz memenun olururm.
sayın zetyu,
EK'te;
bahsettiğiniz talebinize yönelik olarak;
alternatif bir kullanım amacı ile kolaylık sağlaması adına,kullandığımız bilgisayarlarda hali hazırda mevcut olan EKRAN KLAVYESİ (OSK.Exe) uygulamasının geçerli olması ve harici bir Klavye yapmaya gerek olmaksızın kullanılması için hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
NOT
yine aynı şekilde,denetime ÇİFT TIKLANDIĞINDA olay yordamı ile çalışmaktadır.
bilginize...iyi çalışmalar,saygılar.
Ekran klavyesi başlatılamadı uyarısı geliyor.
Enter butonunun kodları
Forms(GeciciFormAdi).SetFocus
SendKeys "{ENTER}"
Forms!frmKeyboard.SetFocus
DoCmd.Close
backspace butonunun kodları
If IsNull(Forms(GeciciFormAdi)(GeciciKontrolAdi)) Then Exit Sub
infield = Forms(GeciciFormAdi)(GeciciKontrolAdi)
If Len(infield) = 0 Then Exit Sub
infield = Left(infield, Len(infield) - 1)
Forms(GeciciFormAdi)(GeciciKontrolAdi) = infield
formda delete butonu yok, delete butonu tıklandığında ne olacağını bilmediğim için yorum yapamayacağım.