Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / поправить код VB6 под VBA / 3 сообщений из 3, страница 1 из 1
20.07.2018, 11:44
    #39676764
assei
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
поправить код VB6 под VBA
Ребята подскажите возможно ли данный код поправить под 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, 12:00
    #39676788
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
поправить код VB6 под VBA
Формы в офисных приложениях не поддерживают массивы контролов.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2018, 21:47
    #39677125
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
поправить код VB6 под VBA
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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / поправить код VB6 под VBA / 3 сообщений из 3, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 435ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2172282]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 58ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 288ms
total:  435ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]