VPF::Создание контролов на ФОРМЕ - Форум программистов

mihanik

Дата 3.7.2006, 08:07 (ссылка)

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

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

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

Привет всем. smile

Сегодня с утра озадачился таким вот вопросом.

У меня на форме уже есть несколько контролов (допустим, текстбоксов или лейблов).
Нужно программно создать новый контрол и разместить его на форме. smile

Вот...

Читаю MSDN Library. smile

Кто-нибудь, что-нибудь может подсказать?

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

Программистами не рождаются, - это родовая травма...

boevik

Дата 3.7.2006, 08:21 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

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

Пример:
Положи на форму TextBox с индексом 0 и CommandButton
Код формы:

Код


Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   8325
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10395
   LinkTopic       =   "Form1"
   ScaleHeight     =   8325
   ScaleWidth      =   10395
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox Text1 
      Height          =   285
      Index           =   0
      Left            =   240
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   120
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   375
      Left            =   9000
      TabIndex        =   0
      Top             =   120
      Width           =   1215
   End
End

Для создания следующего контрола нажимается command1

Код


Private Sub Command1_Click()
Static i As Integer
i = i + 1
Load Text1(i)
Text1(i).Top = Text1(i - 1).Top + 60 + Text1(i - 1).Height
Text1(i).Visible = True

End Sub

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

Никогда не говори никогда

mihanik

Дата 3.7.2006, 08:34 (ссылка)

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

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

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

Классно!!!!

Правда я немного переработал код.
Получилось нечто такое...

Код


Private Sub Command1_Click()
Dim I As Integer

I = Text1.Count

Load Text1(I)
Text1(I).Top = Text1(I - 1).Top + 60 + Text1(I - 1).Height
Text1(I).Visible = True

End Sub

Спасибо!!!
Буду юзать!!!

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

Программистами не рождаются, - это родовая травма...

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