sayı tuşları

[Fuat Şirin]

arkadaşlar
userforma sayı tuşları eklemek istiyorum
yani klavyeyi kullanmadan


1 2 3
4 5 6
7 8 9
. 0 ,
sil gir
bunlarında aktif textbox yada combo
hangisindeyse ona yapmak istiyorum

mantık olarak dokunmatik ekranda girişleri ekranda yapmak istiyorum
yani klavyeyi kullanmıcam

yardımcı olunursa süper olur

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linki incelermisiniz.

http://www.excel.web.tr/search.php?searchid=742454

 

[Fuat Şirin]

sole ki

hocam hepsine baktimda istedigim yok
istedigim 1 butonu yaptim
buna basinca aktif textbox a 1 yazsin
ama 12 yazmam icinde 12 ye basmak gibi
yani klavye kullanmicam

 

[Skorpiyon]

Sayın parlemenn,

Aşağıdaki linkin 1. mesajdaki örneğini inceleyin. Sadece fare ile kullanım için güzel bir örnek.

10. nolu mesajdaki örnekte ise tam tersi klavye kullanımı ile ilgili bir örneği ben yapmaya çalışmıştım.

http://www.excel.web.tr/showthread.php?t=52061&highlight=Hesap+Makinesi

 

[Fuat Şirin]

hocam uygulama çok güzelde şu önemli benim için

TextBox1 = TextBox1 & 1

textbox1'i aktif textbox yapmam lazım

1 tuşuna bastığımda aktif olan textboxa bilgi girmesi lazım

 

[Ayhan Ercan]

hocam uygulama çok güzelde şu önemli benim için

TextBox1 = TextBox1 & 1

textbox1'i aktif textbox yapmam lazım

1 tuşuna bastığımda aktif olan textboxa bilgi girmesi lazım

Aktif Textbox?
Birden fazla textboxmu kullanacaksınız?

Örnek bir dosya eklerseniz daha anlaşılır olacaktır..

 

[Fuat Şirin]

dosya ekte hocam

örnek olması açısından dosyayı ekledim
amacım klavyeyi bilgisayardan sökücem
dokunmatik ekranda
sayıları ekrandan tuşlucak satıcı arkadaş
sayıyı girip devam diyince alt textbox a geçicek

 

[Ayhan Ercan]

örnek olması açısından dosyayı ekledim

???????????? ben göremedim dosyayı

 

[Fuat Şirin]

pardon tamam a basmamışım

dosya ektedir

 

[Ayhan Ercan]

Merakımı mahzur görün..

Klavye kullanmıyacam diyorsunuz. İstediğiniz textboxu mouse ile seçmek varken neden devam tuşu ile bir sonraki textboxa geçmek istiyorsunuz?

 

[Fuat Şirin]

est.
textboxın içini mouse lada seçebilirler tabi
ama onu enter tuşu gibi düşündüm yada tab gibi
birde bizim işte çok seri olması lazım
toptan mağzası hocam
200 ytl lik işlemle uğraşırken bakmazsan 100.000 ytl lik müşteriyi kaçırırsın
bu sayı klavyesinden
tık tık girmesi lazım
satan çocuğun
onun için çabam

 

[Ayhan Ercan]

SendKeys ile yapmaya calıştım ama bende sonuç vermedi.


Aşağıdaki gibi bir kod yazdım, işinize yararmı bilmem:

"Devam" butonuna

Private Sub CommandButton14_Click()
For i = 1 To 7
If Controls("textbox" & i) <> "" Then Controls("textbox" & i + 1).SetFocus
Next
End Sub

 

[Fuat Şirin]

hocam herhalde ben tam anlatamadım
yada o şekilde olmuyor
benim istediğim
1 butonuna basınca aktif textbox a 1 yazması
12 yamak içinde 1 ile 2 butonuna basmam
bunu nasıl yaparım kusura bakmayın sizide uğraştırıyorum ama
istediğim budur

 

[Ayhan Ercan]

Sayın parlemenn

Üzgünüm ama ben isteğinizi çözüme ulaştıramadım.

 

[Fuat Şirin]

peki hocam bu konuda en azından
bir tavsiyeniz olurmu
hani böle yapmayıpta başka türlü
bir yoldan git diyebilir siniz

 

[Ayhan Ercan]

Diğer arkadaşlardan cevap veren çıkacaktır, biraz sabredip cevap gelmesini bekleyebilirsiniz...

 

[Fuat Şirin]

ok vaktinizi ayırdığınız için teşekkür ettim hocam

 

[Skorpiyon]

..................

 

[Skorpiyon]

Sayın parlemenn,

Örnek dosyayı inceleyiniz.

 

[Fuat Şirin]

hocam hakkatten emek verilmiş bir çalışma yapmışsınız gecenin bu saatinde
Allah razı olsun elinize emeğinize sağlık