properties controls - focus?

[darkich]

Подскажите плиииз
как как проверить активность (фокус?) TextBox - т.е стоит ли там текстовой курсор

есть куча TextBox и мне нужно проверить в каком из них счас работают (или работали)??

MyType = TypeName(Screen.ActiveControl)

MyType - будет содержать тип контрола ((( а нужно конкретно получить его имя

вобще если быть точным то нужно чтобы при нажатии кнопки из активного в данный момент текстового поля данные помещались в нужную переменную

[MEMBER]

Код: Выделить всё

Option Explicit
Public ActiveTxtBox
'-------------------------------
Private Sub Text1_GotFocus(Index As Integer)
    ActiveTxtBox = Index
End Sub
'-------------------------------
Private Sub Command1_Click()
    Select Case ActiveTxtBox
     Case 1
      '.........
     Case 2
     '.........
     Case 3
     '.........
     Case 4
     '.........
End Sub


Все Text в control array

[darkich]

ВСЁ ЯСНО!!!!!
СПАСИБО!!!!!! РАБОТАЕТ!
можно ещё вопрос - а нельзя ли получить имя активного в данный момент контрола или коконидь ID что можно былу к ниму обратиться?

[Demonx]

TextBox(ActiveTxtBox)....

[alibek]

ActiveForm.ActiveControl.Name

[darkich]

Теперь всё окончательно ясно! спасибо!

[alibek]

Для полноты картины дам еще один пример:

Код: Выделить всё

Dim I As Long, N As String, C As String
N = ActiveControl.Name
For I = 3 To 1 Step -1
  If IsNumeric(Right$(N,I)) Then Exit For
Next I
If I=0 Then Exit Sub
N = Left$(N, Len(N)-I)
For I = 1 To 20
  C = N & Trim$(Str$(I))
  If TypeOf Controls(C) Is TextBox Then
    Controls(C).Text = Trim$(Str$(I))
  ElseIf TypeOf Controls(C) Is CommandButton Then
    Controls(C).Caption = Trim$(Str$(I))
  End If
Next I


Убирает из имени активного контрола цифровую часть (т.е. если его название Text5, то будет получится Text), а затем проходится циклом по всем контролам с такой-же основной частью (в данном примере от Text1 до Text20) и в каждый запишет его порядковый номер.