Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как пробегая по всем контролам на форме узнать типа кажого??? / 6 сообщений из 6, страница 1 из 1
28.09.2005, 17:25:52
    #33294026
Galustov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как пробегая по всем контролам на форме узнать типа кажого???
Мне нужно узнать типы контролов на форме, чтобы с текстбоксов считать текст, долго писать зачем это, но надо :)

Спасибо
Александр
...
Рейтинг: 0 / 0
28.09.2005, 17:41:13
    #33294069
Galustov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как пробегая по всем контролам на форме узнать типа кажого???
Всем спасибо - нашёл в старых топиках

сё-таки это СУПЕР-ФОРУМ!!!
...
Рейтинг: 0 / 0
29.09.2005, 14:43:52
    #33296037
Как пробегая по всем контролам на форме узнать типа кажого???
Можно так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    Dim ctl As Control
    
    For Each ctl In Me.Controls
        If TypeOf ctl Is TextBox Then
            MsgBox "Поле " & ctl.Name
        ElseIf TypeOf ctl Is CommandButton Then
            MsgBox "Кнопка " & ctl.Name
        End If
    Next

А можно и так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
    Dim ctl As Control
    
    For Each ctl In Me.Controls
        Select Case TypeName(ctl)
            Case "TextBox"
                MsgBox "Поле " & ctl.Name
            Case "CommandButton"
                MsgBox "Кнопка " & ctl.Name
        End Select
    Next

В первом варианте у меня напрочь не находит TextBox, а остальные контролы нормально. Может у кого был такой глюк? Второй вариант работает нормально.
...
Рейтинг: 0 / 0
30.09.2005, 02:43:21
    #33297267
Victosha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как пробегая по всем контролам на форме узнать типа кажого???
авторВ первом варианте у меня напрочь не находит TextBox,

вот так работает:
Код: plaintext
If TypeOf ctl Is msforms.TextBox Then

с чем именно он его путает без спецификации библиотеки - сказать затрудняюсь.
...
Рейтинг: 0 / 0
30.09.2005, 08:17:49
    #33297395
Как пробегая по всем контролам на форме узнать типа кажого???
Victosha, спасибо за совет.
...
Рейтинг: 0 / 0
30.09.2005, 10:48:43
    #33297780
Как пробегая по всем контролам на форме узнать типа кажого???
путает он его с встроенным объектом Excel.Textbox
это надпись на панели инструментов "Рисование".

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
  Dim t As Excel.TextBoxes
  Dim tt As Excel.TextBox
  
  Dim ws As Worksheet
  
  Set ws = ActiveSheet
  ws.Shapes.AddTextbox msoTextOrientationHorizontal,  50 ,  50 ,  150 ,  50 
  Set t = ws.TextBoxes
  
  Set tt = t( 1 )
  Debug.Print TypeOf tt Is TextBox
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как пробегая по всем контролам на форме узнать типа кажого??? / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]