Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Как ставить commandbutton в x количестве Добавлено: 23.08.06 10:29  

Автор вопроса:  mimino
Можно ли ставить кнопки программно ?
Мне нужно ставить кнопки в количестве равной переменной x.

Ответить

  Ответы Всего ответов: 7  

Номер ответа: 1
Автор ответа:
 Calhoon



ICQ: 789764 

Вопросов: 90
Ответов: 230
 Web-сайт: 4elovekssn.blog.ru
 Профиль | | #1
Добавлено: 23.08.06 10:50
поиск по форуму "динамическое создание"

Ответить

Номер ответа: 2
Автор ответа:
 mimino



Вопросов: 6
Ответов: 16
 Профиль | | #2 Добавлено: 23.08.06 10:53
Большой Thanks

Ответить

Номер ответа: 3
Автор ответа:
 Calhoon



ICQ: 789764 

Вопросов: 90
Ответов: 230
 Web-сайт: 4elovekssn.blog.ru
 Профиль | | #3
Добавлено: 23.08.06 11:05
Создай форму, добавь кнопку Command1, поставь значение Index = 0

В коде напиши:
Private Sub Command1_Click(Index As Integer)
For n = 1 To 5
    Call Load(Command1(n))
    Command1(n).Top = Command1(n - 1).Top + Command1(n - 1).Height
    Command1(n).Visible = True
Next n
End Sub

Ответить

Номер ответа: 4
Автор ответа:
 mimino



Вопросов: 6
Ответов: 16
 Профиль | | #4 Добавлено: 23.08.06 11:15
На счет поиска не получилось.
за код спасибо
Работает !

Ответить

Номер ответа: 5
Автор ответа:
 -АлександР-



Вопросов: 55
Ответов: 1008
 Web-сайт: sham.clan.su
 Профиль | | #5
Добавлено: 23.08.06 13:55
Типа того, что привёл Calhoon, но только другим спопсобом: см. тему "Двойной массив элемента управления" (http://www.vbnet.ru/forum/show.aspx?id=115892&page=2). Скачай с ответа № 22 данную там ссылку. Там идёт работа лэйбелами, сделай - с кнопками. Заметь: заранее там на форме не стоит ни одного лэйбла. Они все с первого (включая index = 0) ставятся программно

Ответить

Номер ответа: 6
Автор ответа:
 Beralus_



ICQ: 255004422 

Вопросов: 0
Ответов: 14
 Профиль | | #6 Добавлено: 23.08.06 15:12
i takoy sposob :
Dim com As CommandButton
dim cn
Sub AddCommand()

    Set com = Controls.Add("VB.CommandButton", "com" & cn & "";)
    Set com.Container = me
    com.Move -------
    com.Visible = True
    com.Caption = "Command" & cn & ""
    cn=cn+1
End Sub

Ответить

Номер ответа: 7
Автор ответа:
 LamerOnLine



ICQ: 334781088 

Вопросов: 108
Ответов: 2822
 Профиль | | #7 Добавлено: 23.08.06 15:50
Хорош гнуть банана. События как от таких кнопок ловить собираешься? лол
Тут либо сабкласс, либо враппер. Можно, конечно, и с IConnectionPoint поиграться, но это на любителя.
С массивами, конечно, удобно, но держать разные контролы на форме в надежде что кто-нибудь из них может понадобиться... Разве если уверен что нужны именно кнопки.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам