А ничего не получается!

[Gatet]

Вот счас кто то получает бан по айпишнику за повтор вопрсов!!! (шутка).

Все очень просто. Допустим есть у нас кнопка btn и по ее нажатию мы хотим сделать другую кнопку btn1

private sub btn_click()
with controls.add ("VB.Button", "btn1")
.width = 200
.height = 100
.text = "btn"
.top = btn.top
.left = btn.left+btn.width+20
.visible = true
end with
end sub

Ругается.
Пишет: инвалид класс стринг. Лукинг фор прожект АЙДИ Vb.button

[RayShade]

1. Не зачем создавать новую тему.

2. Напряги мозги - почитай хелп. Ну не знает твоя система такого объекта. Попробуй VB.CommandButton. В общем, дерзай

[Gatet]

MSDN - a у меня нет, а то б я вас не напрягал.
За тему - прошу прощения
Но всё равно - спасибо!

[RayShade]

Для справки - нажав F2 ты можешь просмотреть имена всех стандартных классов контролов - в библиотеке VB. И потом создавать их как VB.имяконтрола

[Gatet]

А можно етому контролу прописать код?
ну там:
with controls.add ("VB.CommandButton", "btn1")
.width = 200
.height = 100
.text = "btn"
.top = btn.top
.left = btn.left+btn.width+20
.visible = true
end with
- работает

а как сделать чтобы по нажатию етой кнопки чё-то происходило?

[Firestorm]

короче мош создать кнопку так:
1) http://www.vbnet.ru/sample/sampledownload.asp?id=86
2) Можно сделать копию как через индекс одной кнопки...
3) Можно загрузить кнопку как объект as new button...

[FaKk2]

Что бы эта кнопка ещё и нажималась то тебе надо писать универсальный обработчик:
Private Sub cmdKnopka_Click(Index As Integer)
......
'тра ла ля чето делаем
End Sub

[Sebas]

with controls.add ("VB.CommandButton", "btn1")

Я думаю, так будет правильней....

Dim x as VbControlExtender
Set x=controls.add ("VB.CommandButton", "btn1")
with x

[RayShade]

2 sebas

Без разницы как. И так и так нормально. ТОлько в твоем случае переменная лишняя используется еще одна

[Sebas]

А в твоём - ошибку перехватывать неудобно )))))

[Sebas]

ХА !!!!!
У тебя необъявленная, то бишь что? Правильно - Variant.

[RayShade]

Уважаемый! Учите матчасть! .Add возвращает тип Object.

[Sebas]

Возвращает то Object, а хранится в Variant.

[RayShade]

Да нигде он не будет храниться. With...End With это протсо установка контекста в котором исполняется код.

[Sebas]

a temporary variable containing a reference to the object remains in memory until you exit the procedure

А самой ссылки у тя, увы, нет. Ты можешь использовать методы и свойства, а уничтожить объект нем можешь.

[RayShade]

Ну не могу И что с того? Контрол создан, проперти проставлены, процедура завершилась, все из памяти вылетело Так что на самом деле это дело вкуса как писать.