Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 200
  • Last Modified:

TextBox, How does it work?

if i enter data into a textbox and DO NOT tab/cr the data cannot be passed, why? what is the work around ? e.g. type data into the textbox and then hit a button that execute programmed action without the need to activate the box with a tab or cr. thanx
0
vbsterxx
Asked:
vbsterxx
1 Solution
 
crazymanCommented:
Hitting enter on your text box can perform the action


Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
    'do your code here
    MsgBox "Do SomeThing Here"
  End If
End Sub
0
 
Alok-AgarwalCommented:
hi,

Sorry but can you please provide more clarifications on the requirement so that I can help you out.

Thanks
Alok
0
 
mmusanteCommented:
>... data cannot be passed, why?
I don't konw where you are trying to pass data ... but why dont you pass your data in the 'Change' event?

Please can you explain a little more?
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
appariCommented:


do you mean enter text in text box and press enter it should run code in a command click event? if so just set the default property of the command button to true.
0
 
Mike TomlinsonMiddle School Assistant TeacherCommented:
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        KeyAscii = 0 ' Suppresses the Beep
        Command1_Click
    End If
End Sub

Private Sub Command1_Click()
    Debug.Print Text1.Text
End Sub
0
 
jasonhollandCommented:
Ok, its simple. Take the code below and cut and paste into a form named Form1 with a text box named Text1. That is all you need.
Then run the program, type whatever you want into the text box, then press Ctrl + c to get a message box of the contents of Text1.


Cut and Paste the code below into a form


Private Sub Form_Load()
    ' In order to select your keys you want to trap for, take a look at the Object Browser
    ' by pressing F2 in VB and then looking up these two constant sets
   
    ' "ShiftConstants"  (Used for Shift, Alt, and Ctrl)
    ' "KeyCodeConstants"   (Used for the Ascii characters A-Z, a-z, 0-9, etc. It will also show shift, alt, and ctrl. However
    ' if you press Ctrl + c the KeyCode will hold the value of 'c' and the ShiftConstant will hold the ShiftConstant for Ctrl.
    ' There is 1 tricky bit here. In the KeyCodeConstants Ctrl is vbKeyControl, Shift is vbKeyShift, BUT Alt IS NOT vbKeyAlt!
    '  It is vbKeyMenu.

    ' Do not use the KeyPress event, as it will only pass Ascii characters, A-Z and a-z and 0-9 etc...
    ' You wont get the value for shift, or ctrl, or alt etc...
   
    ' Use the Text1_KeyDown event, this way you can trap for the Alt, Ctrl, and Shift keys
    ' They keycode will be the constant value in the "KeyCodeConstants", and the shift will be the ShiftConstant
    ' If you wanted to trap someone pressing Ctrl + c and send the text somewhere look at the subroutine below
   
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

    ' Uncomment the lines below if you want to see what keys you are pressing
    'Debug.Print "KeyDown"
    'Debug.Print KeyCode
    'Debug.Print Shift

    If KeyCode = vbKeyC And Shift = vbCtrlMask Then
        MsgBox Form1.Text1.Text
    End If

End Sub




Good Luck,
I hope this is what you were looking for.
Jason Holland
0
 
jasonhollandCommented:
I am interested. If there is more that I need to do please let me know.
Jason Holland
0
 
Computer101Commented:
PAQed - no points refunded (of 200)

Computer101
E-E Admin
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now