Solved

detecting the enter keypress iin VB.net

Posted on 2006-11-15
7
13,946 Views
Last Modified: 2008-03-17
Hello

I have a login screen containing a panel having two textboxes login and password and a login button

Now when a user enters the username and a passsword, and presses enter , he should automatically login, no need to use tab to go to the button , or use the mouse

How do I detect the "Enter" keypress and then automatically have the login button activated ?

Please help asap
0
Comment
Question by:jbajaj
7 Comments
 
LVL 16

Expert Comment

by:Hillwaaa
ID: 17945603
Hi jbajaj,

For the form you are in, there is an AcceptButton property.  Set this in the properties window to the name of the Login button and you're done.

Cheers!
0
 
LVL 16

Expert Comment

by:Hillwaaa
ID: 17945612
Or in code, if you prefer:

Me.AcceptButton = Me.Button1
0
 

Author Comment

by:jbajaj
ID: 17945622
Cool

I have two panels and each having two seperate buttons .
Only one of them is visible at a time

When one is visible I want it to have the accrpt button and vice versa

How do I do that

Is using a variable between them the only solution
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
LVL 16

Expert Comment

by:Hillwaaa
ID: 17945649
When you make the panel1 visible, make button1 the acceptbutton,

Then when panel2 is made visible, make button2 the acceptbutton.

0
 
LVL 5

Expert Comment

by:DEEPESH
ID: 17945654
Then in that case
if panel1.Visible = true then
   Me.AcceptButton = Me.Button1
Else
  Me.AcceptButton = Me.Button2
End if
0
 
LVL 5

Accepted Solution

by:
Venkateswarlu Kaipu earned 500 total points
ID: 17946029
   Public Function KeyAscii(ByVal UserKeyArgument As KeyPressEventArgs) As Short
        KeyAscii = Asc(UserKeyArgument.KeyChar)
    End Function

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If KeyAscii(e) = 13 Then
            MsgBox("you press ENTER key")
        End If
    End Sub


Regards,
Venkat
0
 
LVL 85

Expert Comment

by:Mike Tomlinson
ID: 17947808
Or you can do something like...

    Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean
        If keyData = Keys.Enter Then
            If Panel1.Visible Then
                Button1.PerformClick()
            Else
                Button2.PerformClick()
            End If
        End If
    End Sub
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

It’s quite interesting for me as I worked with Excel using vb.net for some time. Here are some topics which I know want to share with others whom this might help. First of all if you are working with Excel then you need to Download the Following …
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
This Micro Tutorial hows how you can integrate  Mac OSX to a Windows Active Directory Domain. Apple has made it easy to allow users to bind their macs to a windows domain with relative ease. The following video show how to bind OSX Mavericks to …
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.

895 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

14 Experts available now in Live!

Get 1:1 Help Now