Arkadaşlar aynı windowsun sanal klavyesi gibi birşey düşünüyorum.İmlecin seçili olduğu yerde mesela bir word belgesinde olsun.Programda mesela bir buton olsun.texti de "B" OLSUN.Word belgesi seçili iken içerisine B yazsın gibi...Bunu nasıl yapabilirim.Bilen varsa yardımlarını bekliyorum...
Private Sub Timer1_Timer()
SendKeys "b"
End Sub
sendkeys komutu ile aktif pencereye tuş basımı yollayabilirsin.
timer kodu da sendkeys komutunu pediyodik olarak tekrarlar.
yani,istediğin saniye aralıklarla "b" tuşuna bastırabilirsin...
istediğin bu muydu?..
emin olamadım da (:
Evet buydu kardeş.Bu kodla istediğimiz her yerde b harfini yazdırabiliriz değilmi?Yoksa sadece kendi programımızdamı?Birde biliyorsan ctrl,****t,alt gibi tuşlarda nasıl yapılabilir?
KeyCode
SHIFT Tuşu +
CTRL Tuşu ^
ALT Tuşu %
KeyCode
BACKSPACE {BACKSPACE}, {BS}, or {BKSP}
BREAK{BREAK}
CAPS LOCK{CAPSLOCK}
DEL or DELETE{DELETE} or {DEL}
DOWN ARROW{DOWN}
END{END}
ENTER {ENTER}or ~ESC{ESC}
HELP{HELP}
HOME{HOME}
INS or INSERT{INSERT} or {INS}
LEFT ARROW{LEFT}
NUM LOCK{NUMLOCK}
PAGE DOWN{PGDN}
PAGE UP{PGUP}
PRINT SCREEN{PRTSC}
RIGHT ARROW{RIGHT}
SCROLL LOCK{SCROLLLOCK}
TAB{TAB}
UP ARROW{UP}
F1{F1}
F2{F2}
F3{F3}
F4{F4}
F5{F5}
F6{F6}
F7{F7}
F8{F8}
F9{F9}
F10{F10}
F11{F11}
F12{F12}
F13{F13}
F14{F14}
F15{F15}
F16{F16}
Örnek kod
SendKeys "%{F4}", True ' ALT+F4 tuşuna basıldı.
arkadaşım çok sağol.yazdığın için çok teşekkür ederim...
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
SendKeys.Send("b")
EndSub
böyle denedim ama olmuyo bea
PublicClassForm1
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
Timer1.Enabled = True
EndSub
PrivateSub Timer1_Tick(sender AsObject, e AsEventArgs) Handles Timer1.Tick
SendKeys.Send(TextBox1.Text)
SendKeys.Send("{Enter}")
EndSub
PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles Button2.Click
Timer1.Enabled = False
EndSub
PrivateSub TextBox1_TextChanged(sender AsObject, e AsEventArgs) Handles TextBox1.TextChanged
EndSub
PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load
EndSub
EndClass
al sana flood