keys

[paok]

what i have to do if i want to do a commbact a key on key board

[useruseronline]

commbact ? what does it mean

[paok]

Command that i mean

[useruseronline]

command is sendkey {13}
this is used for enter key
for other search keyascii

[useruseronline]

sendkey not sendkeys with s ok

[paok]

and where i have to write it?

[useruseronline]

if u need it at button click than in click event, when u will press button it will press enter key, what u want to make ?

[paok]

if u need it at button click than in click event, when u will press button it will press enter key, what u want to make ?

no
pressing one key on keyboard do the code automatically

[useruseronline]

draw a text box and timer
set the time inteverl to 2
than write this code in timer

Private Sub Timer1_Timer()
text1.setfocus
SendKeys "a"
sendkeys "b"
sendkyes "c"
End Sub

[useruseronline]

draw a text box and timer
set the time inteverl to 2
than write this code in timer

Private Sub Timer1_Timer()
text1.setfocus
SendKeys "a"
sendkeys "b"
sendkyes "c"
End Sub

[paok]

and how i will programe them

[paok]

and how i will progremme them?

[useruseronline]

its visual basic ... double click on timer
than write code from text1.setfoucs to sendkeys "c"

[paok]

you can do an example? plz

[useruseronline]

how to send u file ?

[useruseronline]

work ?

[paok]

it works but it isn't that i want to do i don't want that
i want just to press a button and do one code that only that

[useruseronline]

click text box and press enter
it will snd you msg your command

[useruseronline]

work ?

[paok]

this think can de done with this thinks +-=/*?

[useruseronline]

yes see keyascii chart for key code

[paok]

if i want to have combination of keys
what i have to do?

[useruseronline]

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Option Explicit
Private Const VK_CONTROL = &H11
Private Const VK_C = &H43
Private Const VK_A = &H41
Private Const KEYEVENTF_KEYUP = &H2


Private Sub Timer1_Timer()
keybd_event VK_CONTROL, 0, 0, 0

keybd_event VK_A, 1, 0, 0
End Sub

this pres ctrl a for other keys change key

[paok]

ie the control and sift the program will make the combinatio


i want press sift and 8 the programme will take the ADD

i think i have helped you to understand

[useruseronline]

u want to pres "+" this key rit ?

[paok]

yes but my comouter is mini and i dont have the keys next to main key board

[useruseronline]

if u r doing it bcoz of ur keybord then use virtual keybord to type

[paok]

can write all letters of world pleaze

[useruseronline]

world keys ? what

[paok]

bcoz can you explian please

[paok]

i want to replace one button with one key where i have to write it?

[useruseronline]

plz clear ur question its confusing

[paok]

i want to replace a dutton in form with a key on keyboard


where i have to write the code

[useruseronline]

ok u want to press enter suppose and change the color ... like this ?

[useruseronline]

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Sub Timer1_Timer()

Dim KeyNumber As Integer

For KeyNumber = 1 To 132

If GetAsyncKeyState(13) < 0 Then
SendKeys "{+}"
End If
Next
end sub

press enter

set interval 100

it will wirte " + " when u will press enter

[useruseronline]

inteveral = 1
not 100

[paok]

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Sub Timer1_Timer()

Dim KeyNumber As Integer

For KeyNumber = 1 To 132

If GetAsyncKeyState(13) < 0 Then
SendKeys "{+}"
End If
Next
end sub

press enter

set interval 100

it will wirte " + " when u will press enter

i want to do the option

[useruseronline]

option for wat ? explain wat u want more its confusing

[paok]

i want to replace a button of form not to write to a text and puss eg the enter key of key board
think i am understandable

[useruseronline]

entery key should do wat ? if u press button enter key should be press of key board ?