What's New
Q & A
Tip Jar
Tips & Tricks
These are brief tips and tricks that can make Visual Basic programming easier.
New Control Usage Numerical Stuff
Starting & Stopping I/O Bug Alerts
Software Engineering Printing System Issues
Graphics Coding Techniques Other Programs
Databases Misc Forms


Change ENTER to TAB
By Eli Smadar:

Users ask to use intensively the ENTER key instead of using the TAB (like they used to in DOS). Most of the tips I could find was using the KeyPress event and changing the ASCII code that was pressed.

Unfortunately, this code has a side effect. When you hit the ENTER key a lot of times the keyboard hangs!!! This happened with almost every component that I tried (standard VB, Apex etc.).

I found that if you want to achieve good result, you could use keybd_event API call. This way you can change the TAB key code to VK_TAB (&H9) and have the OS handle the rest.

Public Const VK_TAB = &H9
Public Declare Sub keybd_event Lib "user32" _
    (ByVal bVk As Byte, ByVal bScan As Byte, _
    ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        KeyAscii = 0
        keybd_event VK_TAB, 0, 0, 0
    End If
End Sub

Right or Left Justify Output
Use the Format$ function to produce right or left justified text.
    Format$(123, "@@@@@@")    gives   "   123"
    Format$(123, "!@@@@@@")   gives   "123   "

Formatting Numbers
Use Format$(value, "0.00") to get 2 decimal places. Combine this with the "@@@@@" formats to get right justified numbers. For example:
    Print Format$(Format$(123.45, "0.00"), "@@@@@@@@")
    Print Format$(Format$(3.4, "0.00"), "@@@@@@@@")
    Print Format$(Format$(12345.6, "0.00"), "@@@@@@@@")
produces the following list:

Read and Write Arrays Quickly
You can read and write arrays quickly from files using Put and Get. This is much faster than reading and writing the array one entry at a time.
    Dim arr(1 To 100000) As Long
    Dim fnum As Integer

        fnum = FreeFile
        Open "C:\Temp\xxx.dat" For Binary As fnum
        Put #fnum, , arr
        Close fnum

Send your Tips and Tricks to feedback@vb-helper.com.

Subscribe to the VB Helper newsletter
Copyright © 1997-2001 Rocky Mountain Computer Consulting, Inc.   All rights reserved.
www.vb-helper.com/tips4.htm Updated