ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Label1, Label2, Label3...
8 сообщений из 8, страница 1 из 1
Label1, Label2, Label3...
    #32387051
mad_boy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mad_boy
Гость
На форме есть куча Label`ов (около 50), как в цикле можно между ними переключаться, чтобы в названии Label`a менялась только цифра ?
Например: LabelN, где N = 1, 2, 3...

Или подскажите, плз, какой-нибудь другой способ переключения между ними.
...
Рейтинг: 0 / 0
24.01.2004, 22:56
| Ответить | Цитировать | Написать  
Label1, Label2, Label3...
    #32387114
boevik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
boevik
Гость
Проще было б если сделать массив Labels.
Тогда обращение к ним MyLabel(0), MyLabel(1) и т.д.
Код: plaintext
1.
2.
3.
for i =  0  to  49 
   MyLabel(i).Caption = Cstr(i)
next i


Но можно и обойтись без переименования.
Надо добавить в reference Microsoft Scripting Control
Код: plaintext
1.
2.
3.
4.
Dim sc As New ScriptControl
sc.Language =  "VBScript" 
sc.AddObject  "form1" , Form1
sc.ExecuteStatement ( "form1.label1.caption = "  "aaa" "")
...
Рейтинг: 0 / 0
25.01.2004, 10:39
| Ответить | Цитировать | Написать  
Label1, Label2, Label3...
    #32387121
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Можно так:

Код: plaintext
1.
Me.Controls( "Label"  & n)
Me( "Label"  & n)
...
Рейтинг: 0 / 0
25.01.2004, 11:00
| Ответить | Цитировать | Написать  
Label1, Label2, Label3...
    #32387225
mad_boy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mad_boy
Гость
Благодарю, всё работает.
...
Рейтинг: 0 / 0
25.01.2004, 17:52
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Label1, Label2, Label3...
    #38578416
box2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
box2
Гость
В Visual Basic 2012 это не работает. На 3-ей строке выдает ошибку

"Необработанное исключение типа "System.NullReferenceException" в Coord.exe
Дополнительные сведения: В экземпляре объекта не задана ссылка на объект."

Код: vbnet
1.
2.
3.
4.
1        Dim li As Long
2        For li = 1 To 10
3            FormCoord.Controls("TextBox" & li).Text = li
4        Next li


Подскажите в чем могут быть грабли?
...
Рейтинг: 0 / 0
05.03.2014, 05:20
| Ответить | Цитировать | Написать  
Label1, Label2, Label3...
    #38578458
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
в том что VB.Net и WinForms это совсем не то же самое, что VB
...
Рейтинг: 0 / 0
05.03.2014, 08:48
| Ответить | Цитировать | Написать  
Label1, Label2, Label3...
    #38579596
box2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
box2
Гость
Спасибо за оперативность.
Если не сложно подскажи какой есть вариант?
...
Рейтинг: 0 / 0
05.03.2014, 23:45
| Ответить | Цитировать | Написать  
Label1, Label2, Label3...
    #38579616
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Наверное, надо задать вопрос в соответствующем форуме
...
Рейтинг: 0 / 0
06.03.2014, 00:35
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Label1, Label2, Label3...
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?desktop=1&fid=60&tid=2156477]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 54ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 249ms
total:  393ms
созд. / загр.: 393ms
x
x
Закрыть


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