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

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

сё-таки это СУПЕР-ФОРУМ!!!
...
Рейтинг: 0 / 0
Как пробегая по всем контролам на форме узнать типа кажого???
    #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
Как пробегая по всем контролам на форме узнать типа кажого???
    #33297267
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторВ первом варианте у меня напрочь не находит TextBox,

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

с чем именно он его путает без спецификации библиотеки - сказать затрудняюсь.
...
Рейтинг: 0 / 0
Как пробегая по всем контролам на форме узнать типа кажого???
    #33297395
Victosha, спасибо за совет.
...
Рейтинг: 0 / 0
Как пробегая по всем контролам на форме узнать типа кажого???
    #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
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как пробегая по всем контролам на форме узнать типа кажого???
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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