Как из кода создать кнопку?

[MVG]

Как из кода создать на форме кнопку со своими Caption и Name? Создание заранее и появление её по свойству Visible не подходит так как их понадобится штук 80.

[Amed]

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

Private Sub Form_Load()
Dim i As Integer

For i = 1 To 5
    Load cmdButton(i)
    With cmdButton(i)
        .Caption = "cmdbutton(" & i & ")"
        .Top = 500 * i
        .Visible = True
    End With
Next i
End Sub

На форме одна кнопка cmdButton. Index - 0.

[GSerg]

Я фигею...
Люди, вы принципиально кнопку Поиск не видите?...
Эта тема поднималась вчера http://bbs.vbstreets.ru/viewtopic.php?t=15288

[Amed]

Посему у меня предложение. Может, запретить Новичкам постить в форумы, пока у них не будет больше... скажем, больше 100 сообщений?

[MVG]

Спасибо за помощь. Буду чаще пользоваться поиском.

[GSerg]

Посему у меня предложение. Может, запретить Новичкам постить в форумы, пока у них не будет больше... скажем, больше 100 сообщений?

А как он тогда наберёт?

[Amed]

Ты же понял шутку?

[MVG]

Всё работает, кнопочка появляется. А как материализовать не стандартную кнопку, а кнопку одного из добавленных компонентов. Почему-то по показанным Вами кодам выходит ошибка.

[Amed]

Материализовать кнопку одного из добавленных компонентов? Поясните.

И какая ошибка выходит (номер, описание)?

[MVG]

Есть компонент FarPiontButton. Пытаюсь создать из кода кнопку fpBtn по примерам:
Пример1:
- Me.Controls.Add("fpBtn", "newbutton").Visible = True
Выходит сообщение: "Неверная строка класса. Поиск объекта с ProgID:fpBtn"

Пример2:
-Dim WithEvents bt As fpBtn
Option Explicit

Private Sub Form_Load()
Set bt = Controls.Add("fpBtn", "newbutton")
bt.Caption = "MyNewButton"
'bt.Move 0, 0
bt.Visible = True
Выходит сообщение: "Неверная строка класса. Поиск объекта с ProgID:fpBtn"

Пример 3:

Private Sub Form_Load()

Dim i As Integer

For i = 1 To 5
Load fpBtn(i)
With fpBtn(i)
.Caption = "fpBtn(" & i & ")"
.Top = 500 * i
.Visible = True
End With
Next i
На форме присутствует кнопка fpBtn.

Сообщение: Ошибка компелляции:
Подпрограмма или Оператор-Функция не определены.

[Amed]

Пример 3:
А у кнопки fpBtn на форме свойство Index должно быть выставлено в "0".

Примеры 1 и 2:
Неверное имя класса для кнопки. Надо писать в Contols.Add не "fpBtn", а имя класса. Поищи в мануале.

[Ariman]

Как из кода создать кнопку?

Простите за офф. Но этот вопрос мне ооочень напоминает фразу
"Из....(сами знаете чего ).... сделать конфетку"

[MVG]

По примеру 3:
Поставил Index в «0». Не помогло.
Сообщение: «Ошибка времени выполнения 438. Объект не поддерживает это свойство или способ.»

Может этот компонент в принципе невозможно добавить из кода?

[Amed]

Вряд ли.
На какой строке ошибка?

[MVG]

Private Sub Form_Load()

Dim i As Integer

For i = 1 To 5
Load fpBtn(i)
With fpBtn(i)
.Caption = "fpBtn(" & i & ")"
.Top = 500 * i
.Visible = True
End With
Next i

[Amed]

У объекта fpBtn точно есть свойство Caption? Проверь ещё раз.

[MVG]

Amed, большое спасибо за внимание и помощь. Cption-а у fpBtn таки нет, вместо него используется Text. Исправил - всё заработало.
Надо памятник поставить тем кто придумал форумы. Я купил килграммов 50 книг по VB (прочитал, конечно, не всё). Чтобы найти ответ на поставленный вопрос надо не один дель листать книги. А в форуме добрые люди подскажут и научат.

[Amed]

Не за что, обращайтесь ещё.