Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Blinking Cursor 1

Status
Not open for further replies.

toptech

Programmer
Joined
Apr 12, 2001
Messages
71
Location
US
HiThere.

Does anyone out there know how to make the cursor blink when you Tab into a field.

Thanks in advance.

Jeff
Top Tech Systems

Top Tech Systems

If you help 3 people and each one of those help 3 other people and so on, imagine all the people being helped.
 
My cursors blink already, but you can use the timer event to do a lot of different things. This makes the whole text box "blink"
Code:
Public blnCtrlHasFocus

Private Sub [b]Form_Timer()[/b]
  If blnCtrlHasFocus Then
    Me.Text10.BackStyle = -1 * (Me.Text10.BackStyle) + 1
  'Toggles the backstyle from (0 Transparent to 1 normal
  End If
End Sub

Private Sub Text10_GotFocus()
  blnCtrlHasFocus = True
End Sub

Private Sub Text10_LostFocus()
  blnCtrlHasFocus = False
End Sub
Set the forms timer property to 1000, (1000 milliseconds equals 1 second)
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top