поправить код VB6 под VBA / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / поправить код VB6 под VBA

3 сообщений из 3, страница 1 из 1

поправить код VB6 под VBA

#39676764

assei

Гость

Ребята подскажите возможно ли данный код поправить под VBA?

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

Private Sub Label20_Click() 'динамическое создание объектов
Dim i As Integer, L As Integer
L = Label18.Count
i = Text18.Count 
 Load Text18(i)
  Load Label18(L)
   Text5(i) = ""
     Label18(L).Top = Label18(L - 1).Top + 100 + Label18(L - 1).Height
       Text18(i).Top = Text18(i - 1).Top + 100 + Text18(i - 1).Height
        Form1.Height = Form1.Height + 500
         Text18(i).Visible = True
           Label18(L).Visible = True
End Sub

...

Рейтинг:

0 / 0

20.07.2018, 11:44

| Ответить | Цитировать | Написать

поправить код VB6 под VBA

#39676788

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Формы в офисных приложениях не поддерживают массивы контролов.

...

Рейтинг:

0 / 0

20.07.2018, 12:00

| Ответить | Цитировать | Написать

поправить код VB6 под VBA

#39677125

big-duke

Участник

Сообщения: 6 245

Рейтинг: 0 / 0

assei,

можно, если контролы создаются в рантайме.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

Option Explicit

Private Sub UserForm_Initialize()
Dim arTextBox(0 To 5) As Control
Dim i As Integer, intTop As Integer

intTop = 0
For i = 0 To 5
    Set arTextBox(i) = Controls.Add("Forms.TextBox.1", "TextBox" & i)
    arTextBox(i).Top = intTop + 20
    arTextBox(i).Text = "Name: " & arTextBox(i).Name
    intTop = intTop + 20
Next i
End Sub

...

Рейтинг:

0 / 0

20.07.2018, 21:47

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / поправить код VB6 под VBA

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&tid=2172282]:	0ms
get settings:	8ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	35ms
get topic data:	13ms
get forum data:	3ms
get page messages:	48ms
get tp. blocked users:	2ms
others:	293ms

total:	424ms