VPF::[VB6] Событие Click на кнопке - Форум программистов

DRUG_ADDICT

Дата 3.2.2009, 22:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 136
Регистрация: 10.8.2007

Репутация: нет
Всего: нет

Добрый день всем! Вообщем есть кнопка "Вперед", в которой есть условия типааа:

Код


Private Sub Button_Click()
If n = 1 Then
бла бла бла
End If

If n = 2 Then
бла бла бла
End If

If n = 3 Then
бла бла бла
End If

n = n + 1
End Sub

Короче нажимаю на кнопку, переменой n прибавляется одын, срабатывает первое условие, все кул. так тыкаю до 3 до 5 до 8 и т.д. условие.... условие.... условие...

Но есть кнопка что то типа "Назад" то есть надо ОТНИМАТЬ от этой переменой одын... типа:

Код


Private Sub Button2_Click()
n = n - 1
End Sub

хорошо отнял.... но вот беда УСЛОВИЕ то НЕВИДНО (не срабатывает)! ибо оно в совсем другом событии....
срабатывает оно только тогда кагда я нажимаю на "Вперед" то есть 5ое условие, то есть: n = 5 -> нажала "Назад", отнял единицу -> стало: n = 4 -> нажимаю вперед, показывает 4ое УСЛОВИЕ! smile

помогите пожалуйста как сделать чтоб условия при отнимании сразу показывались то есть как будто листаю, то назад... то вперед... =((((((((((((( пожалуйста! smile

спасибо огромное за ответы! уже 3 часа парюсь... до слез аш smile

--------------------

ICQ# 23-23-30 What can i do for you ? Paid..."Свобода лечит лучше всего" А.С. Неил. Самерхилт.

Akina

Дата 3.2.2009, 23:02 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454

Код


dim n as integer

sub form_load
n=1
end sub

sub forward_click()
call Process()
n=n+1
end sub

sub backward_click()
call Process()
n=n-1
end sub

sub Process
select case n
   case 1
      msgbox "MIN event (1)"
   case 2
      msgbox "event (2)"
   case 3
      msgbox "event (3)"
'......
   case 10
      msgbox "MAX event (10)"
   case else
      msgbox "event num out of range"
end select
end sub

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Akina

Дата 3.2.2009, 23:02 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

DRUG_ADDICT

Дата 3.2.2009, 23:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 136
Регистрация: 10.8.2007

Репутация: нет
Всего: нет

Цитата(Akina @ 3.2.2009, 23:02)

Код


dim n as integer

sub form_load
n=1
end sub

sub forward_click()
call Process()
n=n+1
end sub

sub backward_click()
call Process()
n=n-1
end sub

sub Process
select case n
   case 1
      msgbox "MIN event (1)"
   case 2
      msgbox "event (2)"
   case 3
      msgbox "event (3)"
'......
   case 10
      msgbox "MAX event (10)"
   case else
      msgbox "event num out of range"
end select
end sub

СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Добавлено через 56 секунд

Цитата(Akina @ 3.2.2009, 23:02)

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

как ты УГАДа! что у меня КУРСОВА? а? ОООООООООООООООО smile

--------------------

ICQ# 23-23-30 What can i do for you ? Paid..."Свобода лечит лучше всего" А.С. Неил. Самерхилт.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »