Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Простой вопрос!!! Добавлено: 12.02.03 15:28  

Автор вопроса:  Tank
Я тут свой букварь по Басику потерял, подскажите как програмно получить инена (Name) всех меток (Label) на форме и изменить у них подписи (Caption)

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 whitehead



Вопросов: 4
Ответов: 6
  Профиль | | #1 Добавлено: 12.02.03 16:05

Смотри простой пример :

Private Sub Command1_Click()
MsgBox Form1.Name
End Sub

Private Sub Form_Load()
Form1.Caption = 12345
End Sub

 

Ответить

Номер ответа: 2
Автор ответа:
 Goul



Вопросов: 0
Ответов: 29
  Профиль | | #2 Добавлено: 12.02.03 16:44

Private Sub Command1_Click()
    Dim v
    Dim i As Long

    i = 1
    For Each v In Me.Controls
        If TypeOf v Is Label Then
            MsgBox v.Name
            v.Caption = "lbl" & i
            i = i + 1
        End If
    Next v
End Sub

Ответить

Номер ответа: 3
Автор ответа:
 Tank



Вопросов: 12
Ответов: 17
  Профиль | | #3 Добавлено: 13.02.03 08:47
whitehead что то у тя совсем простой пример вышел. Я такое без учебника, даже с белой горячкой настрочу. Goul - СПАСИБО!!! Принципы понятны! Цели ясны!!!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам