Событие text1_Change / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Событие text1_Change

25 сообщений из 58, страница 2 из 3

все

Событие text1_Change

#38899412

vdekameron

Гость

alex77755В моём коде?
Я в код даже не вникал! Это ваш код!!

Это не было претензией
Спасибо за помощь.

...

Рейтинг:

0 / 0

10.03.2015, 09:17

| Ответить | Цитировать | Написать

Событие text1_Change

#38899979

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

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Код: 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

Участник

Откуда: Майкоп

Сообщения: 593

Рейтинг: 0 / 0

Если имеется ввиду очистка всех текстбоксов на форме, то надо так и сказать VB. TypeOf ... Is https://msdn.microsoft.com/ru-ru/library/s4zz68xc.aspx

...

Рейтинг:

0 / 0

10.03.2015, 15:33

| Ответить | Цитировать | Написать

Событие text1_Change

#38900146

vdekameron

Гость

Имеете ввиду

Код: vbnet

If j.Name="IzmVB2" or j.Name ="IzmVB3"................ Then

...

Рейтинг:

0 / 0

10.03.2015, 15:56

| Ответить | Цитировать | Написать

Событие text1_Change

#38900150

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Нет, имею ввиду например

Код: vbnet

If Left$(j.Name, 3)<>"cmd" Then

все зависит от того, каким образом ты собираешься отделить элементы, которые нужно очищать от элементов, которые не нужно. Это может быть имя, Tag, тип элемента, расположение его в определенном контейнере и т.п.

...

Рейтинг:

0 / 0

10.03.2015, 15:58

| Ответить | Цитировать | Написать

Событие text1_Change

#38900179

vdekameron

Гость

AndreyMpЕсли имеется ввиду очистка всех текстбоксов на форме
Нет, меня поняли правильно, нужно только определенные вычищать

...

Рейтинг:

0 / 0

10.03.2015, 16:13

| Ответить | Цитировать | Написать

Событие text1_Change

#38900188

vdekameron

Гость

Shocker.Proвсе зависит от того, каким образом ты собираешься отделить элементы, которые нужно очищать от элементов, которые не нужно. Это может быть имя, Tag, тип элемента, расположение его в определенном контейнере и т.п.
Нет, именно по именам нужно, тогда я так понимаю именно так, как я привел после if

...

Рейтинг:

0 / 0

10.03.2015, 16:16

| Ответить | Цитировать | Написать

Событие text1_Change

#38900191

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Я бы так сделал

Код: 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

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

Код: 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

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

vdekameronНет, именно по именам нужнопочему? Что мешает ввести какой-то признак искусственно?

...

Рейтинг:

0 / 0

10.03.2015, 16:18

| Ответить | Цитировать | Написать

Событие text1_Change

#38900219

vdekameron

Гость

Shocker.Proпочему? Что мешает ввести какой-то признак искусственно?
C Tag хорошая идея , но ведь его нужно заполнить для каждого текстбокса.
С Рамкой тоже хорошо, но тут возникает сразу вопрос, если эти текстбоксы будут вразброс, то как тут рамкой выкрутиться.

...

Рейтинг:

0 / 0

10.03.2015, 16:26

| Ответить | Цитировать | Написать

Событие text1_Change

#38900227

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

Гость

Накидали мне вариантов)) Спасибо

...

Рейтинг:

0 / 0

10.03.2015, 16:29

| Ответить | Цитировать | Написать

Событие text1_Change

#38900232

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

vdekameronС Рамкой тоже хорошо, но тут возникает сразу вопрос, если эти текстбоксы будут вразброс, то как тут рамкой выкрутиться.я же форму не вижу
vdekameronC Tag хорошая идея , но ведь его нужно заполнить для каждого текстбокса.выделяешь их все мышкой с шифтом или контролом и прописываешь тэг одновременно всем.

...

Рейтинг:

0 / 0

10.03.2015, 16:30

| Ответить | Цитировать | Написать

Событие text1_Change

#38900250

vdekameron

Гость

Shocker.Proвыделяешь их все мышкой с шифтом или контролом и прописываешь тэг одновременно всем.
Ага, спасибо. Это самый лучший вариант. С Select Case тоже хорош, но так, как вы посоветовали у меня меньше опыта) Поэтому использую его, чтобы запомнить лучше.
Единственное когда я выделяю много эл-тов на форме они как-то глючно выделяются. Выделяются меркерами хаотично мигая секунд 20. Так у всех? Оперативки вроде норм у меня для этого.

...

Рейтинг:

0 / 0

10.03.2015, 16:38

| Ответить | Цитировать | Написать

Событие text1_Change

#38900256

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

не сталкивался

...

Рейтинг:

0 / 0

10.03.2015, 16:42

| Ответить | Цитировать | Написать

Событие text1_Change

#38900263

vdekameron

Гость

Shocker.Proне сталкивался
У вас сразу все выделяется? У меня медленно сначала один раз, потом будто по второму кругу начинают выделяться.

...

Рейтинг:

0 / 0

10.03.2015, 16:45

| Ответить | Цитировать | Написать

Событие text1_Change

#38900267

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Я у себя реализовал вообще произвольные группы контролов на форме, что дает возможность их разом очистить, скрыть, запретить и т.п.
Причем, если контрол входит в две разных группы, одна из которых запрещена, вторая разрешена, то он останется запрещенным (ну или разрешенным, это зависит от политики групп)

ну это так, на будущее

...

Рейтинг:

0 / 0

10.03.2015, 16:47

| Ответить | Цитировать | Написать

Событие text1_Change

#38906095

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

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Стало быть, очередной контрол оказался не текстбоксом. Проверяй TypeName, как я показывал ранее

...

Рейтинг:

0 / 0

16.03.2015, 16:31

| Ответить | Цитировать | Написать

Событие text1_Change

#38906167

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

Гость

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

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

vdekameronЯ же указал что для каждого textbox из всех контроловНет, не сказал. Ты сказал ему перебрать ВСЮ коллекцию Me.Controls, а в ней не только текстбоксы. Я приводил ПРАВИЛЬНЫЙ код.

...

Рейтинг:

0 / 0

16.03.2015, 17:26

| Ответить | Цитировать | Написать

Событие text1_Change

#38906220

vdekameron

Гость

Shocker.ProЯ приводил ПРАВИЛЬНЫЙ код.
Да я же написал , что разобрался. Просто хотел понять почему так произошло

...

Рейтинг:

0 / 0

16.03.2015, 17:37

| Ответить | Цитировать | Написать

25 сообщений из 58, страница 2 из 3

все

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Событие text1_Change

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/search_topic.php?author=format23424&author_mode=last_posts&do_search=1]:	0ms
get settings:	9ms
get forum list:	13ms
get settings:	8ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	33ms
get topic data:	9ms
get forum data:	2ms
get page messages:	56ms
get tp. blocked users:	1ms
others:	496ms

total:	645ms