• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• This code will teach how to initialize the textbox and how to pass the focus from the microsoft fle

This code will teach how to initialize the textbox and how to pass the focus from the microsoft fle

This code will teach how to initialize the textbox and how to pass the focus from the microsoft flexgrid control to the textbox.

Rate This code will teach how to initialize the textbox and how to pass the focus from the microsoft fle

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Edt As Control, KeyAscii As Integer)

	' Use the character that was typed.
	Select Case keyascii

	' A space means edit the current text.
	Case 0 To 32
		Edt = MSFlexGrid
		Edt.SelStart = 1000

	' Anything else means replace the current text.
	Case Else
		Edt = Chr(keyascii)
		Edt.SelStart = 1
	End Select

	' Show Edt at the right place.
	Edt.Move MSFlexGrid.CellLeft, MSFlexGrid.CellTop, _
	MSFlexGrid.CellWidth, MSFlexGrid.CellHeight
	Edt.Visible = True

	' And let it work.
	Edt.SetFocus
End Sub