Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Label1, Label2, Label3... / 8 сообщений из 8, страница 1 из 1
24.01.2004, 22:56
    #32387051
mad_boy
mad_boy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label1, Label2, Label3...
На форме есть куча Label`ов (около 50), как в цикле можно между ними переключаться, чтобы в названии Label`a менялась только цифра ?
Например: LabelN, где N = 1, 2, 3...

Или подскажите, плз, какой-нибудь другой способ переключения между ними.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.01.2004, 10:39
    #32387114
boevik
boevik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label1, Label2, Label3...
Проще было б если сделать массив 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, 11:00
    #32387121
AlexJuice
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label1, Label2, Label3...
Можно так:

Код: plaintext
1.
Me.Controls( "Label"  & n)
Me( "Label"  & n)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.01.2004, 17:52
    #32387225
mad_boy
mad_boy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label1, Label2, Label3...
Благодарю, всё работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
05.03.2014, 05:20
    #38578416
box2
box2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label1, Label2, Label3...
В 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, 08:48
    #38578458
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label1, Label2, Label3...
в том что VB.Net и WinForms это совсем не то же самое, что VB
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.03.2014, 23:45
    #38579596
box2
box2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label1, Label2, Label3...
Спасибо за оперативность.
Если не сложно подскажи какой есть вариант?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.03.2014, 00:35
    #38579616
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label1, Label2, Label3...
Наверное, надо задать вопрос в соответствующем форуме
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Label1, Label2, Label3... / 8 сообщений из 8, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 419ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2156477]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 58ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 274ms
total:  419ms
x
x
Закрыть


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