ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Событие text1_Change
25 сообщений из 58, страница 2 из 3
  2  все
Событие text1_Change
    #38899412
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
alex77755В моём коде?
Я в код даже не вникал! Это ваш код!!

Это не было претензией
Спасибо за помощь.
...
Рейтинг: 0 / 0
10.03.2015, 09:17
| Ответить | Цитировать | Написать  
Событие text1_Change
    #38899979
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
Подскажите пожалуйста как эту громоздкую процедуру сделать короткой
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub Ochistka()
     IzmVB2.Text = "": IzmVB3.Text = "": IzmVB4.Text = "": IzmVB5.Text = "": IzmVB6.Text = "": IzmVB7.Text = ""
     IzmNB2.Text = "": IzmNB3.Text = "": IzmNB4.Text = "": IzmNB5.Text = "": IzmNB6.Text = "": IzmNB7.Text = ""
     VB2.Text = "": VB3.Text = "": VB4.Text = "": VB5.Text = "": VB6.Text = "": VB7.Text = ""
     NB2.Text = "": NB3.Text = "": NB4.Text = "": NB5.Text = "": NB6.Text = "": NB7.Text = ""
     G2.Text = "": G3.Text = "": G4.Text = "": G5.Text = "": G6.Text = "": G7.Text = ""
     P2.Text = "": P3.Text = "": P4.Text = "": P5.Text = "": P6.Text = "": P7.Text = ""
     Rashod2.Text = "": Rashod3.Text = "": Rashod4.Text = "": Rashod5.Text = "": Rashod6.Text = "": Rashod7.Text = ""
     SumVB.Text = "": SumNB.Text = ""
End Sub
...
Рейтинг: 0 / 0
10.03.2015, 14:43
| Ответить | Цитировать | Написать  
Событие text1_Change
    #38900004
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
Dim j As Control
For Each j In Me.Controls
  If j.Name.... Then
    j.Text = ""
  End If
Next
...
Рейтинг: 0 / 0
10.03.2015, 14:51
| Ответить | Цитировать | Написать  
Событие text1_Change
    #38900104
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyMp
Участник
Если имеется ввиду очистка всех текстбоксов на форме, то надо так и сказать VB. TypeOf ... Is https://msdn.microsoft.com/ru-ru/library/s4zz68xc.aspx
...
Рейтинг: 0 / 0
10.03.2015, 15:33
| Ответить | Цитировать | Написать  
Событие text1_Change
    #38900146
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
Имеете ввиду
Код: vbnet
1.
If j.Name="IzmVB2" or j.Name ="IzmVB3"................ Then
...
Рейтинг: 0 / 0
10.03.2015, 15:56
| Ответить | Цитировать | Написать  
Событие text1_Change
    #38900150
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Нет, имею ввиду например
Код: vbnet
1.
If Left$(j.Name, 3)<>"cmd" Then

все зависит от того, каким образом ты собираешься отделить элементы, которые нужно очищать от элементов, которые не нужно. Это может быть имя, Tag, тип элемента, расположение его в определенном контейнере и т.п.
...
Рейтинг: 0 / 0
10.03.2015, 15:58
| Ответить | Цитировать | Написать  
Событие text1_Change
    #38900179
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
AndreyMpЕсли имеется ввиду очистка всех текстбоксов на форме
Нет, меня поняли правильно, нужно только определенные вычищать
...
Рейтинг: 0 / 0
10.03.2015, 16:13
| Ответить | Цитировать | Написать  
Событие text1_Change
    #38900188
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
Shocker.Proвсе зависит от того, каким образом ты собираешься отделить элементы, которые нужно очищать от элементов, которые не нужно. Это может быть имя, Tag, тип элемента, расположение его в определенном контейнере и т.п.
Нет, именно по именам нужно, тогда я так понимаю именно так, как я привел после if
...
Рейтинг: 0 / 0
10.03.2015, 16:16
| Ответить | Цитировать | Написать  
Событие text1_Change
    #38900191
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Я бы так сделал
Код: vbnet
1.
2.
3.
4.
5.
6.
Dim j As Control
For Each j In Me.Controls
  If j.Tag = "NeedClear" Then
    j.Text = ""
  End If
Next


или так
Код: vbnet
1.
2.
3.
4.
5.
6.
Dim j As Control
For Each j In Me.Controls
  If j.Parent.Name = "Frame1" Then
    j.Text = ""
  End If
Next
...
Рейтинг: 0 / 0
10.03.2015, 16:17
| Ответить | Цитировать | Написать  
Событие text1_Change
    #38900192
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Select Case j.Name
Case "myname"
 ...
Case "nextname"
...
Case Else
...
End Select
...
Рейтинг: 0 / 0
10.03.2015, 16:17
| Ответить | Цитировать | Написать  
Событие text1_Change
    #38900196
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
vdekameronНет, именно по именам нужнопочему? Что мешает ввести какой-то признак искусственно?
...
Рейтинг: 0 / 0
10.03.2015, 16:18
| Ответить | Цитировать | Написать  
Событие text1_Change
    #38900219
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
Shocker.Proпочему? Что мешает ввести какой-то признак искусственно?
C Tag хорошая идея , но ведь его нужно заполнить для каждого текстбокса.
С Рамкой тоже хорошо, но тут возникает сразу вопрос, если эти текстбоксы будут вразброс, то как тут рамкой выкрутиться.
...
Рейтинг: 0 / 0
10.03.2015, 16:26
| Ответить | Цитировать | Написать  
Событие text1_Change
    #38900227
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
Konst_One,

А я бы чуть по-другому сделал, не так громоздко бы вышло.
Код: vbnet
1.
2.
3.
4.
Select Case j.Name
Case "myname","nextname"....
...
End Select
...
Рейтинг: 0 / 0
10.03.2015, 16:29
| Ответить | Цитировать | Написать  
Событие text1_Change
    #38900229
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
Накидали мне вариантов)) Спасибо
...
Рейтинг: 0 / 0
10.03.2015, 16:29
| Ответить | Цитировать | Написать  
Событие text1_Change
    #38900232
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
vdekameronС Рамкой тоже хорошо, но тут возникает сразу вопрос, если эти текстбоксы будут вразброс, то как тут рамкой выкрутиться.я же форму не вижу
vdekameronC Tag хорошая идея , но ведь его нужно заполнить для каждого текстбокса.выделяешь их все мышкой с шифтом или контролом и прописываешь тэг одновременно всем.
...
Рейтинг: 0 / 0
10.03.2015, 16:30
| Ответить | Цитировать | Написать  
Событие text1_Change
    #38900250
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
Shocker.Proвыделяешь их все мышкой с шифтом или контролом и прописываешь тэг одновременно всем.
Ага, спасибо. Это самый лучший вариант. С Select Case тоже хорош, но так, как вы посоветовали у меня меньше опыта) Поэтому использую его, чтобы запомнить лучше.
Единственное когда я выделяю много эл-тов на форме они как-то глючно выделяются. Выделяются меркерами хаотично мигая секунд 20. Так у всех? Оперативки вроде норм у меня для этого.
...
Рейтинг: 0 / 0
10.03.2015, 16:38
| Ответить | Цитировать | Написать  
Событие text1_Change
    #38900256
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
не сталкивался
...
Рейтинг: 0 / 0
10.03.2015, 16:42
| Ответить | Цитировать | Написать  
Событие text1_Change
    #38900263
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
Shocker.Proне сталкивался
У вас сразу все выделяется? У меня медленно сначала один раз, потом будто по второму кругу начинают выделяться.
...
Рейтинг: 0 / 0
10.03.2015, 16:45
| Ответить | Цитировать | Написать  
Событие text1_Change
    #38900267
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Я у себя реализовал вообще произвольные группы контролов на форме, что дает возможность их разом очистить, скрыть, запретить и т.п.
Причем, если контрол входит в две разных группы, одна из которых запрещена, вторая разрешена, то он останется запрещенным (ну или разрешенным, это зависит от политики групп)

ну это так, на будущее
...
Рейтинг: 0 / 0
10.03.2015, 16:47
| Ответить | Цитировать | Написать  
Событие text1_Change
    #38906095
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
Почему вылезает error- Type mismach? For each работает только до определенного числа?
Почти все текстбоксы почистило что нужно.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Sub Sbros_Click()
Dim Text As TextBox
 For Each Text In Me.Controls
    If Text.Tag = "" Then
      Text.Text = ""
    End If
  Next
...
Рейтинг: 0 / 0
16.03.2015, 16:27
| Ответить | Цитировать | Написать  
Событие text1_Change
    #38906100
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Стало быть, очередной контрол оказался не текстбоксом. Проверяй TypeName, как я показывал ранее
...
Рейтинг: 0 / 0
16.03.2015, 16:31
| Ответить | Цитировать | Написать  
Событие text1_Change
    #38906167
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
Shocker.ProСтало быть, очередной контрол оказался не текстбоксом. Проверяй TypeName, как я показывал ранее
Вот так выкрутился
Код: vbnet
1.
2.
3.
4.
dim Text as Control
  For Each Text In Me.Controls
       If TypeOf Text Is TextBox And Text.Tag = "" Then Text.Text = ""
  Next
...
Рейтинг: 0 / 0
16.03.2015, 16:59
| Ответить | Цитировать | Написать  
Событие text1_Change
    #38906190
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
Shocker.ProСтало быть, очередной контрол оказался не текстбоксом
Я же указал что для каждого textbox из всех контролов
Почему он затрагивает другие контролы?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Sub Sbros_Click()
Dim Text As TextBox
 For Each Text In Me.Controls
    If Text.Tag = "" Then
      Text.Text = ""
    End If
  Next
...
Рейтинг: 0 / 0
16.03.2015, 17:11
| Ответить | Цитировать | Написать  
Событие text1_Change
    #38906207
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
vdekameronЯ же указал что для каждого textbox из всех контроловНет, не сказал. Ты сказал ему перебрать ВСЮ коллекцию Me.Controls, а в ней не только текстбоксы. Я приводил ПРАВИЛЬНЫЙ код.
...
Рейтинг: 0 / 0
16.03.2015, 17:26
| Ответить | Цитировать | Написать  
Событие text1_Change
    #38906220
vdekameron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdekameron
Гость
Shocker.ProЯ приводил ПРАВИЛЬНЫЙ код.
Да я же написал , что разобрался. Просто хотел понять почему так произошло
...
Рейтинг: 0 / 0
16.03.2015, 17:37
| Ответить | Цитировать | Написать  
25 сообщений из 58, страница 2 из 3
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Событие text1_Change
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38900188&tid=2155999]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 83ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 63ms
get tp. blocked users:
 1ms
others: 343ms
total:  532ms
созд. / загр.: 532ms
x
x
Закрыть


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