Изменение цвета текстового поля / Visual Basic

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Изменение цвета текстового поля

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

все

Изменение цвета текстового поля

#37316797

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

AndreTM,

не придирайся, ясно, что по таймеру, условно можно назвать это циклом, только в качестве Next выступает событие таймера.

...

Рейтинг:

0 / 0

20.06.2011, 21:42

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

Изменение цвета текстового поля

#37316800

JeiDee

Гость

AndreTMВы не поняли - соль вопроса была в
AndreTMТак как же изменять цвета - "систематически по таймеру" или "в цикле с определенным шагом"?Ибо это основополагающе для разработки алгоритма.

А пример вашей задачи я хоть сейчас нарисую, но об этом, я, вроде, тоже уже...

Понял) по таймеру надо изменять

...

Рейтинг:

0 / 0

20.06.2011, 21:43

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

Изменение цвета текстового поля

#37316832

JeiDee

Гость

Никто не знает как по таймеру событие запустить :-O

...

Рейтинг:

0 / 0

20.06.2011, 22:14

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

Изменение цвета текстового поля

#37316842

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

Ну, если у тебя Timer - это объект, то в его эвентах должно быть OnTimer() . куда ты и подвяжешь реакцию... Не забывай после реагирования сбрасывать таймер

...

Рейтинг:

0 / 0

20.06.2011, 22:26

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

Изменение цвета текстового поля

#37316851

JeiDee

Гость

AndreTMНу, если у тебя Timer - это объект, то в его эвентах должно быть OnTimer() . куда ты и подвяжешь реакцию... Не забывай после реагирования сбрасывать таймер

Я это понимаю)) а пример то все равно нужен)) как его задать то)))

...

Рейтинг:

0 / 0

20.06.2011, 22:30

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

Изменение цвета текстового поля

#37316863

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

AndreTMНу, если у тебя Timer - это объект, то в его эвентах должно быть OnTimer()

Событие называется просто Timer

Автор, щелкни два раза по таймеру и получил процедуру обработки событий

...

Рейтинг:

0 / 0

20.06.2011, 22:43

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

Изменение цвета текстового поля

#37317792

JeiDee

Гость

Shocker.ProAndreTMНу, если у тебя Timer - это объект, то в его эвентах должно быть OnTimer()

Событие называется просто Timer

Автор, щелкни два раза по таймеру и получил процедуру обработки событий

Вы наверное вопрос не очень поняли. вот у меня код. Как по этому код сделать что бы цвет хоть начал меняться через оперделенное время... тут он срабатывает разово. Как сделать что бы через 10 секунд цвет поменял.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

Private Sub Command2_Click()
    Timer1.Enabled = True
    'If R = 0 And G = 0 And Not B = 0 Then B = B - 20
    

End Sub

Private Sub Timer1_Timer()
    Dim R As Byte
    Dim G As Byte
    Dim B As Byte
    R =  0 
    G =  0 
    B =  255 
Text1.BackColor = RGB(R, G, B)
End Sub

А тут он один раз срабатывает ии все. Надо куда то еще эту

Код: plaintext

1.
2.
3.
4.

    R =  255 
    G =  0 
    B =  0 
Text1.BackColor = RGB(R, G, B)

например вписать и что бы поменялся через 10 сек на красный

...

Рейтинг:

0 / 0

21.06.2011, 13:27

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

Изменение цвета текстового поля

#37318003

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

Для автора, который чего-то понимает в основах программирования, хочет разобраться, сам написать программу:

тебе при каждом срабатывания таймера надо уменьшать количество синего и прибавлять количество красного. С каким-то шагом. Через некоторое время синего не останется, а красного будет максимум. Таким образом, цвет плавно поменяется

Для автора с подходом "напишите мне программу":

1000р

...

Рейтинг:

0 / 0

21.06.2011, 14:32

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

Изменение цвета текстового поля

#37318110

JeiDee

Гость

Shocker.ProДля автора, который чего-то понимает в основах программирования, хочет разобраться, сам написать программу:

тебе при каждом срабатывания таймера надо уменьшать количество синего и прибавлять количество красного. С каким-то шагом. Через некоторое время синего не останется, а красного будет максимум. Таким образом, цвет плавно поменяется

Для автора с подходом "напишите мне программу":

1000р

Опять про другое... я говорю о том что в таймере ведь должно выполняться несколько событий через определенное время а не так:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.

Private Sub Command2_Click()
    Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
    Dim R As Byte
    Dim G As Byte
    Dim B As Byte
    R =  0 
    G =  0 
    B =  255 
    Text1.BackColor = RGB(R, G, B)
    Timer2.Enabled = True
End Sub

Private Sub Timer2_Timer()
    Timer1.Enabled = False
    Dim R As Byte
    Dim G As Byte
    Dim B As Byte
    R =  255 
    G =  0 
    B =  0 
    Text1.BackColor = RGB(R, G, B)
End Sub

вот тут цвет меняется но мне нужно что бы был 1 таймер а не 100 штук

...

Рейтинг:

0 / 0

21.06.2011, 15:11

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

Изменение цвета текстового поля

#37318292

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

а может надо было нажать F1 и почитать, что такое таймер????

таймер периодически выдает свое событие Timer с интервалом, заданным свойством Interval, так что сто таймеров тебе не нужно

...

Рейтинг:

0 / 0

21.06.2011, 16:15

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

Изменение цвета текстового поля

#37318618

big-duke

Участник

Сообщения: 6 245

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

Private Sub Timer1_Timer()
    Static iCounter As Integer
    
    if iCounter Mod  2   =  0   then
         Text1.BackColor = RGB( 255 , 0 , 0 )    
    else
         Text1.BackColor = RGB( 0 , 255 , 0 )    
    end if
    iCounter=iCounter+ 1 
End Sub

...

Рейтинг:

0 / 0

21.06.2011, 18:28

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

Изменение цвета текстового поля

#37320400

JeiDee

Гость

big-duke

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

Private Sub Timer1_Timer()
    Static iCounter As Integer
    
    if iCounter Mod  2   =  0   then
         Text1.BackColor = RGB( 255 , 0 , 0 )    
    else
         Text1.BackColor = RGB( 0 , 255 , 0 )    
    end if
    iCounter=iCounter+ 1 
End Sub

Спасибо большое) этот код работает.
только мне счас как то это все в цикле надо сделать

Код: plaintext

1.
2.
3.

    For I =  0  To  255  Step  85 
        R = R +  85 
        Text1.BackColor = RGB(R, G, B)
    Next I

Примерно таким образом... только почему то не хочет работать. Один красный цвет выводится переливки цветов нет

...

Рейтинг:

0 / 0

22.06.2011, 16:40

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

Изменение цвета текстового поля

#37320402

JeiDee

Гость

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.

Private Sub Timer1_Timer()
    Static iRedColor As Integer
    
    if iRedColor>  255  Then iRedColor= 0 

    Text1.BackColor = RGB(iRedColor , 0 , 0 ) 

    iRedColor = iRedColor+ 85   
End Sub

...

Рейтинг:

0 / 0

22.06.2011, 16:40

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

Изменение цвета текстового поля

#37320468

JeiDee

Гость

JeiDee

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.

Private Sub Timer1_Timer()
    Static iRedColor As Integer
    
    if iRedColor>  255  Then iRedColor= 0 

    Text1.BackColor = RGB(iRedColor , 0 , 0 ) 

    iRedColor = iRedColor+ 85   
End Sub

Спасибо, сработало)
У меня только возник вопрос
как к значению iRedColor стандартно задать что бы начиналось от 255

...

Рейтинг:

0 / 0

22.06.2011, 17:08

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

Изменение цвета текстового поля

#37320497

big-duke

Участник

Сообщения: 6 245

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

Private Sub Timer1_Timer()
    Static iRedColor As Integer
    
    If IsEmpty(iRedColor) Then iRedColor= 255 

    if iRedColor<  0  Then iRedColor= 255 

    Text1.BackColor = RGB(iRedColor , 0 , 0 ) 

    iRedColor = iRedColor- 85   
End Sub

...

Рейтинг:

0 / 0

22.06.2011, 17:17

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

Изменение цвета текстового поля

#37320504

JeiDee

Гость

Вот так сделал) счас дальше буду разбираться)

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

Private Sub Timer1_Timer()
    Static R As Integer
    Static G As Integer
    Static B As Integer
    If R >  255  Then R =  0 
    If G >  255  Then G =  0 
    If B >  255  Then B =  0 
    If R =  0  And G =  0  And B =  0  Then B =  255 
    Text1.BackColor = RGB(R, G, B)
    If R =  0  And G =  0  And B =  255  Then B =  0 
    B = B +  85 
    
End Sub

...

Рейтинг:

0 / 0

22.06.2011, 17:19

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

Изменение цвета текстового поля

#37320515

big-duke

Участник

Сообщения: 6 245

Рейтинг: 0 / 0

JeiDee,

давай , пробуй.
Если надоест плодить условия типа If R = 0 And G = 0 And B = 0 , то почитай у Макконела про матрицы условий.

...

Рейтинг:

0 / 0

22.06.2011, 17:22

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

Изменение цвета текстового поля

#37320662

JeiDee

Гость

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.

Private Sub Command2_Click()
    Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
    Static R As Integer
    Static G As Integer
    Static B As Integer
    Static ROn As Integer
    Static GOn As Integer
    Static BOn As Integer
    Static Nachalo As Integer
    
    If Nachalo =  0  Then B =  255 
    
    Text1.BackColor = RGB(R, G, B)
    
        If BOn =  0  Then
        B = B +  1 
        Nachalo =  1 
        End If
        
        If B >  255  Then
        GOn =  1 
        B =  0 
        BOn =  1 
        End If
        
        If GOn =  1  Then
        G = G +  1 
        End If
        
        If G >  255  Then
        ROn =  1 
        GOn =  0 
        G =  0 
        End If
        
        If ROn =  1  Then
        R = R +  1 
        End If
        
        If R >  255  Then
        R =  0 
        GOn =  0 
        BOn =  0 
        GOn =  0 
        ROn =  0 
        End If
        
End Sub

Вот код он работает очень корректно. Есть только вопрос. Как создать переменную по нажатии клавиши которая будет видна в таймере. Вот пример:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.

[SRC VB]Private Sub Command2_Click()
    Timer1.Enabled = True
    Static pub As Integer
    pub =  1 
End Sub
Private Sub Timer1_Timer()
    Print pub
End Sub

...

Рейтинг:

0 / 0

22.06.2011, 18:57

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

Изменение цвета текстового поля

#37320663

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

JeiDeeКак создать переменную по нажатии клавиши которая будет видна в таймере. Объявить ее вне процедур (до процедур) - она будет видна во всех процедурах этого модуля

...

Рейтинг:

0 / 0

22.06.2011, 19:00

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

Изменение цвета текстового поля

#37320681

JeiDee

Гость

Shocker.ProJeiDeeКак создать переменную по нажатии клавиши которая будет видна в таймере. Объявить ее вне процедур (до процедур) - она будет видна во всех процедурах этого модуля
мне пример нужен

...

Рейтинг:

0 / 0

22.06.2011, 19:13

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

Изменение цвета текстового поля

#37320683

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

JeiDeeмне пример нужен

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.

Private pub As Integer

Private Sub Command2_Click()
    Timer1.Enabled = True
    pub =  1 
End Sub
Private Sub Timer1_Timer()
    Print pub
End Sub

...

Рейтинг:

0 / 0

22.06.2011, 19:16

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

Изменение цвета текстового поля

#37322441

JeiDee

Гость

Странно работает программа

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.

Private Sub Command1_Click()
    Timer1.Enabled = False
    Nachalo = False
    Nachalo1 = False
    If knopka1 = False Then
    Timer1.Enabled = False
    start3 = True
    start4 = False
    Timer1.Enabled = True
    knopka1 = True
    Else
    Timer1.Enabled = False
    start3 = False
    start4 = True
    Timer1.Enabled = True
    knopka1 = False
    End If
End Sub
Private Sub Command2_Click()
    Timer1.Enabled = True
    pub =  1 
End Sub
Private Sub Timer1_Timer()
    Print pub
End Sub
Private Sub Timer1_Timer()
    Static R As Integer
    Static G As Integer
    Static B As Integer
    Static R2 As Integer
    Static G2 As Integer
    Static B2 As Integer
    Static R4 As Integer
    Static G4 As Integer
    Static B4 As Integer
    Static ROn As Integer
    Static GOn As Integer
    Static BOn As Integer
    Static ROn2 As Integer
    Static GOn2 As Integer
    Static BOn2 As Integer
    Static ROn4 As Boolean
    Static GOn4 As Boolean
    Static BOn4 As Boolean
    Static NG2 As Boolean
    Static NR2 As Boolean
    Static NG3 As Boolean
    Static NR3 As Boolean
    Static ROnn2 As Boolean
    Static BOnn2 As Boolean
If start4 = True Then
    If Nachalo1 = False Then
    R4 =  255 
    G4 =  255 
    B4 =  255 
    ROn4 = True
    End If
    
    Text1.ForeColor = RGB(R4, G4, B4)
    
    If ROn4 = True Then
    Nachalo11 = True
    ROnn4 = True
    R4 = R4 -  85  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Тут пишется что равно 170 и зацикливается. Почему дальше не считает
    End If
    
    If ROnn4 = True Then
        If R4 =  0  Then
        R4 =  255 
        BOn4 = True
        ROn4 = False
        ROnn4 = False
        End If
    End If
    

    
    If BOn4 = True Then
    B4 = B4 -  1 
    BOnn4 = True
    End If
    
    If BOnn4 = True Then
        If B4 =  0  Then
        BOn4 = False
        BOnn4 = False
        Nachalo1 = False
        End If
    End If
End If
End Sub

...

Рейтинг:

0 / 0

23.06.2011, 18:00

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

Изменение цвета текстового поля

#37322521

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

JeiDee,

Вот это все понаписано ради того, чтоб цвет перешел от синего к красному по таймеру? Или тут еще что-то заложено помимо этого?

(не хочу сломать себе мозг, пытаясь вникнуть в этот код)

...

Рейтинг:

0 / 0

23.06.2011, 18:41

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

Изменение цвета текстового поля

#37322531

JeiDee

Гость

Да, но к сожалению другого способа придумать не мог)))
Shocker.ProJeiDee,

Вот это все понаписано ради того, чтоб цвет перешел от синего к красному по таймеру? Или тут еще что-то заложено помимо этого?

(не хочу сломать себе мозг, пытаясь вникнуть в этот код)

Если хотите увидеть результат. то он тут в файле.
Если увидите код наверника он вам взорвет мозг)))

...

Рейтинг:

0 / 0

23.06.2011, 18:53

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

Изменение цвета текстового поля

#37322625

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

Вот весь код:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.

Private R As Byte, B As Byte

Private Sub Command1_Click()

R =  0 
B =  255 
Timer1.Enabled = True

End Sub
Private Sub Timer1_Timer()

If R =  255  Then
  Timer1.Enabled = False
  Exit Sub
End If
R = R +  1 
B = B -  1 
Text1.BackColor = RGB(R,  0 , B)

End Sub

интервал таймера = 5мс

...

Рейтинг:

0 / 0

23.06.2011, 20:32

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

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

все

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Изменение цвета текстового поля

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

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

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

start [/forum/topic.php?fid=60&msg=37322521&tid=2158598]:	0ms
get settings:	10ms
get forum list:	15ms
check forum access:	4ms
check topic access:	4ms
track hit:	44ms
get topic data:	13ms
get forum data:	3ms
get page messages:	59ms
get tp. blocked users:	1ms
others:	360ms

total:	513ms