Мне нужно менять цвет формы нажатием на одну кнопку. Как это

[SCREEN]

Мне надо создать одну кнопку, нажать в первый раз - форма стала красной, второй - желтой и т.д. Как это сделать? Помогите плиз!!!!!

[GSerg]

Какие усилия были предприняты на данный момент?

[Kovu]

Здесь был модератор...
Ну вот зачем он тут был? ))

А может это модер злой?
А может и не злой

[xqz_me]

З.Ы. Первый мой ответ на этом форуме. И звёдочка ещё одна

Второй модератор тоже был здесь

[xqz_me]

Эээ... Не понял, куда код делся.

Туда же, куда код Kovu. Ждём ответа на пост № 1.

[Twister]

Шлите код в личку - модеры решили заставить чела думать...
Хотя...
[цитата]
Можно подвести лошадь к водопою, но нельзя заставить ее пить...
[/цитата]

[SCREEN]

Я только начинаю изучать ВБ, я не знаю как спомощью одной кнопки менять фон в различные цвета (нажатием многократно все на ту единственную кнопочку)

[xqz_me]

Какие усилия были предприняты на данный момент?

Я только начинаю изучать ВБ, я не знаю как спомощью одной кнопки менять фон в различные цвета (нажатием многократно все на ту единственную кнопочку)

Введи переменную. В начале она должна быть равной 0. Затем с каждым нажатием увеличивай её значение на единицу. Как только переменная станет больше 1, приравнивай её к 0. Таким образом, твоя переменная будет равна либо 0, либо 1. Каждое нажатие кнопки проверяй, чему он равна. Если она равна, например, 0 то делай жёлтый цвет, если 1 - то красный. Цвет формы задаётся так: Form1.BackColor=vbRed или vbYellow.

Надеюсь, что это поможет и заставит задуматься Ещё надею, что здесь не побывает модератор.

[Twister]

Есть много способов...
(есть ли смысл давать код, если модеры его прикроют?)
Можно по нажатию на кнопку генерировать 3 случайных переменных (функция Rnd) и с помощью функции RGB преобразовывать их в цвет (тип Long). А потом присваивать цвет форме...
Повторяю, вариантов миллион, ты покажи, что ты уже сделал и помощь придет!

[SCREEN]

Подскажите, какая комманда используется для повторного нажатия на кнопку? "Затем с каждым нажатием увеличивай её значение на единицу" что-то типа click1, click2 или как?

[SCREEN]

Подскажите, какая комманда используется для повторного нажатия на кнопку? "Затем с каждым нажатием увеличивай её значение на единицу" что-то типа click1, click2 или как?

[xqz_me]

нажать в первый раз - форма стала красной, второй - желтой

Можно по нажатию на кнопку генерировать 3 случайных переменных (функция Rnd) и с помощью функции RGB преобразовывать их в цвет (тип Long). А потом присваивать цвет форме...

Twister, думаю, что SCREEN имел в виду другое.

[xqz_me]

Нет.... У тебя есть переменная. В событии click напиши переменная = переменная + 1. И она каждый раз будет увеличиваться.

[SCREEN]

xqz_me Я тебе в личные написал!

[xqz_me]

Что ж, видимо администрации сайта не удалось осуществить задуманное и секретный код всё-таки попал к SCREEN

SCREEN, ты только попробуй во всё разобраться и поменьше пытайся добывать готовый коды. Надо самому въехать.

[SCREEN]

xqz_me Так точно!!! Отныне Буду пытаться сам

[Vitalikbox]

Form1.BackColor = vbRed
Имя Формы.BackColor = цвет
Есть константы цвета vbRed, vbGreen, vbBlue, vbMagenta, vbBlack, vbWhite, vbYellow.
Можно и свой:
Form1.BackColor = RGB(0,0,0)
Имя Формы.BackColor = RGB(красний от 0..255, зелений от 0..255, синий от 0..255)


А тепер ответ на вопрос

Dim colour As Integer
Private Sub cmdClick_Click()

If colour = 1 Then
frmMain.BackColor = vbRed
End If

If colour = 2 Then
frmMain.BackColor = vbGreen
End If

If colour = 3 Then
frmMain.BackColor = vbBlue
End If

If colour = 4 Then
frmMain.BackColor = vbMagenta
End If

If colour = 5 Then
frmMain.BackColor = vbBlack
End If

If colour = 6 Then
frmMain.BackColor = vbWhite
End If

If colour = 7 Then
frmMain.BackColor = vbYellow
End If

If colour = 7 Then
colour = 0
End If

colour = colour + 1

End Sub

Private Sub Form_Load()
coloyr = 1
End Sub

Удачи!

[Kovu]

...

Заменяется конструкцией выбора (Select Case), и перестает выглядеть так громоздко =)

[Хакер]

Какой ещё Select Case

Народ, вы чего???

Код: Выделить всё

Me.BackColor = Choose(colour, vbRed, vbGreen, vbBlue, vbMagenta) 'и т д.

[Kovu]

Пришел хакер и дал самый оптимизированный вариант =)

[tyomitch]

Ещё один вариант, кстати:

Код: Выделить всё

BackColor = QBColor(colour)

Используется стандартная EGA-шная последовательность из 16 цветов.

[Хакер]

SCREEN, ты только попробуй во всё разобраться и поменьше пытайся добывать готовый коды. Надо самому въехать.

А ещё выброси все книжки Visual Basic для начинающих, продолжающих и кончающих и изучай VB методом тыка.

А если серьёзно такой способ обучения, как показывает практика, даёт наилучший результат, чем вталкивание в голову уже "переваренных" данных. Когда сам до всего доходишь лучше вникаешь в суть.

[BV]

Ну вот... тема вдохновила на это

Код: Выделить всё

Option Explicit
Option Base 1

Private Declare Function GetTickCount Lib "kernel32.dll" () As Long

Private Sub cmdFlash_Click()
    Dim lRGB(1 To 3) As Long
    Dim i As Long
   
    For i = 1 To 3
        lRGB(i) = CLng((192 * Rnd) + 64)
    Next i
    frmMain.BackColor = RGB(lRGB(1), lRGB(2), lRGB(3))
   
    Do Until lRGB(1) = 255 Or lRGB(2) = 255 Or lRGB(3) = 255
        DoEvents
        For i = 1 To 3
            lRGB(i) = lRGB(i) + 5
            If lRGB(i) > 255 Then lRGB(i) = 255
        Next i
        frmMain.BackColor = RGB(lRGB(1), lRGB(2), lRGB(3))
        Call Pause(5)
    Loop
   
    Do Until lRGB(1) = 0 And lRGB(2) = 0 And lRGB(3) = 0
        DoEvents
        For i = 1 To 3
            lRGB(i) = lRGB(i) - 5
            If lRGB(i) < 0 Then lRGB(i) = 0
        Next i
        frmMain.BackColor = RGB(lRGB(1), lRGB(2), lRGB(3))
        Call Pause(5)
    Loop
End Sub

Private Sub Form_Load()
    With frmMain
        .BackColor = RGB(0, 0, 0)
        .Caption = "Flash"
    End With
End Sub

Private Sub Pause(ByVal lPause As Long)
    Dim lTime As Long
    lTime = GetTickCount
    Do Until GetTickCount > lTime + lPause: DoEvents: Loop
End Sub

[VVitafresh]

Прикольно
Только где это может пригодиться

[GB826]

Админы правильно делали, только народ у нас как всегда.

Такие "Я впервый раз в ВБ, как мне написать Виндовс?" будут пока им будут давать готовые ответы. Если у кого ассоциированное мышление - сравните с попрашайками в метро, которых добрые бабушки "подкармливают", так вот все кто дал код - бабушки, гыгыгы...

[ВуД]

Скачай это

[Vitalikbox]

Радуйся (GB826) что продвинутий, но другие начинающие и им надо помагать.

[GB826]

Vitalikbox
Тебе помОгу, как не помОчь, хорошему человеку :о)
Кто-то давал ссылку [url]gramota.ru[/url]

Я не продвинутый, просто все написано в книгах, и когда человек просит

создать одну кнопку, нажать

, вспоминается мультик, где были Двое из ларца:
- а вы что еще и есть за меня будете?
- Ага! :о) :о)

[Naked]

Private Sub Command1_Click()
Randomize
r = Rnd * 255
g = Rnd * 255
b = Rnd * 255
BackColor = RGB(r, g, b)
End Sub

[Smith68]

Вот еще

Код: Выделить всё

Private Sub ав_Click()
Static A As Long
A = A + 1
If A = "1" Then Form1.BackColor = "&H00C0C0C0"
If A = "2" Then Form1.BackColor = "&H000000FF"
If A = "3" Then Form1.BackColor = "&H000080FF"
If A = "4" Then Form1.BackColor = "&H0000FFFF"
If A = "5" Then Form1.BackColor = "&H0000FF00"
If A = "6" Then Form1.BackColor = "&H00FFFF00"
If A = "7" Then Form1.BackColor = "&H00FF0000"
If A = "8" Then Form1.BackColor = "&H00FF00FF"

End Sub