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

   
   
     

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

Страница: 1 | 2 |

 

  Вопрос: Че за..... Добавлено: 02.02.10 17:19  

Автор вопроса:  ηikolaŠ~rus | ICQ: 604058327 
Private Sub Command4_Click()
qw = qw + 1
If qw = 1 Then
For i = 0 To 4
Text1(i).BackColor = vbRed
Next i
End If
If qw = 2 Then
For i = 0 To 4
Text1(i).BackColor = vbGreen
Next i
End If
End Sub

Здрасте !
Подскажите как сделать чтоб при 3 нажатии происходило тоже что и в первом(я имею ввиду что мне не расписывать 3,4,5,6,7 и т.д нажатиии кнопки,как это сделать ! Может это все в цикл ??)

Ответить

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

Номер ответа: 1
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #1 Добавлено: 02.02.10 17:29
  1. Private Sub Command4_Click()
  2. qw = qw + 1
  3. If qw = 1 Then
  4. For i = 0 To 4
  5. Text1(i).BackColor = vbRed
  6. If Text1(i).BackColor = vbRed Then
  7. Command5.Visible = True
  8. End If
  9. Next i
  10. End If
  11. If qw = 2 Then
  12. For i = 0 To 4
  13. Text1(i).BackColor = &H80000005
  14. If Text1(i).BackColor = &H80000005 Then
  15. Command5.Visible = False
  16. End If
  17. Next i
  18. End If

это полный код (я его тока щас дописал)

Ответить

Номер ответа: 2
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
  Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #2 		Добавлено: 02.02.10 21:12
  1.  
  2. qw = qw + 1
  3. If gw =3 then gw=1

Ответить

Номер ответа: 3
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #3 		Добавлено: 02.02.10 21:28
Так:
  1. Private Sub Command4_Click()
  2. qw = qw + 1
  3. If qw = 1 Then
  4. For i = 0 To 4
  5. Text1(i).BackColor = vbRed
  6. Next i
  7. End If
  8. If qw > 1 Then  'Я думал, что это очевидно...
  9. For i = 0 To 4
  10. Text1(i).BackColor = vbGreen
  11. Next i
  12. End If
  13. End Sub


Или так:
  1.  
  2. Private Sub Command4_Click()
  3. qw = qw + 1
  4. For i = 0 To 4
  5. Text1(i).BackColor = vbRed * (1 - Sgn(qw-1)) + vbGreen * Sgn(qw -1)
  6. Next
  7. End Sub
  8. End Sub

Ответить

Номер ответа: 4
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #4 		Добавлено: 02.02.10 21:28
(второй End Sub лишний)

Ответить

Номер ответа: 5
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #5 		Добавлено: 03.02.10 00:32
а если
  1. If qw = 1 or qw = 3 Then
??)))

Ответить

Номер ответа: 6
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #6 		Добавлено: 03.02.10 08:36
Да, пожалуй...

  1.  
  2. If qw = 1 or qw > 2 Then



Можно поинтересоваться, зачем это все?

Ответить

Номер ответа: 7
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
  Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #7 		Добавлено: 03.02.10 09:43
Насколько я понял это светофор, только с текстом, нажал горит красный нажал еще раз загорается зеленый, еще раз опять красный и т.д.
Для чего? да х/з

Ответить

Номер ответа: 8
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #8 Добавлено: 03.02.10 14:25
светофор мне не нужен ,у меня есть компонент который ето за меня сделает
у меня просто прога таккая

Ответить

Номер ответа: 9
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #9 Добавлено: 03.02.10 14:29
Не один код не идет

Ответить

Номер ответа: 10
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #10 Добавлено: 03.02.10 14:30
If qw > 1 Then 'Я думал, что это очевидно...


VBUnit еслиб для меня этоб было не очевидно я б не спрашивал

Ответить

Номер ответа: 11
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #11 		Добавлено: 03.02.10 15:42
nikolarus, есть, вообще-то, такая хорошая вещь - гугл называется.
  1. Private Sub Command4_Click()
  2. qw = qw + 1
  3. If qw = 1 Or qw > 2 Then
  4. For i = 0 To 4
  5. Text1(i).BackColor = vbRed
  6. Next i
  7. End If
  8. If qw = 2 Then
  9. For i = 0 To 4
  10. Text1(i).BackColor = vbGreen
  11. Next i
  12. End If
  13. End Sub

Ответить

Номер ответа: 12
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #12 Добавлено: 03.02.10 17:26
Ладно всеравно не идет (только 3 раза меняет цвет,попробую сам както разобраться!)

Ответить

Номер ответа: 13
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #13 		Добавлено: 03.02.10 20:12
  1. Private Sub Command4_Click()
  2. For i = 0 To 4
  3. If Text1(i).BackColor = vbGreen Then
  4. Text1(i).BackColor = vbRed
  5. Else
  6. Text1(i).BackColor = vbGreen
  7. End If
  8. Next i
  9. End Sub

Ответить

Номер ответа: 14
Автор ответа:
 Дмитрий Юпатов



Вопросов: 4
Ответов: 457
  Web-сайт: cargomaster.at.ua/
 Профиль | | #14 		Добавлено: 03.02.10 20:17
а так:
  1. If Me.Text1.BackColor = vbRed Then
  2.             'здесь сделай перебор всех элементов массива текстбоксов
  3.             Me.Text1.BackColor = vbGreen
  4.         Else
  5.             'и здесь тоже...
  6.             Me.Text1.BackColor = vbRed
  7.         End If

Ответить

Номер ответа: 15
Автор ответа:
 ηikolaŠ~rus



ICQ: 604058327 

Вопросов: 50
Ответов: 287
  Профиль | | #15 Добавлено: 03.02.10 20:54
VBUnit спасибо!
 пошло!

Ответить

Страница: 1 | 2 |

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



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