#post-id: 3184-11-50
#original-date: 14.04.2009 Tue
#original-time: 11:50 AM
#original-day: 3184
#original-host: WinXP Prof SP1 (Build 2600)

Кстати, маленькое ноу-хау.

Private Sub txtAuthor_GotFocus()
  asHighlightText GetFocusAPI()
End Sub

Private Sub txtCopyright_GotFocus()
  asHighlightText GetFocusAPI()
End Sub

Раньше я это делала так:

Private Sub txtAuthor_GotFocus()
  asHighlightText Me.txtAuthor.hWnd
End Sub

Private Sub txtCopyright_GotFocus()
  asHighlightText Me.txtCopyright.hWnd
End Sub

А тут глянула и поняла, что фокус ведь передаётся текстбоксу, поэтому можно использовать GetFocus() для получения манипулятора. И ни чего особо писать не нужно.

Смотрите также