| Mirage Source http://miragesource.net/forums/ |
|
| Adding Enter to Login (and more) http://miragesource.net/forums/viewtopic.php?f=210&t=68 |
Page 1 of 1 |
| Author: | Tutorial Bot [ Thu Jun 01, 2006 9:57 pm ] |
| Post subject: | Adding Enter to Login (and more) |
Author: grimsk8ter11 Difficulty: 1/5 :: CLIENT SIDE :: In frmLogin, add: Code: Private Sub txtName_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtPassword.SetFocus KeyAscii = 0 End If End Sub Private Sub txtPassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call picConnect_Click KeyAscii = 0 End if End Sub In frmNewAccount, add: Code: Private Sub txtName_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtPassword.SetFocus KeyAscii = 0 End If End Sub Private Sub txtPassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call picConnect_Click KeyAscii = 0 End if End Sub In frmDeleteAccount, add: Code: Private Sub txtName_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtPassword.SetFocus KeyAscii = 0 End If End Sub Private Sub txtPassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call picConnect_Click KeyAscii = 0 End if End Sub In frmCredits, add: Code: Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call picCancel_Click KeyAscii = 0 End Sub Replace sub picConnect with this: Code: Private Sub picConnect_Click() If Trim(txtName.Text) <> "" And Trim(txtPassword.Text) <> "" Then Call MenuState(MENU_STATE_LOGIN) ElseIf Trim(txtName.Text) = "" And Trim(txtPassword.Text) = "" Then Call MsgBox("Please enter your login name and password!", vbOKOnly) ElseIf Trim(txtName.Text) = "" Then Call MsgBox("Please enter your login name!", vbOKOnly) ElseIf Trim(txtPassword.Text) = "" Then Call MsgBox("Please enter your password!", vbOKOnly) End If End Sub That's all! |
|
| Author: | FrankJScott [ Thu Feb 24, 2022 3:15 pm ] |
| Post subject: | New Vape Juice Advice |
In reply to the guy asking about vaping while pregnant stories, vaping side effects lungs, vape accessories uk, cheap vape kits near me, vape accessories canada, I highly recommend this awesome vaping link or e juice uk sale, vape pod kit reviews, juul pod kits, vuse vape pods refill, vaping indoors uk, on top of this recommended Aspire link and don't forget e-cigarettes near me, cheapest e liquids online, nzo vape pods tesco, what burns out vape coils, vaping while pregnant first trimester, not to mention this great vape coils blog which is also great. Also have a look at this high rated Voopoo blog not to mention vape pod smok mico, vape pods reviews, vape pods argos, vape pods vuse alto, e-liquids.com trustpilot, as well as this top vaping info not to mention best e cigarettes on ebay, vuse vape pods asda, vape kits uk sale, e liquid base discount code, e-cigs and vaping products, not to mention useful NewVaping url which is also worth a look. I also recommend this top rated and vape accessories info not to mention vape kits for sale online, disposable e cigarettes near me, vaping effects on health, vape mod kits amazon, electronic cigarettes as smoking cessation tool are we there, as well as this top vape kits details as well as smok vape mod kits amazon, vaping indoors residue, e-cigarettes vs cigarettes, best vape coils uk, juul kit tesco, on top of updated vaping forum which is also great. Finally, have a look at this new Dinner Lady site for good measure. Check more Top Rated Vape Juice Forum b6e4238 |
|
| Page 1 of 1 | All times are UTC |
| Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/ |
|