Предыдущая страница реферата | 1  2  3  4  5  6 | Следующая страница реферата

Command2.Visible = False

Command2.Caption = -1

End Sub

Для следующих программные коды аналогичны. Однако, для проверки приведу обработчик для "последней" кнопки:

Private Sub Command9_Click()

If Command9.Caption < Command1.Caption Then End
If Command9.Caption < Command2.Caption Then End
If Command9.Caption < Command3.Caption Then End
If Command9.Caption < Command4.Caption Then End
If Command9.Caption < Command5.Caption Then End
If Command9.Caption < Command6.Caption Then End
If Command9.Caption < Command7.Caption Then End
If Command9.Caption < Command8.Caption Then End

Command9.Visible = False

Command9.Caption = -1

End Sub

Получилось довольно громоздко. Тем не менее, программный код удовлетворяет поставленной задаче.

Быстро!

Чтобы реализовать другой подход необходимо изменить свойство Index у всех кнопок следующим образом ...

Измените свойство Index у кнопки Command1 на 0. У кнопки Command2 имя на Command1, причём вам надо будет положительно ответить на предлагаемый вопрос среды разработки. Выполните последнее указание для всех других кнопок.

[pic]

У меня заняло меньше времени выполнить то, что я вам описал выше.

Такие приготовления нам были просто необходимы, потому что программный код будет совсем другим! Вот его листинг:

Private Sub Form_Load()

For i = 0 To 8

Command1(i).Caption = Int(9 * Rnd)

Next i

End Sub

Private Sub Command1_Click(Index As Integer)

For i = 0 To 8

If Command1(Index).Caption < Command1(i).Caption Then End

Next i

Рекомендуем скачать другие рефераты по теме: капитанская дочка сочинение, бесплатно реферат на тему.



Предыдущая страница реферата | 1  2  3  4  5  6 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки